!!!Speedy 1050 example -- install a custom command {{{ 0100 ;*************************************** 0110 ;* Demonstration 1 fuer Kommando $41 * 0120 ;* Kommando $54 installieren * 0130 ;*************************************** 0140 ; 0150 .OPT NO LIST 0160 .OPT OBJ 0170 *= $4000 0180 ; 0190 LDA #$31 ; Bus ID 0200 STA $0300 0210 LDA #1 ; Laufwerks Nummer = 1 0220 STA $0301 0230 LDA #$41 ; Kommando $41 0240 STA $0302 0250 LDA #$80 ; Status fuer Daten schreiben 0260 STA $0303 0270 LDA # <COMBUF ; Adresse fuer Kommandobuffer Low 0280 STA $0304 0290 LDA # >COMBUF ; Adresse fuer Kommandobuffer High 0300 STA $0305 0310 LDA #7 ; Wert fuer Timeout = 7 Sekunden 0320 STA $0306 0330 LDA #3 ; 3 Bytes schreiben 0340 STA $0308 0350 LDA #0 0360 STA $0309 0370 JSR $E459 ; Einsprung der SIO-Routine im OS 0380 BMI ERROR 0390 CLC 0400 RTS 0410 ERROR SEC 0420 RTS 0430 COMBUF .BYTE $54 ; Kommando $54 0440 .WORD $8000 ; Einsprung $8000 }}}