Speedy 1050 example - Direct Jump with automatic complete #

0100 ;****************************************
0110 ;*   Demonstration fuer Kommando $4D    *
0120 ;* Einsprungbefehl. "C" - Complete wird *
0130 ;* vom Laufwerk sofort zurueckgesendet  *
0140 ;****************************************
0150 ;
0160 GOADR = $FF03   ; Einsprungadresse fuer "Drive Reset"
0170 ;
0180     .OPT NO LIST
0190     .OPT OBJ
0200     *=  $4000
0210 ;
0220     LDA #$31    ; Bus ID
0230     STA $0300
0240     LDA #1      ; Laufwerks Nummer = 1
0250     STA $0301
0260     LDA #$4D    ; Kommando $4D
0270     STA $0302
0280     LDA #0      ; Status fuer keine Daten senden oder empfangen
0290     STA $0303
0300     LDA #7      ; Wert fuer Timeout = 7 Sekunden
0310     STA $0306
0320     LDA # <GOADR ; Einsprungadresse Low Byte
0330     STA $030A
0340     LDA # >GOADR ; Einsprungadresse High Byte
0350     STA $030B
0360     JSR $E459   ; Einsprung der SIO-Routine im OS
0370     BMI ERROR
0380     CLC
0390     RTS
0400 ERROR SEC
0410     RTS