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