 NAM BOOTSTRA.BIN
Z0000 EQU $0000
Z0005 EQU $0005
Z0105 EQU $0105
STACKINI EQU $C07F
 ORG $0100
START BRA START1
 FCB #$00,#$05,#$01
PISEFLEX FCB #$05,#$01
 FDB #$00
ZC108 FCB #$c1
ZC109 FCB #$00
ZC10A FCB #$00
ZC10B FCB #$00
START1 LDS #STACKINI
 LDD >PISEFLEX
 STD >ZC300
 LDY #ZC400
LOOP1 BSR SUBR1
 CMPA #$02
 BEQ ZC130
 CMPA #$16
 BNE LOOP1
 BSR SUBR1
 STA >ZC108
 BSR SUBR1
 STA >ZC109
 BRA LOOP1
ZC130 BSR SUBR1
 STA >ZC10A
 BSR SUBR1
 STA >ZC10B
 BSR SUBR1
 TFR A,B
 TSTA 
 BEQ LOOP1
 LDX >ZC10A
ZC144 PSHS X,B
 BSR SUBR1
 PULS X,B
 STA ,X+
 DECB 
 BNE ZC144
 BRA LOOP1
SUBR1 CMPY #ZC400
 BNE ZC166
 LDX #ZC300
 LDD ,X
 BEQ ZC169
 BSR ZC16D
 BNE START
 LDY #ZC304
ZC166 LDA ,Y+
 RTS 
ZC169 JMP [ZC108]
ZC16D JMP >LECSEC
 RTS 
 JSR >ZCD24
 LEAX ZC27D,PCR
 JSR >ZCD1E
 RTS 
 JSR >ZCD24
 JSR >ZCD24
 LEAX ZC2A0,PCR
 LDB #$11
 LBSR ZC21A
 LEAX $19,U
 JSR >ZCD39
 LBSR ZC267
 LEAX ZC2B1,PCR
 LDB #$07
 LBSR ZC21A
 CLRB 
 LEAX $1D,U
 JSR >ZCD39
 RTS 
 CLRA 
 CLRB 
 STD $1F,U
 STD $19,U
 JMP >ZCD24
 JSR >ZCD24
 LDX #ZC844
 LDB #$08
 BSR ZC20D
 LDA #$2E
 JSR >ZCD18
 LDB #$03
 BSR ZC20D
 BSR ZC208
 LDX #ZC855
 LDB #$01
 JSR >ZCD39
 BSR ZC206
 BSR ZC208
 LDY #ZC859
 BSR ZC242
 BSR ZC206
 LDX #ZC840
 LDD #$5780
 BSR ZC227
 LDD #$4440
 BSR ZC227
 LDD #$4310
 BSR ZC227
 LDD >ZC855
 CMPD $1B,U
 BLS ZC1F7
 STD $1B,U
ZC1F7 ADDD $19,U
 STD $19,U
 INC $20,U
ZC206 EQU $C206
ZC208 EQU $C208
ZC20D EQU $C20D
ZC21A EQU $C21A
ZC227 EQU $C227
ZC242 EQU $C242
ZC267 EQU $C267
ZC27D EQU $C27D
ZC2A0 EQU $C2A0
ZC2B1 EQU $C2B1
ZC300 EQU $C300
ZC304 EQU $C304
ZC400 EQU $C400
ZC840 EQU $C840
ZC844 EQU $C844
ZC855 EQU $C855
ZC859 EQU $C859
ZCD18 EQU $CD18
ZCD1E EQU $CD1E
ZCD24 EQU $CD24
ZCD39 EQU $CD39
LECSEC EQU $F812
 END START
