10 ; This routine will boot a disk
20 ;
30      *=$0600
40    LDA $0008
50    BEQ L0001
60    LDA $0009
70    AND #$01
80    BEQ L0002
90    JMP $C63B
0100 L0001  LDA #$01
0110    STA $0301
0120    LDA #$53
0130    STA $0302
0140    JSR $E453
0150    BMI L0002
0160 L0008  LDA #$00
0170    STA $030B
0180    LDA #$01
0190    STA $030A
0200    LDA #$00
0210    STA $0304
0220    LDA #$04
0230    STA $0305
0240    JSR $C659
0250    BPL L0009
0260    JSR $C63E
0270    LDA $03EA
0280    BEQ L0008 ;$C5A7
0290 L0002  RTS
0300 L0009  JMP $C5C9
0310       .END