; *** text follows ***
*=$C000
; Basic command table
C000 BASADDR .word END -1, FOR -1, NEXT -1, DATA -1
C008 .word INPUTF -1, INPUT -1, DIM -1, READ -1
C010 .word LET -1, GOTO -1, RUN -1, IF -1
C018 .word RESTORE -1, GOSUB -1, RETURN -1, REM -1
C020 .word TSTSTOP -1, ON -1, WAIT -1, LOAD -1
C028 .word SAVE -1, VERIFY -1, DEF -1, POKE -1
C030 .word PRINTF -1, PRINT -1, CONT -1, LIST -1
C038 .word CLR -1, CMD -1, SYS -1, OPEN -1
C040 .word CLOSE -1, GET -1, NEW -1
; Function address table
C046 .word SGN , INT , ABS , USR
C04E .word FRE , POS , SQR , RND
C056 .word LOG , EXP , COS , SIN
C05E .word TAN , ATN , PEEK , LEN
C066 .word STR , VAL , ASC , CHR
C06E .word LEFT , RIGHT , MID
; Operator table with priority and address
C074 OPTABLE .byte $79, $3E, $D7, $79, $27, $D7, $7B, $FF ;Y>WY'W{.
C07C .byte $D8, $7B, $E3, $D9, $7F, $2D, $DE, $50 ;X{.Y.-.p
C084 .byte $D8, $CE, $46, $D5, $CE, $7D, $66, $DE ;XNfUN}F.
C08C .byte $5A, $E7, $CD, $64, $05, $CF ;z.MDeO
; BASIC keywords
C092 KEYWORDS .byte $45, $4E, $C4, $46, $4F, $D2, $4E, $45 ;enDfoRne
C09A .byte $58, $D4, $44, $41, $54, $C1, $49, $4E ;xTdatAin
C0A2 .byte $50, $55, $54, $A3, $49, $4E, $50, $55 ;put#inpu
C0AA .byte $D4, $44, $49, $CD, $52, $45, $41, $C4 ;TdiMreaD
C0B2 .byte $4C, $45, $D4, $47, $4F, $54, $CF, $52 ;leTgotOr
C0BA .byte $55, $CE, $49, $C6, $52, $45, $53, $54 ;uNiFrest
C0C2 .byte $4F, $52, $C5, $47, $4F, $53, $55, $C2 ;orEgosuB
C0CA .byte $52, $45, $54, $55, $52, $CE, $52, $45 ;returNre
C0D2 .byte $CD, $53, $54, $4F, $D0, $4F, $CE, $57 ;MstoPoNw
C0DA .byte $41, $49, $D4, $4C, $4F, $41, $C4, $53 ;aiTloaDs
C0E2 .byte $41, $56, $C5, $56, $45, $52, $49, $46 ;avEverif
C0EA .byte $D9, $44, $45, $C6, $50, $4F, $4B, $C5 ;YdeFpokE
C0F2 .byte $50, $52, $49, $4E, $54, $A3, $50, $52 ;print#pr
C0FA .byte $49, $4E, $D4, $43, $4F, $4E, $D4, $4C ;inTconTl
C102 .byte $49, $53, $D4, $43, $4C, $D2, $43, $4D ;isTclRcm
C10A .byte $C4, $53, $59, $D3, $4F, $50, $45, $CE ;DsySopeN
C112 .byte $43, $4C, $4F, $53, $C5, $47, $45, $D4 ;closEgeT
C11A .byte $4E, $45, $D7, $54, $41, $42, $A8, $54 ;neWtab(t
C122 .byte $CF, $46, $CE, $53, $50, $43, $A8, $54 ;OfNspc(t
C12A .byte $48, $45, $CE, $4E, $4F, $D4, $53, $54 ;heNnoTst
C132 .byte $45, $D0, $AB, $AD, $AA, $AF, $DE, $41 ;eP+-*/.a
C13A .byte $4E, $C4, $4F, $D2, $BE, $BD, $BC, $53 ;nDoR>=<s
C142 .byte $47, $CE, $49, $4E, $D4, $41, $42, $D3 ;gNinTabS
C14A .byte $55, $53, $D2, $46, $52, $C5, $50, $4F ;usRfrEpo
C152 .byte $D3, $53, $51, $D2, $52, $4E, $C4, $4C ;SsqRrnDl
C15A .byte $4F, $C7, $45, $58, $D0, $43, $4F, $D3 ;oGexPcoS
C162 .byte $53, $49, $CE, $54, $41, $CE, $41, $54 ;siNtaNat
C16A .byte $CE, $50, $45, $45, $CB, $4C, $45, $CE ;NpeeKleN
C172 .byte $53, $54, $52, $A4, $56, $41, $CC, $41 ;str$vaLa
C17A .byte $53, $C3, $43, $48, $52, $A4, $4C, $45 ;sCchr$le
C182 .byte $46, $54, $A4, $52, $49, $47, $48, $54 ;ft$right
C18A .byte $A4, $4D, $49, $44, $A4, $00 ;$mid$.
; System messages
C190 ERRTAB .byte $4E, $45, $58, $54, $20, $57, $49, $54 ;next wit
C198 .byte $48, $4F, $55, $54, $20, $46, $4F, $D2 ;hout foR
C1A0 .byte $53, $59, $4E, $54, $41, $D8, $52, $45 ;syntaXre
C1A8 .byte $54, $55, $52, $4E, $20, $57, $49, $54 ;turn wit
C1B0 .byte $48, $4F, $55, $54, $20, $47, $4F, $53 ;hout gos
C1B8 .byte $55, $C2, $4F, $55, $54, $20, $4F, $46 ;uBout of
C1C0 .byte $20, $44, $41, $54, $C1, $49, $4C, $4C ; datAill
C1C8 .byte $45, $47, $41, $4C, $20, $51, $55, $41 ;egal qua
C1D0 .byte $4E, $54, $49, $54, $D9, $00, $00, $00 ;ntitY...
C1D8 .byte $00, $00, $4F, $56, $45, $52, $46, $4C ;..overfl
C1E0 .byte $4F, $D7, $4F, $55, $54, $20, $4F, $46 ;oWout of
C1E8 .byte $20, $4D, $45, $4D, $4F, $52, $D9, $55 ; memorYu
C1F0 .byte $4E, $44, $45, $46, $27, $44, $20, $53 ;ndef'd s
C1F8 .byte $54, $41, $54, $45, $4D, $45, $4E, $D4 ;tatemenT
C200 .byte $42, $41, $44, $20, $53, $55, $42, $53 ;bad subs
C208 .byte $43, $52, $49, $50, $D4, $52, $45, $44 ;cripTred
C210 .byte $49, $4D, $27, $44, $20, $41, $52, $52 ;im'd arr
C218 .byte $41, $D9, $44, $49, $56, $49, $53, $49 ;aYdivisi
C220 .byte $4F, $4E, $20, $42, $59, $20, $5A, $45 ;on by ze
C228 .byte $52, $CF, $49, $4C, $4C, $45, $47, $41 ;rOillega
C230 .byte $4C, $20, $44, $49, $52, $45, $43, $D4 ;l direcT
C238 .byte $54, $59, $50, $45, $20, $4D, $49, $53 ;type mis
C240 .byte $4D, $41, $54, $43, $C8, $53, $54, $52 ;matcHstr
C248 .byte $49, $4E, $47, $20, $54, $4F, $4F, $20 ;ing too
C250 .byte $4C, $4F, $4E, $C7, $42, $41, $44, $20 ;lonGbad
C258 .byte $44, $41, $54, $C1, $46, $4F, $52, $4D ;datAform
C260 .byte $55, $4C, $41, $20, $54, $4F, $4F, $20 ;ula too
C268 .byte $43, $4F, $4D, $50, $4C, $45, $D8, $43 ;compleXc
C270 .byte $41, $4E, $27, $54, $20, $43, $4F, $4E ;an't con
C278 .byte $54, $49, $4E, $55, $C5, $55, $4E, $44 ;tinuEund
C280 .byte $45, $46, $27, $44, $20, $46, $55, $4E ;ef'd fun
C288 .byte $43, $54, $49, $4F, $CE, $20, $45, $52 ;ctioN er
C290 .byte $52, $4F, $52, $00, $20, $49, $4E, $20 ;ror. in
C298 .byte $00, $0D, $0A, $52, $45, $41, $44, $59 ;.mjready
C2A0 .byte $2E, $0D, $0A, $00, $0D, $0A, $42, $52 ;.mj.mjbr
C2A8 .byte $45, $41, $4B, $00 ;eak.
C2AC BA iC2AC TSX
C2AD E8 INX
C2AE E8 INX
C2AF E8 INX
C2B0 E8 INX
C2B1 BD 01 01 iC2B1 LDA STACK+1,X
C2B4 C9 81 CMP #$81
C2B6 D0 21 BNE iC2D9
C2B8 A5 99 LDA x99
C2BA D0 0A BNE iC2C6
C2BC BD 02 01 LDA STACK+2,X
C2BF 85 98 STA x98
C2C1 BD 03 01 LDA STACK+3,X
C2C4 85 99 STA x99
C2C6 DD 03 01 iC2C6 CMP STACK+3,X
C2C9 D0 07 BNE iC2D2
C2CB A5 98 LDA x98
C2CD DD 02 01 CMP STACK+2,X
C2D0 F0 07 BEQ iC2D9
C2D2 8A iC2D2 TXA
C2D3 18 CLC
C2D4 69 12 ADC #$12
C2D6 AA TAX
C2D7 D0 D8 BNE iC2B1
C2D9 60 iC2D9 RTS
C2DA 20 2A C3 iC2DA JSR iC32A
C2DD 85 80 STA x80
C2DF 84 81 STY x81
C2E1 38 iC2E1 SEC
C2E2 A5 A9 LDA xA9
C2E4 E5 AE SBC xAE
C2E6 85 71 STA x71
C2E8 A8 TAY
C2E9 A5 AA LDA xAA
C2EB E5 AF SBC xAF
C2ED AA TAX
C2EE E8 INX
C2EF 98 TYA
C2F0 F0 23 BEQ iC315
C2F2 A5 A9 LDA xA9
C2F4 38 SEC
C2F5 E5 71 SBC x71
C2F7 85 A9 STA xA9
C2F9 B0 03 BCS iC2FE
C2FB C6 AA DEC xAA
C2FD 38 SEC
C2FE A5 A7 iC2FE LDA xA7
C300 E5 71 SBC x71
C302 85 A7 STA xA7
C304 B0 08 BCS iC30E
C306 C6 A8 DEC xA8
C308 90 04 BCC iC30E
C30A B1 A9 iC30A LDA (xA9),Y
C30C 91 A7 STA (xA7),Y
C30E 88 iC30E DEY
C30F D0 F9 BNE iC30A
C311 B1 A9 LDA (xA9),Y
C313 91 A7 STA (xA7),Y
C315 C6 AA iC315 DEC xAA
C317 C6 A8 DEC xA8
C319 CA DEX
C31A D0 F2 BNE iC30E
C31C 60 RTS
C31D 0A iC31D ASL
C31E 69 36 ADC #$36
C320 B0 35 BCS iC357
C322 85 71 STA x71
C324 BA TSX
C325 E4 71 CPX x71
C327 90 2E BCC iC357
C329 60 RTS
C32A C4 83 iC32A CPY x83
C32C 90 28 BCC iC356
C32E D0 04 BNE iC334
C330 C5 82 CMP x82
C332 90 22 BCC iC356
C334 48 iC334 PHA
C335 A2 09 LDX #$09
C337 98 TYA
C338 48 iC338 PHA
C339 B5 A6 LDA xA6,X
C33B CA DEX
C33C 10 FA BPL iC338
C33E 20 04 D4 JSR iD404
C341 A2 F7 LDX #$F7
C343 68 iC343 PLA
C344 95 B0 STA xB0,X
C346 E8 INX
C347 30 FA BMI iC343
C349 68 PLA
C34A A8 TAY
C34B 68 PLA
C34C C4 83 CPY x83
C34E 90 06 BCC iC356
C350 D0 05 BNE iC357
C352 C5 82 CMP x82
C354 B0 01 BCS iC357
C356 60 iC356 RTS
C357 A2 52 iC357 LDX #$52
C359 46 64 iC359 LSR x64
C35B A5 03 LDA x03
C35D F0 07 BEQ iC366
C35F 20 CC FF JSR CLRCH
C362 A9 00 LDA #$00
C364 85 03 STA x03
C366 20 D2 C9 iC366 JSR iC9D2
C369 20 47 CA JSR iCA47
C36C BD 90 C1 iC36C LDA ERRTAB,X
C36F 48 PHA
C370 29 7F AND #$7F
C372 20 49 CA JSR iCA49
C375 E8 INX
C376 68 PLA
C377 10 F3 BPL iC36C
C379 20 84 C5 iC379 JSR iC584
C37C A9 8D LDA #$8D
C37E A0 C2 LDY #$C2
C380 20 27 CA iC380 JSR iCA27
C383 A4 89 LDY x89
C385 C8 INY
C386 F0 03 BEQ iC38B
C388 20 94 DC JSR iDC94
C38B 46 64 iC38B LSR x64
C38D A9 99 LDA #$99
C38F A0 C2 LDY #$C2
C391 20 27 CA JSR iCA27
C394 20 68 C4 iC394 JSR iC468
C397 86 C9 STX xC9
C399 84 CA STY xCA
C39B 20 C2 00 JSR iC2
C39E F0 F4 BEQ iC394
C3A0 A2 FF LDX #$FF
C3A2 86 89 STX x89
C3A4 90 06 BCC iC3AC
C3A6 20 8D C4 JSR iC48D
C3A9 4C E9 C6 JMP iC6E9
C3AC 20 63 C8 iC3AC JSR iC863
C3AF 20 8D C4 JSR iC48D
C3B2 84 5C STY x5C
C3B4 20 22 C5 JSR iC522
C3B7 90 44 BCC iC3FD
C3B9 A0 01 LDY #$01
C3BB B1 AE LDA (xAE),Y
C3BD 85 72 STA x72
C3BF A5 7C LDA x7C
C3C1 85 71 STA x71
C3C3 A5 AF LDA xAF
C3C5 85 74 STA x74
C3C7 A5 AE LDA xAE
C3C9 88 DEY
C3CA F1 AE SBC (xAE),Y
C3CC 18 CLC
C3CD 65 7C ADC x7C
C3CF 85 7C STA x7C
C3D1 85 73 STA x73
C3D3 A5 7D LDA x7D
C3D5 69 FF ADC #$FF
C3D7 85 7D STA x7D
C3D9 E5 AF SBC xAF
C3DB AA TAX
C3DC 38 SEC
C3DD A5 AE LDA xAE
C3DF E5 7C SBC x7C
C3E1 A8 TAY
C3E2 B0 03 BCS iC3E7
C3E4 E8 INX
C3E5 C6 74 DEC x74
C3E7 18 iC3E7 CLC
C3E8 65 71 ADC x71
C3EA 90 03 BCC iC3EF
C3EC C6 72 DEC x72
C3EE 18 CLC
C3EF B1 71 iC3EF LDA (x71),Y
C3F1 91 73 STA (x73),Y
C3F3 C8 INY
C3F4 D0 F9 BNE iC3EF
C3F6 E6 72 INC x72
C3F8 E6 74 INC x74
C3FA CA DEX
C3FB D0 F2 BNE iC3EF
C3FD A5 0A iC3FD LDA x0A
C3FF F0 2F BEQ iC430
C401 A5 86 LDA x86
C403 A4 87 LDY x87
C405 85 82 STA x82
C407 84 83 STY x83
C409 A5 7C LDA x7C
C40B 85 A9 STA xA9
C40D 65 5C ADC x5C
C40F 85 A7 STA xA7
C411 A4 7D LDY x7D
C413 84 AA STY xAA
C415 90 01 BCC iC418
C417 C8 INY
C418 84 A8 iC418 STY xA8
C41A 20 DA C2 JSR iC2DA
C41D A5 80 LDA x80
C41F A4 81 LDY x81
C421 85 7C STA x7C
C423 84 7D STY x7D
C425 A4 5C LDY x5C
C427 88 DEY
C428 B9 06 00 iC428 LDA x06,Y
C42B 91 AE STA (xAE),Y
C42D 88 DEY
C42E 10 F8 BPL iC428
C430 20 67 C5 iC430 JSR iC567
C433 A5 7A LDA x7A
C435 A4 7B LDY x7B
C437 85 71 STA x71
C439 84 72 STY x72
C43B 18 CLC
C43C A0 01 iC43C LDY #$01
C43E B1 71 LDA (x71),Y
C440 D0 03 BNE iC445
C442 4C 94 C3 JMP iC394
C445 A0 04 iC445 LDY #$04
C447 C8 iC447 INY
C448 B1 71 LDA (x71),Y
C44A D0 FB BNE iC447
C44C C8 INY
C44D 98 TYA
C44E 65 71 ADC x71
C450 AA TAX
C451 A0 00 LDY #$00
C453 91 71 STA (x71),Y
C455 A5 72 LDA x72
C457 69 00 ADC #$00
C459 C8 INY
C45A 91 71 STA (x71),Y
C45C 86 71 STX x71
C45E 85 72 STA x72
C460 90 DA BCC iC43C
C462 CA DEX
C463 10 05 BPL iC46A
C465 20 D2 C9 JSR iC9D2
C468 A2 00 iC468 LDX #$00
C46A 20 79 C4 iC46A JSR iC479
C46D C9 0D CMP #$0D
C46F F0 05 BEQ iC476
C471 95 0A STA x0A,X
C473 E8 INX
C474 D0 F4 BNE iC46A
C476 4C C8 C9 iC476 JMP iC9C8
C479 20 CF FF iC479 JSR BASIN
C47C A4 03 LDY x03
C47E D0 0C BNE iC48C
C480 C9 0F CMP #$0F
C482 D0 08 BNE iC48C
C484 48 PHA
C485 A5 64 LDA x64
C487 49 FF EOR #$FF
C489 85 64 STA x64
C48B 68 PLA
C48C 60 iC48C RTS
C48D A6 C9 iC48D LDX xC9
C48F A0 04 LDY #$04
C491 84 60 STY x60
C493 B5 00 iC493 LDA USR,X
C495 10 07 BPL iC49E
C497 C9 FF CMP #$FF
C499 F0 41 BEQ iC4DC
C49B E8 INX
C49C D0 F5 BNE iC493
C49E C9 20 iC49E CMP #$20
C4A0 F0 3A BEQ iC4DC
C4A2 85 5B STA x5B
C4A4 C9 22 CMP #$22
C4A6 F0 58 BEQ iC500
C4A8 24 60 BIT x60
C4AA 70 30 BVS iC4DC
C4AC C9 3F CMP #$3F
C4AE D0 04 BNE iC4B4
C4B0 A9 99 LDA #$99
C4B2 D0 28 BNE iC4DC
C4B4 C9 30 iC4B4 CMP #$30
C4B6 90 04 BCC iC4BC
C4B8 C9 3C CMP #$3C
C4BA 90 20 BCC iC4DC
C4BC 84 C0 iC4BC STY xC0
C4BE A0 00 LDY #$00
C4C0 84 5C STY x5C
C4C2 88 DEY
C4C3 86 C9 STX xC9
C4C5 CA DEX
C4C6 C8 iC4C6 INY
C4C7 E8 iC4C7 INX
C4C8 B5 00 iC4C8 LDA USR,X
C4CA C9 20 CMP #$20
C4CC F0 F9 BEQ iC4C7
C4CE 38 SEC
C4CF F9 92 C0 SBC KEYWORDS,Y
C4D2 F0 F2 BEQ iC4C6
C4D4 C9 80 CMP #$80
C4D6 D0 2F BNE iC507
C4D8 05 5C ORA x5C
C4DA A4 C0 iC4DA LDY xC0
C4DC E8 iC4DC INX
C4DD C8 INY
C4DE 99 05 00 STA x05,Y
C4E1 B9 05 00 LDA x05,Y
C4E4 F0 34 BEQ iC51A
C4E6 38 SEC
C4E7 E9 3A SBC #$3A
C4E9 F0 04 BEQ iC4EF
C4EB C9 49 CMP #$49
C4ED D0 02 BNE iC4F1
C4EF 85 60 iC4EF STA x60
C4F1 38 iC4F1 SEC
C4F2 E9 55 SBC #$55
C4F4 D0 9D BNE iC493
C4F6 85 5B STA x5B
C4F8 B5 00 iC4F8 LDA USR,X
C4FA F0 E0 BEQ iC4DC
C4FC C5 5B CMP x5B
C4FE F0 DC BEQ iC4DC
C500 C8 iC500 INY
C501 99 05 00 STA x05,Y
C504 E8 INX
C505 D0 F1 BNE iC4F8
C507 A6 C9 iC507 LDX xC9
C509 E6 5C INC x5C
C50B C8 iC50B INY
C50C B9 91 C0 LDA KEYWORDS-1,Y
C50F 10 FA BPL iC50B
C511 B9 92 C0 LDA KEYWORDS,Y
C514 D0 B2 BNE iC4C8
C516 B5 00 LDA USR,X
C518 10 C0 BPL iC4DA
C51A 99 07 00 iC51A STA x07,Y
C51D A9 09 LDA #$09
C51F 85 C9 STA xC9
C521 60 RTS
C522 A5 7A iC522 LDA x7A
C524 A6 7B LDX x7B
C526 A0 01 iC526 LDY #$01
C528 85 AE STA xAE
C52A 86 AF STX xAF
C52C B1 AE LDA (xAE),Y
C52E F0 1F BEQ iC54F
C530 C8 INY
C531 C8 INY
C532 A5 09 LDA x09
C534 D1 AE CMP (xAE),Y
C536 90 18 BCC iC550
C538 F0 03 BEQ iC53D
C53A 88 DEY
C53B D0 09 BNE iC546
C53D A5 08 iC53D LDA x08
C53F 88 DEY
C540 D1 AE CMP (xAE),Y
C542 90 0C BCC iC550
C544 F0 0A BEQ iC550
C546 88 iC546 DEY
C547 B1 AE LDA (xAE),Y
C549 AA TAX
C54A 88 DEY
C54B B1 AE LDA (xAE),Y
C54D B0 D7 BCS iC526
C54F 18 iC54F CLC
C550 60 iC550 RTS
C551 D0 FD NEW BNE iC550
C553 A9 00 iC553 LDA #$00
C555 A8 TAY
C556 91 7A STA (x7A),Y
C558 C8 INY
C559 91 7A STA (x7A),Y
C55B A5 7A LDA x7A
C55D 69 02 ADC #$02
C55F 85 7C STA x7C
C561 A5 7B LDA x7B
C563 69 00 ADC #$00
C565 85 7D STA x7D
C567 20 9A C5 iC567 JSR iC59A
C56A A5 86 iC56A LDA x86
C56C A4 87 LDY x87
C56E 85 82 STA x82
C570 84 83 STY x83
C572 20 E7 FF JSR CLALL
C575 A5 7C LDA x7C
C577 A4 7D LDY x7D
C579 85 7E STA x7E
C57B 84 7F STY x7F
C57D 85 80 STA x80
C57F 84 81 STY x81
C581 20 0D C7 iC581 JSR RESTORE
C584 A2 68 iC584 LDX #$68
C586 86 65 STX x65
C588 68 PLA
C589 A8 TAY
C58A 68 PLA
C58B A2 FE LDX #$FE
C58D 9A TXS
C58E 48 PHA
C58F 98 TYA
C590 48 PHA
C591 A9 00 LDA #$00
C593 85 8D STA x8D
C595 85 61 STA x61
C597 60 RTS
C598 51 .byte $51
C599 60 iC599 RTS
C59A 18 iC59A CLC
C59B A5 7A LDA x7A
C59D 69 FF ADC #$FF
C59F 85 C9 STA xC9
C5A1 A5 7B LDA x7B
C5A3 69 FF ADC #$FF
C5A5 85 CA STA xCA
C5A7 60 RTS
C5A8 90 06 LIST BCC iC5B0
C5AA F0 04 BEQ iC5B0
C5AC C9 AB CMP #$AB
C5AE D0 E9 BNE iC599
C5B0 20 63 C8 iC5B0 JSR iC863
C5B3 20 22 C5 JSR iC522
C5B6 20 C8 00 JSR iC8
C5B9 F0 0C BEQ iC5C7
C5BB C9 AB CMP #$AB
C5BD D0 91 BNE iC550
C5BF 20 C2 00 JSR iC2
C5C2 20 63 C8 JSR iC863
C5C5 D0 89 BNE iC550
C5C7 68 iC5C7 PLA
C5C8 68 PLA
C5C9 A5 08 LDA x08
C5CB 05 09 ORA x09
C5CD D0 06 BNE iC5D5
C5CF A9 FF LDA #$FF
C5D1 85 08 STA x08
C5D3 85 09 STA x09
C5D5 A0 01 iC5D5 LDY #$01
C5D7 84 60 STY x60
C5D9 B1 AE LDA (xAE),Y
C5DB F0 41 BEQ iC61E
C5DD 20 E1 FF JSR GETSTP
C5E0 20 D2 C9 JSR iC9D2
C5E3 C8 INY
C5E4 B1 AE LDA (xAE),Y
C5E6 AA TAX
C5E7 C8 INY
C5E8 B1 AE LDA (xAE),Y
C5EA C5 09 CMP x09
C5EC D0 04 BNE iC5F2
C5EE E4 08 CPX x08
C5F0 F0 02 BEQ iC5F4
C5F2 B0 2A iC5F2 BCS iC61E
C5F4 84 98 iC5F4 STY x98
C5F6 20 9F DC JSR iDC9F
C5F9 A9 20 LDA #$20
C5FB A4 98 iC5FB LDY x98
C5FD 29 7F AND #$7F
C5FF 20 49 CA iC5FF JSR iCA49
C602 C9 22 CMP #$22
C604 D0 06 BNE iC60C
C606 A5 60 LDA x60
C608 49 FF EOR #$FF
C60A 85 60 STA x60
C60C C8 iC60C INY
C60D B1 AE LDA (xAE),Y
C60F D0 10 BNE iC621
C611 A8 TAY
C612 B1 AE LDA (xAE),Y
C614 AA TAX
C615 C8 INY
C616 B1 AE LDA (xAE),Y
C618 86 AE STX xAE
C61A 85 AF STA xAF
C61C D0 B7 BNE iC5D5
C61E 4C 8B C3 iC61E JMP iC38B
C621 10 DC iC621 BPL iC5FF
C623 C9 FF CMP #$FF
C625 F0 D8 BEQ iC5FF
C627 24 60 BIT x60
C629 30 D4 BMI iC5FF
C62B 38 SEC
C62C E9 7F SBC #$7F
C62E AA TAX
C62F 84 98 STY x98
C631 A0 FF LDY #$FF
C633 CA iC633 DEX
C634 F0 08 BEQ iC63E
C636 C8 iC636 INY
C637 B9 92 C0 LDA KEYWORDS,Y
C63A 10 FA BPL iC636
C63C 30 F5 BMI iC633
C63E C8 iC63E INY
C63F B9 92 C0 LDA KEYWORDS,Y
C642 30 B7 BMI iC5FB
C644 20 49 CA JSR iCA49
C647 D0 F5 BNE iC63E
C649 A9 80 FOR LDA #$80
C64B 85 61 STA x61
C64D 20 9D C8 JSR LET
C650 20 AC C2 JSR iC2AC
C653 D0 05 BNE iC65A
C655 8A TXA
C656 69 0F ADC #$0F
C658 AA TAX
C659 9A TXS
C65A 68 iC65A PLA
C65B 68 PLA
C65C A9 09 LDA #$09
C65E 20 1D C3 JSR iC31D
C661 20 FE C7 JSR iC7FE
C664 18 CLC
C665 98 TYA
C666 65 C9 ADC xC9
C668 48 PHA
C669 A5 CA LDA xCA
C66B 69 00 ADC #$00
C66D 48 PHA
C66E A5 89 LDA x89
C670 48 PHA
C671 A5 88 LDA x88
C673 48 PHA
C674 A9 A4 LDA #$A4
C676 20 13 CE JSR iCE13
C679 20 A7 CC JSR iCCA7
C67C 20 A4 CC JSR iCCA4
C67F A5 B5 LDA xB5
C681 09 7F ORA #$7F
C683 25 B1 AND xB1
C685 85 B1 STA xB1
C687 A9 92 LDA #$92
C689 A0 C6 LDY #$C6
C68B 85 71 STA x71
C68D 84 72 STY x72
C68F 4C 5D CD JMP iCD5D
C692 A9 91 LDA #$91
C694 A0 D8 LDY #$D8
C696 20 74 DA JSR iDA74
C699 20 C8 00 JSR iC8
C69C C9 A9 CMP #$A9
C69E D0 06 BNE iC6A6
C6A0 20 C2 00 JSR iC2
C6A3 20 A4 CC JSR iCCA4
C6A6 20 FD DA iC6A6 JSR iDAFD
C6A9 20 52 CD JSR iCD52
C6AC A5 99 LDA x99
C6AE 48 PHA
C6AF A5 98 LDA x98
C6B1 48 PHA
C6B2 A9 81 LDA #$81
C6B4 48 PHA
C6B5 20 E1 FF iC6B5 JSR GETSTP
C6B8 A5 C9 LDA xC9
C6BA A4 CA LDY xCA
C6BC F0 06 BEQ iC6C4
C6BE 85 8C STA x8C
C6C0 84 8D STY x8D
C6C2 A0 00 LDY #$00
C6C4 B1 C9 iC6C4 LDA (xC9),Y
C6C6 F0 07 BEQ iC6CF
C6C8 C9 3A CMP #$3A
C6CA F0 1D BEQ iC6E9
C6CC 4C 1C CE iC6CC JMP iCE1C
C6CF A0 02 iC6CF LDY #$02
C6D1 B1 C9 LDA (xC9),Y
C6D3 18 CLC
C6D4 F0 5F BEQ iC735
C6D6 C8 INY
C6D7 B1 C9 LDA (xC9),Y
C6D9 85 88 STA x88
C6DB C8 INY
C6DC B1 C9 LDA (xC9),Y
C6DE 85 89 STA x89
C6E0 98 TYA
C6E1 65 C9 ADC xC9
C6E3 85 C9 STA xC9
C6E5 90 02 BCC iC6E9
C6E7 E6 CA INC xCA
C6E9 20 C2 00 iC6E9 JSR iC2
C6EC 20 F2 C6 JSR iC6F2
C6EF 4C B5 C6 JMP iC6B5
C6F2 F0 6A iC6F2 BEQ iC75E
C6F4 38 SEC
C6F5 E9 80 iC6F5 SBC #$80
C6F7 B0 03 BCS iC6FC
C6F9 4C 9D C8 JMP LET
C6FC C9 23 iC6FC CMP #$23
C6FE B0 CC BCS iC6CC
C700 0A ASL
C701 A8 TAY
C702 B9 01 C0 LDA BASADDR+1,Y
C705 48 PHA
C706 B9 00 C0 LDA BASADDR,Y
C709 48 PHA
C70A 4C C2 00 JMP iC2
C70D 38 RESTORE SEC
C70E A5 7A LDA x7A
C710 E9 01 SBC #$01
C712 A4 7B LDY x7B
C714 B0 01 BCS iC717
C716 88 DEY
C717 85 90 iC717 STA x90
C719 84 91 STY x91
C71B 60 RTS
C71C B0 01 TSTSTOP BCS iC71F
C71E 18 END CLC
C71F D0 3D iC71F BNE iC75E
C721 A5 C9 LDA xC9
C723 A4 CA LDY xCA
C725 F0 0C BEQ iC733
C727 85 8C STA x8C
C729 84 8D STY x8D
C72B A5 88 iC72B LDA x88
C72D A4 89 LDY x89
C72F 85 8A STA x8A
C731 84 8B STY x8B
C733 68 iC733 PLA
C734 68 PLA
C735 A9 A4 iC735 LDA #$A4
C737 A0 C2 LDY #$C2
C739 A2 00 LDX #$00
C73B 86 64 STX x64
C73D 90 03 BCC iC742
C73F 4C 80 C3 JMP iC380
C742 4C 8B C3 iC742 JMP iC38B
C745 D0 17 CONT BNE iC75E
C747 A2 DF LDX #$DF
C749 A4 8D LDY x8D
C74B D0 03 BNE iC750
C74D 4C 59 C3 JMP iC359
C750 A5 8C iC750 LDA x8C
C752 85 C9 STA xC9
C754 84 CA STY xCA
C756 A5 8A LDA x8A
C758 A4 8B LDY x8B
C75A 85 88 STA x88
C75C 84 89 STY x89
C75E 60 iC75E RTS
C75F 20 76 D6 JSR iD676
C762 D0 FA BNE iC75E
C764 E8 INX
C765 E0 0A CPX #$0A
C767 B0 04 BCS iC76D
C769 CA DEX
C76A 86 04 STX x04
C76C 60 RTS
C76D 4C 30 D1 iC76D JMP iD130
C770 D0 EC CLR BNE iC75E
C772 4C 6A C5 JMP iC56A
C775 D0 03 RUN BNE iC77A
C777 4C 67 C5 JMP iC567
C77A 20 6A C5 iC77A JSR iC56A
C77D 4C 94 C7 JMP iC794
C780 A9 03 GOSUB LDA #$03
C782 20 1D C3 JSR iC31D
C785 A5 CA LDA xCA
C787 48 PHA
C788 A5 C9 LDA xC9
C78A 48 PHA
C78B A5 89 LDA x89
C78D 48 PHA
C78E A5 88 LDA x88
C790 48 PHA
C791 A9 8D LDA #$8D
C793 48 PHA
C794 20 C8 00 iC794 JSR iC8
C797 20 9D C7 JSR GOTO
C79A 4C B5 C6 JMP iC6B5
C79D 20 63 C8 GOTO JSR iC863
C7A0 20 01 C8 JSR iC801
C7A3 A5 89 LDA x89
C7A5 C5 09 CMP x09
C7A7 B0 0B BCS iC7B4
C7A9 98 TYA
C7AA 38 SEC
C7AB 65 C9 ADC xC9
C7AD A6 CA LDX xCA
C7AF 90 07 BCC iC7B8
C7B1 E8 INX
C7B2 B0 04 BCS iC7B8
C7B4 A5 7A iC7B4 LDA x7A
C7B6 A6 7B LDX x7B
C7B8 20 26 C5 iC7B8 JSR iC526
C7BB 90 1E BCC iC7DB
C7BD A5 AE LDA xAE
C7BF E9 01 SBC #$01
C7C1 85 C9 STA xC9
C7C3 A5 AF LDA xAF
C7C5 E9 00 SBC #$00
C7C7 85 CA STA xCA
C7C9 60 iC7C9 RTS
C7CA D0 FD RETURN BNE iC7C9
C7CC A9 FF LDA #$FF
C7CE 85 98 STA x98
C7D0 20 AC C2 JSR iC2AC
C7D3 9A TXS
C7D4 C9 8D CMP #$8D
C7D6 F0 0B BEQ iC7E3
C7D8 A2 16 LDX #$16
C7DA 2C A2 5F .byte $2C
C7DB A2 5F iC7DB LDX #$5F
C7DD 4C 59 C3 JMP iC359
C7E0 4C 1C CE iC7E0 JMP iCE1C
C7E3 68 iC7E3 PLA
C7E4 68 PLA
C7E5 85 88 STA x88
C7E7 68 PLA
C7E8 85 89 STA x89
C7EA 68 PLA
C7EB 85 C9 STA xC9
C7ED 68 PLA
C7EE 85 CA STA xCA
C7F0 20 FE C7 DATA JSR iC7FE
C7F3 98 iC7F3 TYA
C7F4 18 CLC
C7F5 65 C9 ADC xC9
C7F7 85 C9 STA xC9
C7F9 90 02 BCC iC7FD
C7FB E6 CA INC xCA
C7FD 60 iC7FD RTS
C7FE A2 3A iC7FE LDX #$3A
C800 2C A2 00 .byte $2C
C801 A2 00 iC801 LDX #$00
C803 86 5A STX x5A
C805 A0 00 LDY #$00
C807 84 5B STY x5B
C809 A5 5B iC809 LDA x5B
C80B A6 5A LDX x5A
C80D 85 5A STA x5A
C80F 86 5B STX x5B
C811 B1 C9 iC811 LDA (xC9),Y
C813 F0 E8 BEQ iC7FD
C815 C5 5B CMP x5B
C817 F0 E4 BEQ iC7FD
C819 C8 INY
C81A C9 22 CMP #$22
C81C F0 EB BEQ iC809
C81E D0 F1 BNE iC811
C820 20 B8 CC IF JSR iCCB8
C823 20 C8 00 JSR iC8
C826 C9 89 CMP #$89
C828 F0 05 BEQ iC82F
C82A A9 A7 LDA #$A7
C82C 20 13 CE JSR iCE13
C82F A5 B0 iC82F LDA xB0
C831 D0 05 BNE iC838
C833 20 01 C8 REM JSR iC801
C836 F0 BB BEQ iC7F3
C838 20 C8 00 iC838 JSR iC8
C83B B0 03 BCS iC840
C83D 4C 9D C7 JMP GOTO
C840 4C F2 C6 iC840 JMP iC6F2
C843 20 76 D6 ON JSR iD676
C846 48 PHA
C847 C9 8D CMP #$8D
C849 F0 04 BEQ iC84F
C84B C9 89 iC84B CMP #$89
C84D D0 91 BNE iC7E0
C84F C6 B4 iC84F DEC xB4
C851 D0 04 BNE iC857
C853 68 PLA
C854 4C F5 C6 JMP iC6F5
C857 20 C2 00 iC857 JSR iC2
C85A 20 63 C8 JSR iC863
C85D C9 2C CMP #$2C
C85F F0 EE BEQ iC84F
C861 68 PLA
C862 60 iC862 RTS
C863 A2 00 iC863 LDX #$00
C865 86 08 STX x08
C867 86 09 STX x09
C869 B0 F7 iC869 BCS iC862
C86B E9 2F SBC #$2F
C86D 85 5A STA x5A
C86F A5 09 LDA x09
C871 85 71 STA x71
C873 C9 19 CMP #$19
C875 B0 D4 BCS iC84B
C877 A5 08 LDA x08
C879 0A ASL
C87A 26 71 ROL x71
C87C 0A ASL
C87D 26 71 ROL x71
C87F 65 08 ADC x08
C881 85 08 STA x08
C883 A5 71 LDA x71
C885 65 09 ADC x09
C887 85 09 STA x09
C889 06 08 ASL x08
C88B 26 09 ROL x09
C88D A5 08 LDA x08
C88F 65 5A ADC x5A
C891 85 08 STA x08
C893 90 02 BCC iC897
C895 E6 09 INC x09
C897 20 C2 00 iC897 JSR iC2
C89A 4C 69 C8 JMP iC869
C89D 20 7B CF LET JSR iCF7B
C8A0 85 98 STA x98
C8A2 84 99 STY x99
C8A4 A9 B2 LDA #$B2
C8A6 20 13 CE JSR iCE13
C8A9 A5 5F LDA x5F
C8AB 48 PHA
C8AC A5 5E LDA x5E
C8AE 48 PHA
C8AF 20 B8 CC JSR iCCB8
C8B2 68 PLA
C8B3 2A ROL
C8B4 20 AA CC JSR iCCAA
C8B7 D0 18 BNE iC8D1
C8B9 68 PLA
C8BA 10 12 iC8BA BPL iC8CE
C8BC 20 ED DA JSR iDAED
C8BF 20 A7 D0 JSR iD0A7
C8C2 A0 00 LDY #$00
C8C4 A5 B3 LDA xB3
C8C6 91 98 STA (x98),Y
C8C8 C8 INY
C8C9 A5 B4 LDA xB4
C8CB 91 98 STA (x98),Y
C8CD 60 RTS
C8CE 4C A2 DA iC8CE JMP iDAA2
C8D1 68 iC8D1 PLA
C8D2 A4 99 iC8D2 LDY x99
C8D4 C0 D0 CPY #$D0
C8D6 D0 53 BNE iC92B
C8D8 20 7E D5 JSR iD57E
C8DB C9 06 CMP #$06
C8DD F0 03 BEQ iC8E2
C8DF 4C 30 D1 JMP iD130
C8E2 A0 00 iC8E2 LDY #$00
C8E4 84 B0 STY xB0
C8E6 84 B5 STY xB5
C8E8 84 C0 iC8E8 STY xC0
C8EA 20 1C C9 JSR iC91C
C8ED 20 B4 D9 JSR iD9B4
C8F0 E6 C0 INC xC0
C8F2 A4 C0 LDY xC0
C8F4 20 1C C9 JSR iC91C
C8F7 20 DE DA JSR iDADE
C8FA AA TAX
C8FB F0 05 BEQ iC902
C8FD E8 INX
C8FE 8A TXA
C8FF 20 BF D9 JSR iD9BF
C902 A4 C0 iC902 LDY xC0
C904 C8 INY
C905 C0 06 CPY #$06
C907 D0 DF BNE iC8E8
C909 20 B4 D9 JSR iD9B4
C90C 20 6D DB JSR iDB6D
C90F A2 02 LDX #$02
C911 78 SEI
C912 B5 B2 iC912 LDA xB2,X
C914 9D 00 02 STA x0200,X
C917 CA DEX
C918 10 F8 BPL iC912
C91A 58 CLI
C91B 60 RTS
C91C B1 71 iC91C LDA (x71),Y
C91E 20 CF 00 JSR iCF
C921 90 03 BCC iC926
C923 4C 30 D1 JMP iD130
C926 E9 2F iC926 SBC #$2F
C928 4C 50 DC JMP iDC50
C92B A0 02 iC92B LDY #$02
C92D B1 B3 LDA (xB3),Y
C92F C5 83 CMP x83
C931 90 17 BCC iC94A
C933 D0 07 BNE iC93C
C935 88 DEY
C936 B1 B3 LDA (xB3),Y
C938 C5 82 CMP x82
C93A 90 0E BCC iC94A
C93C A4 B4 iC93C LDY xB4
C93E C4 7D CPY x7D
C940 90 08 BCC iC94A
C942 D0 0D BNE iC951
C944 A5 B3 LDA xB3
C946 C5 7C CMP x7C
C948 B0 07 BCS iC951
C94A A5 B3 iC94A LDA xB3
C94C A4 B4 LDY xB4
C94E 4C 67 C9 JMP iC967
C951 A0 00 iC951 LDY #$00
C953 B1 B3 LDA (xB3),Y
C955 20 59 D3 JSR iD359
C958 A5 9F LDA x9F
C95A A4 A0 LDY xA0
C95C 85 BE STA xBE
C95E 84 BF STY xBF
C960 20 52 D5 JSR iD552
C963 A9 B0 LDA #$B0
C965 A0 00 LDY #$00
C967 85 9F iC967 STA x9F
C969 84 A0 STY xA0
C96B 20 B3 D5 JSR iD5B3
C96E A0 00 LDY #$00
C970 B1 9F LDA (x9F),Y
C972 91 98 STA (x98),Y
C974 C8 INY
C975 B1 9F LDA (x9F),Y
C977 91 98 STA (x98),Y
C979 C8 INY
C97A B1 9F LDA (x9F),Y
C97C 91 98 STA (x98),Y
C97E 60 RTS
C97F 20 85 C9 PRINTF JSR CMD
C982 4C D6 CA JMP iCAD6
C985 20 76 D6 CMD JSR iD676
C988 F0 05 BEQ iC98F
C98A A9 2C LDA #$2C
C98C 20 13 CE JSR iCE13
C98F 08 iC98F PHP
C990 20 C9 FF JSR CKOUT
C993 86 03 STX x03
C995 28 PLP
C996 4C 9F C9 JMP PRINT
C999 20 2A CA iC999 JSR iCA2A
C99C 20 C8 00 iC99C JSR iC8
C99F F0 31 PRINT BEQ iC9D2
C9A1 F0 55 iC9A1 BEQ iC9F8
C9A3 C9 A3 CMP #$A3
C9A5 F0 5F BEQ iCA06
C9A7 C9 A6 CMP #$A6
C9A9 F0 5B BEQ iCA06
C9AB C9 2C CMP #$2C
C9AD F0 4A BEQ iC9F9
C9AF C9 3B CMP #$3B
C9B1 F0 6E BEQ iCA21
C9B3 20 B8 CC JSR iCCB8
C9B6 24 5E BIT x5E
C9B8 30 DF BMI iC999
C9BA 20 AF DC JSR iDCAF
C9BD 20 6B D3 JSR iD36B
C9C0 20 2A CA JSR iCA2A
C9C3 20 44 CA JSR iCA44
C9C6 D0 D4 BNE iC99C
C9C8 A0 00 iC9C8 LDY #$00
C9CA 94 0A STY x0A,X
C9CC A2 09 LDX #$09
C9CE A5 03 LDA x03
C9D0 D0 26 BNE iC9F8
C9D2 A5 03 iC9D2 LDA x03
C9D4 D0 02 BNE iC9D8
C9D6 85 05 STA x05
C9D8 A9 0D iC9D8 LDA #$0D
C9DA 20 49 CA JSR iCA49
C9DD A9 0A LDA #$0A
C9DF 20 49 CA JSR iCA49
C9E2 A5 03 iC9E2 LDA x03
C9E4 D0 12 BNE iC9F8
C9E6 8A TXA
C9E7 48 PHA
C9E8 A6 04 LDX x04
C9EA F0 08 BEQ iC9F4
C9EC A9 00 LDA #$00
C9EE 20 49 CA iC9EE JSR iCA49
C9F1 CA DEX
C9F2 D0 FA BNE iC9EE
C9F4 86 05 iC9F4 STX x05
C9F6 68 PLA
C9F7 AA TAX
C9F8 60 iC9F8 RTS
C9F9 A5 05 iC9F9 LDA x05
C9FB 38 SEC
C9FC E9 0A iC9FC SBC #$0A
C9FE B0 FC BCS iC9FC
CA00 49 FF EOR #$FF
CA02 69 01 ADC #$01
CA04 D0 14 BNE iCA1A
CA06 48 iCA06 PHA
CA07 20 73 D6 JSR iD673
CA0A C9 29 CMP #$29
CA0C D0 75 BNE iCA83
CA0E 68 PLA
CA0F C9 A3 CMP #$A3
CA11 D0 08 BNE iCA1B
CA13 8A TXA
CA14 E5 05 SBC x05
CA16 90 09 BCC iCA21
CA18 F0 07 BEQ iCA21
CA1A AA iCA1A TAX
CA1B 20 44 CA iCA1B JSR iCA44
CA1E CA DEX
CA1F D0 FA BNE iCA1B
CA21 20 C2 00 iCA21 JSR iC2
CA24 4C A1 C9 JMP iC9A1
CA27 20 6B D3 iCA27 JSR iD36B
CA2A 20 7E D5 iCA2A JSR iD57E
CA2D AA TAX
CA2E A0 00 LDY #$00
CA30 E8 INX
CA31 CA iCA31 DEX
CA32 F0 C4 BEQ iC9F8
CA34 B1 71 LDA (x71),Y
CA36 20 49 CA JSR iCA49
CA39 C8 INY
CA3A C9 0D CMP #$0D
CA3C D0 F3 BNE iCA31
CA3E 20 E2 C9 JSR iC9E2
CA41 4C 31 CA JMP iCA31
CA44 A9 1D iCA44 LDA #$1D
CA46 2C A9 3F .byte $2C
CA47 A9 3F iCA47 LDA #$3F
CA49 24 64 iCA49 BIT x64
CA4B 30 27 BMI iCA74
CA4D 48 PHA
CA4E C9 1D CMP #$1D
CA50 F0 18 BEQ iCA6A
CA52 C9 9D CMP #$9D
CA54 F0 04 BEQ iCA5A
CA56 C9 14 CMP #$14
CA58 D0 0A BNE iCA64
CA5A A5 05 iCA5A LDA x05
CA5C F0 12 BEQ iCA70
CA5E A5 03 LDA x03
CA60 D0 0E BNE iCA70
CA62 C6 05 DEC x05
CA64 29 7F iCA64 AND #$7F
CA66 C9 20 CMP #$20
CA68 90 06 BCC iCA70
CA6A A5 03 iCA6A LDA x03
CA6C 20 CC E1 JSR iE1CC
CA6F EA NOP
CA70 68 iCA70 PLA
CA71 20 D2 FF JSR BSOUT
CA74 29 FF iCA74 AND #$FF
CA76 60 RTS
CA77 A5 62 iCA77 LDA x62
CA79 F0 0B BEQ iCA86
CA7B 20 C2 E1 JSR iE1C2
CA7E EA NOP
CA7F 85 88 STA x88
CA81 84 89 STY x89
CA83 4C 1C CE iCA83 JMP iCE1C
CA86 A5 03 iCA86 LDA x03
CA88 F0 05 BEQ iCA8F
CA8A A2 C4 LDX #$C4
CA8C 4C 59 C3 JMP iC359
CA8F A9 23 iCA8F LDA #$23
CA91 A0 CC LDY #$CC
CA93 20 27 CA JSR iCA27
CA96 A5 8C LDA x8C
CA98 A4 8D LDY x8D
CA9A 85 C9 STA xC9
CA9C 84 CA STY xCA
CA9E 60 RTS
CA9F 20 8B D2 GET JSR iD28B
CAA2 C9 23 CMP #$23
CAA4 D0 10 BNE iCAB6
CAA6 20 C2 00 JSR iC2
CAA9 20 76 D6 JSR iD676
CAAC A9 2C LDA #$2C
CAAE 20 13 CE JSR iCE13
CAB1 20 C6 FF JSR CHKIN
CAB4 86 03 STX x03
CAB6 A2 0B iCAB6 LDX #$0B
CAB8 A0 00 LDY #$00
CABA 84 0B STY x0B
CABC A9 40 LDA #$40
CABE 20 2A CB JSR iCB2A
CAC1 A6 03 LDX x03
CAC3 D0 13 BNE iCAD8
CAC5 60 RTS
CAC6 20 76 D6 INPUTF JSR iD676
CAC9 A9 2C LDA #$2C
CACB 20 13 CE JSR iCE13
CACE 20 C6 FF JSR CHKIN
CAD1 86 03 STX x03
CAD3 20 F1 CA JSR iCAF1
CAD6 A5 03 iCAD6 LDA x03
CAD8 20 CC FF iCAD8 JSR CLRCH
CADB A2 00 LDX #$00
CADD 86 03 STX x03
CADF 60 RTS
CAE0 46 64 INPUT LSR x64
CAE2 C9 22 CMP #$22
CAE4 D0 0B BNE iCAF1
CAE6 20 D1 CD JSR iCDD1
CAE9 A9 3B LDA #$3B
CAEB 20 13 CE JSR iCE13
CAEE 20 2A CA JSR iCA2A
CAF1 20 8B D2 iCAF1 JSR iD28B
CAF4 A9 2C LDA #$2C
CAF6 85 09 STA x09
CAF8 20 17 CB iCAF8 JSR iCB17
CAFB A5 03 LDA x03
CAFD F0 0D BEQ iCB0C
CAFF AD 0C 02 LDA STATUS
CB02 29 02 AND #$02
CB04 F0 06 BEQ iCB0C
CB06 20 D6 CA JSR iCAD6
CB09 4C F0 C7 JMP DATA
CB0C A5 0A iCB0C LDA x0A
CB0E D0 19 BNE iCB29 ; This branch goes to nirvana!
CB10 A5 03 LDA x03
CB12 D0 E4 BNE iCAF8
CB14 4C 9B E1 JMP iE19B
CB17 A5 03 iCB17 LDA x03
CB19 D0 06 BNE iCB21
CB1B 20 47 CA JSR iCA47
CB1E 20 44 CA JSR iCA44
CB21 4C 68 C4 iCB21 JMP iC468
CB24 A6 90 READ LDX x90
CB26 A4 91 LDY x91
; *** CB28: CALL ADDRESS ALIGNMENT. This may indicate misassembly ***
iCB29 = * + 1 ; referenced
CB28 A9 98 LDA #$98
CB2A 85 62 iCB2A STA x62
CB2C 86 92 STX x92
CB2E 84 93 STY x93
CB30 20 7B CF iCB30 JSR iCF7B
CB33 85 98 STA x98
CB35 84 99 STY x99
CB37 A5 C9 LDA xC9
CB39 A4 CA LDY xCA
CB3B 85 08 STA x08
CB3D 84 09 STY x09
CB3F A6 92 LDX x92
CB41 A4 93 LDY x93
CB43 86 C9 STX xC9
CB45 84 CA STY xCA
CB47 20 C8 00 JSR iC8
CB4A D0 1F BNE iCB6B
CB4C 24 62 BIT x62
CB4E 50 0B BVC iCB5B
CB50 20 E4 FF JSR GET
CB53 85 0A STA x0A
CB55 A0 00 LDY #$00
CB57 A2 09 LDX #$09
CB59 D0 0C BNE iCB67
CB5B 30 72 iCB5B BMI iCBCF
CB5D A5 03 LDA x03
CB5F D0 03 BNE iCB64
CB61 20 47 CA JSR iCA47
CB64 20 17 CB iCB64 JSR iCB17
CB67 86 C9 iCB67 STX xC9
CB69 84 CA STY xCA
CB6B 20 C2 00 iCB6B JSR iC2
CB6E 24 5E BIT x5E
CB70 10 2E BPL iCBA0
CB72 24 62 BIT x62
CB74 50 06 BVC iCB7C
CB76 A9 00 LDA #$00
CB78 20 BC E1 JSR iE1BC
CB7B EA NOP
CB7C 85 5A iCB7C STA x5A
CB7E C9 22 CMP #$22
CB80 F0 07 BEQ iCB89
CB82 A9 3A LDA #$3A
CB84 85 5A STA x5A
CB86 A9 2C LDA #$2C
CB88 18 iCB88 CLC
CB89 85 5B iCB89 STA x5B
CB8B A5 C9 LDA xC9
CB8D A4 CA LDY xCA
CB8F 69 00 ADC #$00
CB91 90 01 BCC iCB94
CB93 C8 INY
CB94 20 71 D3 iCB94 JSR iD371
CB97 20 BB D6 JSR iD6BB
CB9A 20 D2 C8 JSR iC8D2
CB9D 4C A8 CB JMP iCBA8
CBA0 20 C5 DB iCBA0 JSR iDBC5
CBA3 A5 5F LDA x5F
CBA5 20 BA C8 JSR iC8BA
CBA8 20 C8 00 iCBA8 JSR iC8
CBAB F0 07 BEQ iCBB4
CBAD C9 2C CMP #$2C
CBAF F0 03 BEQ iCBB4
CBB1 4C 77 CA JMP iCA77
CBB4 A5 C9 iCBB4 LDA xC9
CBB6 A4 CA LDY xCA
CBB8 85 92 STA x92
CBBA 84 93 STY x93
CBBC A5 08 LDA x08
CBBE A4 09 LDY x09
CBC0 85 C9 STA xC9
CBC2 84 CA STY xCA
CBC4 20 C8 00 JSR iC8
CBC7 F0 2C BEQ iCBF5
CBC9 20 11 CE JSR iCE11
CBCC 4C 30 CB JMP iCB30
CBCF 20 FE C7 iCBCF JSR iC7FE
CBD2 C8 INY
CBD3 AA TAX
CBD4 D0 12 BNE iCBE8
CBD6 A2 2A LDX #$2A
CBD8 C8 INY
CBD9 B1 C9 LDA (xC9),Y
CBDB F0 6D BEQ iCC4A
CBDD C8 INY
CBDE B1 C9 LDA (xC9),Y
CBE0 85 8E STA x8E
CBE2 C8 INY
CBE3 B1 C9 LDA (xC9),Y
CBE5 C8 INY
CBE6 85 8F STA x8F
CBE8 B1 C9 iCBE8 LDA (xC9),Y
CBEA AA TAX
CBEB 20 F3 C7 JSR iC7F3
CBEE E0 83 CPX #$83
CBF0 D0 DD BNE iCBCF
CBF2 4C 6B CB JMP iCB6B
CBF5 A5 92 iCBF5 LDA x92
CBF7 A4 93 LDY x93
CBF9 A6 62 LDX x62
CBFB 10 03 BPL iCC00
CBFD 4C 17 C7 JMP iC717
CC00 A0 00 iCC00 LDY #$00
CC02 B1 92 LDA (x92),Y
CC04 F0 0B BEQ iCC11
CC06 A5 03 LDA x03
CC08 D0 07 BNE iCC11
CC0A A9 12 LDA #$12
CC0C A0 CC LDY #$CC
CC0E 4C 27 CA JMP iCA27
CC11 60 iCC11 RTS
CC12 .byte $3F, $45, $58, $54, $52, $41, $20, $49 ;?extra i
CC1A .byte $47, $4E, $4F, $52, $45, $44, $0D, $0A ;gnoredmj
CC22 .byte $00, $3F, $52, $45, $44, $4F, $20, $46 ;.?redo f
CC2A .byte $52, $4F, $4D, $20, $53, $54, $41, $52 ;rom star
CC32 .byte $54, $0D, $0A, $00 ;tmj.
CC36 D0 04 NEXT BNE iCC3C
CC38 A0 00 LDY #$00
CC3A F0 03 BEQ iCC3F
CC3C 20 7B CF iCC3C JSR iCF7B
CC3F 85 98 iCC3F STA x98
CC41 84 99 STY x99
CC43 20 AC C2 JSR iC2AC
CC46 F0 04 BEQ iCC4C
CC48 A2 00 LDX #$00
CC4A F0 69 iCC4A BEQ iCCB5
CC4C 9A iCC4C TXS
CC4D E8 INX
CC4E E8 INX
CC4F E8 INX
CC50 E8 INX
CC51 8A TXA
CC52 E8 INX
CC53 E8 INX
CC54 E8 INX
CC55 E8 INX
CC56 E8 INX
CC57 E8 INX
CC58 86 73 STX x73
CC5A A0 01 LDY #$01
CC5C 20 74 DA JSR iDA74
CC5F BA TSX
CC60 BD 09 01 LDA STACK+9,X
CC63 85 B5 STA xB5
CC65 A5 98 LDA x98
CC67 A4 99 LDY x99
CC69 20 3C D7 JSR iD73C
CC6C 20 A2 DA JSR iDAA2
CC6F A0 01 LDY #$01
CC71 20 2F DB JSR iDB2F
CC74 BA TSX
CC75 38 SEC
CC76 FD 09 01 SBC STACK+9,X
CC79 F0 17 BEQ iCC92
CC7B BD 0F 01 LDA STACK+15,X
CC7E 85 88 STA x88
CC80 BD 10 01 LDA STACK+16,X
CC83 85 89 STA x89
CC85 BD 12 01 LDA STACK+18,X
CC88 85 C9 STA xC9
CC8A BD 11 01 LDA STACK+17,X
CC8D 85 CA STA xCA
CC8F 4C B5 C6 iCC8F JMP iC6B5
CC92 8A iCC92 TXA
CC93 69 11 ADC #$11
CC95 AA TAX
CC96 9A TXS
CC97 20 C8 00 JSR iC8
CC9A C9 2C CMP #$2C
CC9C D0 F1 BNE iCC8F
CC9E 20 C2 00 JSR iC2
CCA1 20 3C CC JSR iCC3C
CCA4 20 B8 CC iCCA4 JSR iCCB8
CCA7 18 iCCA7 CLC
CCA8 24 38 .byte $24
CCA9 38 iCCA9 SEC
CCAA 24 5E iCCAA BIT x5E
CCAC 30 03 BMI iCCB1
CCAE B0 03 BCS iCCB3
CCB0 60 iCCB0 RTS
CCB1 B0 FD iCCB1 BCS iCCB0
CCB3 A2 A8 iCCB3 LDX #$A8
CCB5 4C 59 C3 iCCB5 JMP iC359
CCB8 A6 C9 iCCB8 LDX xC9
CCBA D0 02 BNE iCCBE
CCBC C6 CA DEC xCA
CCBE C6 C9 iCCBE DEC xC9
CCC0 A2 00 LDX #$00
CCC2 24 48 .byte $24
CCC3 48 iCCC3 PHA
CCC4 8A TXA
CCC5 48 PHA
CCC6 A9 01 LDA #$01
CCC8 20 1D C3 JSR iC31D
CCCB 20 9D CD JSR iCD9D
CCCE A9 00 LDA #$00
CCD0 85 9C STA x9C
CCD2 20 C8 00 iCCD2 JSR iC8
CCD5 38 iCCD5 SEC
CCD6 E9 B1 SBC #$B1
CCD8 90 17 BCC iCCF1
CCDA C9 03 CMP #$03
CCDC B0 13 BCS iCCF1
CCDE C9 01 CMP #$01
CCE0 2A ROL
CCE1 49 01 EOR #$01
CCE3 45 9C EOR x9C
CCE5 C5 9C CMP x9C
CCE7 90 61 BCC iCD4A
CCE9 85 9C STA x9C
CCEB 20 C2 00 JSR iC2
CCEE 4C D5 CC JMP iCCD5
CCF1 A6 9C iCCF1 LDX x9C
CCF3 D0 2C BNE iCD21
CCF5 B0 7B BCS iCD72
CCF7 69 07 ADC #$07
CCF9 90 77 BCC iCD72
CCFB 65 5E ADC x5E
CCFD D0 03 BNE iCD02
CCFF 4C 15 D5 JMP iD515
CD02 69 FF iCD02 ADC #$FF
CD04 85 71 STA x71
CD06 0A ASL
CD07 65 71 ADC x71
CD09 A8 TAY
CD0A 68 iCD0A PLA
CD0B D9 74 C0 CMP OPTABLE,Y
CD0E B0 67 BCS iCD77
CD10 20 A7 CC JSR iCCA7
CD13 48 iCD13 PHA
CD14 20 3A CD iCD14 JSR iCD3A
CD17 68 PLA
CD18 A4 9A LDY x9A
CD1A 10 17 BPL iCD33
CD1C AA TAX
CD1D F0 56 BEQ iCD75
CD1F D0 5F BNE iCD80
CD21 46 5E iCD21 LSR x5E
CD23 8A TXA
CD24 2A ROL
CD25 A6 C9 LDX xC9
CD27 D0 02 BNE iCD2B
CD29 C6 CA DEC xCA
CD2B C6 C9 iCD2B DEC xC9
CD2D A0 1B LDY #$1B
CD2F 85 9C STA x9C
CD31 D0 D7 BNE iCD0A
CD33 D9 74 C0 iCD33 CMP OPTABLE,Y
CD36 B0 48 BCS iCD80
CD38 90 D9 BCC iCD13
CD3A B9 76 C0 iCD3A LDA OPTABLE+2,Y
CD3D 48 PHA
CD3E B9 75 C0 LDA OPTABLE+1,Y
CD41 48 PHA
CD42 20 4D CD JSR iCD4D
CD45 A5 9C LDA x9C
CD47 4C C3 CC JMP iCCC3
CD4A 4C 1C CE iCD4A JMP iCE1C
CD4D A5 B5 iCD4D LDA xB5
CD4F BE 74 C0 LDX OPTABLE,Y
CD52 A8 iCD52 TAY
CD53 68 PLA
CD54 85 71 STA x71
CD56 E6 71 INC x71
CD58 68 PLA
CD59 85 72 STA x72
CD5B 98 TYA
CD5C 48 PHA
CD5D 20 ED DA iCD5D JSR iDAED
CD60 A5 B4 LDA xB4
CD62 48 PHA
CD63 A5 B3 LDA xB3
CD65 48 PHA
CD66 A5 B2 LDA xB2
CD68 48 PHA
CD69 A5 B1 LDA xB1
CD6B 48 PHA
CD6C A5 B0 LDA xB0
CD6E 48 PHA
CD6F 6C 71 00 JMP (x71)
CD72 A0 FF iCD72 LDY #$FF
CD74 68 PLA
CD75 F0 23 iCD75 BEQ iCD9A
CD77 C9 64 iCD77 CMP #$64
CD79 F0 03 BEQ iCD7E
CD7B 20 A7 CC JSR iCCA7
CD7E 84 9A iCD7E STY x9A
CD80 68 iCD80 PLA
CD81 4A LSR
CD82 85 63 STA x63
CD84 68 PLA
CD85 85 B8 STA xB8
CD87 68 PLA
CD88 85 B9 STA xB9
CD8A 68 PLA
CD8B 85 BA STA xBA
CD8D 68 PLA
CD8E 85 BB STA xBB
CD90 68 PLA
CD91 85 BC STA xBC
CD93 68 PLA
CD94 85 BD STA xBD
CD96 45 B5 EOR xB5
CD98 85 BE STA xBE
CD9A A5 B0 iCD9A LDA xB0
CD9C 60 RTS
CD9D A9 00 iCD9D LDA #$00
CD9F 85 5E STA x5E
CDA1 20 C2 00 iCDA1 JSR iC2
CDA4 B0 03 BCS iCDA9
CDA6 4C C5 DB iCDA6 JMP iDBC5
CDA9 20 05 D0 iCDA9 JSR iD005
CDAC B0 7A BCS iCE28
CDAE C9 FF CMP #$FF
CDB0 D0 0F BNE iCDC1
CDB2 A9 BC LDA #$BC
CDB4 A0 CD LDY #$CD
CDB6 20 74 DA JSR iDA74
CDB9 4C C2 00 JMP iC2
CDBC .byte $82, $49, $0F, $DA, $A1 ;.ioZ!
CDC1 C9 2E iCDC1 CMP #$2E
CDC3 F0 E1 BEQ iCDA6
CDC5 C9 AB CMP #$AB
CDC7 F0 58 BEQ iCE21
CDC9 C9 AA CMP #$AA
CDCB F0 D4 BEQ iCDA1
CDCD C9 22 CMP #$22
CDCF D0 0F BNE iCDE0
CDD1 A5 C9 iCDD1 LDA xC9
CDD3 A4 CA LDY xCA
CDD5 69 00 ADC #$00
CDD7 90 01 BCC iCDDA
CDD9 C8 INY
CDDA 20 6B D3 iCDDA JSR iD36B
CDDD 4C BB D6 JMP iD6BB
CDE0 C9 A8 iCDE0 CMP #$A8
CDE2 D0 13 BNE iCDF7
CDE4 A0 18 LDY #$18
CDE6 D0 3B BNE iCE23
CDE8 20 A7 D0 JSR iD0A7
CDEB A5 B4 LDA xB4
CDED 49 FF EOR #$FF
CDEF A8 TAY
CDF0 A5 B3 LDA xB3
CDF2 49 FF EOR #$FF
CDF4 4C 78 D2 JMP iD278
CDF7 C9 A5 iCDF7 CMP #$A5
CDF9 D0 03 BNE iCDFE
CDFB 4C D6 D2 JMP iD2D6
CDFE C9 B4 iCDFE CMP #$B4
CE00 90 03 BCC iCE05
CE02 4C 97 CE JMP iCE97
CE05 20 0E CE iCE05 JSR iCE0E
CE08 20 B8 CC JSR iCCB8
CE0B A9 29 iCE0B LDA #$29
CE0D 2C A9 28 .byte $2C
CE0E A9 28 iCE0E LDA #$28
CE10 2C A9 2C .byte $2C
CE11 A9 2C iCE11 LDA #$2C
CE13 A0 00 iCE13 LDY #$00
CE15 D1 C9 CMP (xC9),Y
CE17 D0 03 BNE iCE1C
CE19 4C C2 00 JMP iC2
CE1C A2 10 iCE1C LDX #$10
CE1E 4C 59 C3 JMP iC359
CE21 A0 15 iCE21 LDY #$15
CE23 68 iCE23 PLA
CE24 68 PLA
CE25 4C 14 CD JMP iCD14
CE28 20 7B CF iCE28 JSR iCF7B
CE2B 85 B3 STA xB3
CE2D 84 B4 STY xB4
CE2F A5 94 LDA x94
CE31 A4 95 LDY x95
CE33 A6 5E LDX x5E
CE35 F0 1D BEQ iCE54
CE37 4C 9F E1 JMP iE19F
CE3A 18 CLC
CE3B C0 C9 iCE3B CPY #$C9
CE3D D0 14 BNE iCE53
CE3F 20 76 CE JSR iCE76
CE42 84 AD STY xAD
CE44 88 DEY
CE45 84 C0 STY xC0
CE47 A0 06 LDY #$06
CE49 84 AC STY xAC
CE4B A0 24 LDY #$24
CE4D 20 3A DD JSR iDD3A
CE50 4C 53 D3 JMP iD353
CE53 60 iCE53 RTS
CE54 A6 5F iCE54 LDX x5F
CE56 10 0D BPL iCE65
CE58 A0 00 LDY #$00
CE5A B1 B3 LDA (xB3),Y
CE5C AA TAX
CE5D C8 INY
CE5E B1 B3 LDA (xB3),Y
CE60 A8 TAY
CE61 8A TXA
CE62 4C 78 D2 JMP iD278
CE65 4C AB E1 iCE65 JMP iE1AB
CE68 19 .byte $19
CE69 C0 49 iCE69 CPY #$49
CE6B D0 15 BNE iCE82
CE6D 20 76 CE JSR iCE76
CE70 98 TYA
CE71 A2 A0 LDX #$A0
CE73 4C 21 DB JMP iDB21
CE76 A9 FE iCE76 LDA #$FE
CE78 A0 01 LDY #$01
CE7A 78 SEI
CE7B 20 74 DA JSR iDA74
CE7E 58 CLI
CE7F 84 B1 STY xB1
CE81 60 RTS
CE82 C9 53 iCE82 CMP #$53
CE84 D0 0A BNE iCE90
CE86 C0 54 CPY #$54
CE88 D0 06 BNE iCE90
CE8A AD 0C 02 LDA STATUS
CE8D 4C 0E DB JMP iDB0E
CE90 A5 B3 iCE90 LDA xB3
CE92 A4 B4 LDY xB4
CE94 4C 74 DA JMP iDA74
CE97 0A iCE97 ASL
CE98 48 PHA
CE99 AA TAX
CE9A 20 C2 00 JSR iC2
CE9D E0 8F CPX #$8F
CE9F 90 20 BCC iCEC1
CEA1 20 0E CE JSR iCE0E
CEA4 20 B8 CC JSR iCCB8
CEA7 20 11 CE JSR iCE11
CEAA 20 A9 CC JSR iCCA9
CEAD 68 PLA
CEAE AA TAX
CEAF A5 B4 LDA xB4
CEB1 48 PHA
CEB2 A5 B3 LDA xB3
CEB4 48 PHA
CEB5 8A TXA
CEB6 48 PHA
CEB7 20 76 D6 JSR iD676
CEBA 68 PLA
CEBB A8 TAY
CEBC 8A TXA
CEBD 48 PHA
CEBE 4C C6 CE JMP iCEC6
CEC1 20 05 CE iCEC1 JSR iCE05
CEC4 68 PLA
CEC5 A8 TAY
CEC6 B9 DE BF iCEC6 LDA xBFDE,Y
CEC9 85 A4 STA xA4
CECB B9 DF BF LDA xBFDF,Y
CECE 85 A5 STA xA5
CED0 20 A3 00 JSR iA3
CED3 4C A7 CC JMP iCCA7
CED6 A0 FF LDY #$FF
CED8 2C A0 00 BIT xA0
CEDB 84 5C STY x5C
CEDD 20 A7 D0 JSR iD0A7
CEE0 A5 B3 LDA xB3
CEE2 45 5C EOR x5C
CEE4 85 5A STA x5A
CEE6 A5 B4 LDA xB4
CEE8 45 5C EOR x5C
CEEA 85 5B STA x5B
CEEC 20 CE DA JSR iDACE
CEEF 20 A7 D0 JSR iD0A7
CEF2 A5 B4 LDA xB4
CEF4 45 5C EOR x5C
CEF6 25 5B AND x5B
CEF8 45 5C EOR x5C
CEFA A8 TAY
CEFB A5 B3 LDA xB3
CEFD 45 5C EOR x5C
CEFF 25 5A AND x5A
CF01 45 5C EOR x5C
CF03 4C 78 D2 JMP iD278
CF06 20 AA CC JSR iCCAA
CF09 B0 13 BCS iCF1E
CF0B A5 BD LDA xBD
CF0D 09 7F ORA #$7F
CF0F 25 B9 AND xB9
CF11 85 B9 STA xB9
CF13 A9 B8 LDA #$B8
CF15 A0 00 LDY #$00
CF17 20 2D DB JSR iDB2D
CF1A AA TAX
CF1B 4C 51 CF JMP iCF51
CF1E A9 00 iCF1E LDA #$00
CF20 85 5E STA x5E
CF22 C6 9C DEC x9C
CF24 20 7E D5 JSR iD57E
CF27 85 B0 STA xB0
CF29 86 B1 STX xB1
CF2B 84 B2 STY xB2
CF2D A5 BB LDA xBB
CF2F A4 BC LDY xBC
CF31 20 82 D5 JSR iD582
CF34 86 BB STX xBB
CF36 84 BC STY xBC
CF38 AA TAX
CF39 38 SEC
CF3A E5 B0 SBC xB0
CF3C F0 08 BEQ iCF46
CF3E A9 01 LDA #$01
CF40 90 04 BCC iCF46
CF42 A6 B0 LDX xB0
CF44 A9 FF LDA #$FF
CF46 85 B5 iCF46 STA xB5
CF48 A0 FF LDY #$FF
CF4A E8 INX
CF4B C8 iCF4B INY
CF4C CA DEX
CF4D D0 07 BNE iCF56
CF4F A6 B5 LDX xB5
CF51 30 0F iCF51 BMI iCF62
CF53 18 CLC
CF54 90 0C BCC iCF62
CF56 B1 BB iCF56 LDA (xBB),Y
CF58 D1 B1 CMP (xB1),Y
CF5A F0 EF BEQ iCF4B
CF5C A2 FF LDX #$FF
CF5E B0 02 BCS iCF62
CF60 A2 01 LDX #$01
CF62 E8 iCF62 INX
CF63 8A TXA
CF64 2A ROL
CF65 25 63 AND x63
CF67 F0 02 BEQ iCF6B
CF69 A9 FF LDA #$FF
CF6B 4C 0E DB iCF6B JMP iDB0E
CF6E 20 11 CE iCF6E JSR iCE11
CF71 AA DIM TAX
CF72 20 80 CF JSR iCF80
CF75 20 C8 00 JSR iC8
CF78 D0 F4 BNE iCF6E
CF7A 60 RTS
CF7B A2 00 iCF7B LDX #$00
CF7D 20 C8 00 JSR iC8
CF80 86 5D iCF80 STX x5D
CF82 85 94 iCF82 STA x94
CF84 20 C8 00 JSR iC8
CF87 20 05 D0 JSR iD005
CF8A B0 03 BCS iCF8F
CF8C 4C 1C CE iCF8C JMP iCE1C
CF8F A2 00 iCF8F LDX #$00
CF91 86 5E STX x5E
CF93 86 5F STX x5F
CF95 20 C2 00 JSR iC2
CF98 90 05 BCC iCF9F
CF9A 20 05 D0 JSR iD005
CF9D 90 0B BCC iCFAA
CF9F AA iCF9F TAX
CFA0 20 C2 00 iCFA0 JSR iC2
CFA3 90 FB BCC iCFA0
CFA5 20 05 D0 JSR iD005
CFA8 B0 F6 BCS iCFA0
CFAA C9 24 iCFAA CMP #$24
CFAC D0 06 BNE iCFB4
CFAE A9 FF LDA #$FF
CFB0 85 5E STA x5E
CFB2 D0 10 BNE iCFC4
CFB4 C9 25 iCFB4 CMP #$25
CFB6 D0 13 BNE iCFCB
CFB8 A5 61 LDA x61
CFBA D0 D0 BNE iCF8C
CFBC A9 80 LDA #$80
CFBE 85 5F STA x5F
CFC0 05 94 ORA x94
CFC2 85 94 STA x94
CFC4 8A iCFC4 TXA
CFC5 09 80 ORA #$80
CFC7 AA TAX
CFC8 20 C2 00 JSR iC2
CFCB 86 95 iCFCB STX x95
CFCD 38 SEC
CFCE 05 61 ORA x61
CFD0 E9 28 SBC #$28
CFD2 D0 03 BNE iCFD7
CFD4 4C B9 D0 JMP iD0B9
CFD7 A9 00 iCFD7 LDA #$00
CFD9 85 61 STA x61
CFDB A5 7C LDA x7C
CFDD A6 7D LDX x7D
CFDF A0 00 LDY #$00
CFE1 86 AF iCFE1 STX xAF
CFE3 85 AE iCFE3 STA xAE
CFE5 E4 7F CPX x7F
CFE7 D0 04 BNE iCFED
CFE9 C5 7E CMP x7E
CFEB F0 22 BEQ iD00F
CFED A5 94 iCFED LDA x94
CFEF D1 AE CMP (xAE),Y
CFF1 D0 08 BNE iCFFB
CFF3 A5 95 LDA x95
CFF5 C8 INY
CFF6 D1 AE CMP (xAE),Y
CFF8 F0 7F BEQ iD079
CFFA 88 DEY
CFFB 18 iCFFB CLC
CFFC A5 AE LDA xAE
CFFE 69 07 ADC #$07
D000 90 E1 BCC iCFE3
D002 E8 INX
D003 D0 DC BNE iCFE1
D005 C9 41 iD005 CMP #$41
D007 90 05 BCC iD00E
D009 E9 5B SBC #$5B
D00B 38 SEC
D00C E9 A5 SBC #$A5
D00E 60 iD00E RTS
D00F 68 iD00F PLA
D010 48 PHA
D011 C9 2A CMP #$2A
D013 D0 07 BNE iD01C
D015 A9 1A iD015 LDA #$1A
D017 A0 D0 LDY #$D0
D019 60 RTS
D01A .byte $00, $00 ;..
D01C A5 94 iD01C LDA x94
D01E A4 95 LDY x95
D020 C9 54 CMP #$54
D022 D0 0B BNE iD02F
D024 C0 C9 CPY #$C9
D026 F0 ED BEQ iD015
D028 C0 49 CPY #$49
D02A D0 03 BNE iD02F
D02C 4C 1C CE iD02C JMP iCE1C
D02F C9 53 iD02F CMP #$53
D031 D0 04 BNE iD037
D033 C0 54 CPY #$54
D035 F0 F5 BEQ iD02C
D037 A5 7E iD037 LDA x7E
D039 A4 7F LDY x7F
D03B 85 AE STA xAE
D03D 84 AF STY xAF
D03F A5 80 LDA x80
D041 A4 81 LDY x81
D043 85 A9 STA xA9
D045 84 AA STY xAA
D047 18 CLC
D048 69 07 ADC #$07
D04A 90 01 BCC iD04D
D04C C8 INY
D04D 85 A7 iD04D STA xA7
D04F 84 A8 STY xA8
D051 20 DA C2 JSR iC2DA
D054 A5 A7 LDA xA7
D056 A4 A8 LDY xA8
D058 C8 INY
D059 85 7E STA x7E
D05B 84 7F STY x7F
D05D A0 00 LDY #$00
D05F A5 94 LDA x94
D061 91 AE STA (xAE),Y
D063 C8 INY
D064 A5 95 LDA x95
D066 91 AE STA (xAE),Y
D068 A9 00 LDA #$00
D06A C8 INY
D06B 91 AE STA (xAE),Y
D06D C8 INY
D06E 91 AE STA (xAE),Y
D070 C8 INY
D071 91 AE STA (xAE),Y
D073 C8 INY
D074 91 AE STA (xAE),Y
D076 C8 INY
D077 91 AE STA (xAE),Y
D079 A5 AE iD079 LDA xAE
D07B 18 CLC
D07C 69 02 ADC #$02
D07E A4 AF LDY xAF
D080 90 01 BCC iD083
D082 C8 INY
D083 85 96 iD083 STA x96
D085 84 97 STY x97
D087 60 RTS
D088 A5 5C iD088 LDA x5C
D08A 0A ASL
D08B 69 05 ADC #$05
D08D 65 AE ADC xAE
D08F A4 AF LDY xAF
D091 90 01 BCC iD094
D093 C8 INY
D094 85 A7 iD094 STA xA7
D096 84 A8 STY xA8
D098 60 RTS
D099 .byte $90, $80, $00, $00 ;....
D09D 20 C2 00 iD09D JSR iC2
D0A0 20 A4 CC JSR iCCA4
D0A3 A5 B5 iD0A3 LDA xB5
D0A5 30 0D BMI iD0B4
D0A7 A5 B0 iD0A7 LDA xB0
D0A9 C9 90 CMP #$90
D0AB 90 09 BCC iD0B6
D0AD A9 99 LDA #$99
D0AF A0 D0 LDY #$D0
D0B1 20 2D DB JSR iDB2D
D0B4 D0 7A iD0B4 BNE iD130
D0B6 4C 6D DB iD0B6 JMP iDB6D
D0B9 A5 5D iD0B9 LDA x5D
D0BB 05 5F ORA x5F
D0BD 48 PHA
D0BE A5 5E LDA x5E
D0C0 48 PHA
D0C1 A0 00 LDY #$00
D0C3 98 iD0C3 TYA
D0C4 48 PHA
D0C5 A5 95 LDA x95
D0C7 48 PHA
D0C8 A5 94 LDA x94
D0CA 48 PHA
D0CB 20 9D D0 JSR iD09D
D0CE 68 PLA
D0CF 85 94 STA x94
D0D1 68 PLA
D0D2 85 95 STA x95
D0D4 68 PLA
D0D5 A8 TAY
D0D6 BA TSX
D0D7 BD 02 01 LDA STACK+2,X
D0DA 48 PHA
D0DB BD 01 01 LDA STACK+1,X
D0DE 48 PHA
D0DF A5 B3 LDA xB3
D0E1 9D 02 01 STA STACK+2,X
D0E4 A5 B4 LDA xB4
D0E6 9D 01 01 STA STACK+1,X
D0E9 C8 INY
D0EA 20 C8 00 JSR iC8
D0ED C9 2C CMP #$2C
D0EF F0 D2 BEQ iD0C3
D0F1 84 5C STY x5C
D0F3 20 0B CE JSR iCE0B
D0F6 68 PLA
D0F7 85 5E STA x5E
D0F9 68 PLA
D0FA 85 5F STA x5F
D0FC 29 7F AND #$7F
D0FE 85 5D STA x5D
D100 A6 7E LDX x7E
D102 A5 7F LDA x7F
D104 86 AE iD104 STX xAE
D106 85 AF STA xAF
D108 C5 81 CMP x81
D10A D0 04 BNE iD110
D10C E4 80 CPX x80
D10E F0 39 BEQ iD149
D110 A0 00 iD110 LDY #$00
D112 B1 AE LDA (xAE),Y
D114 C8 INY
D115 C5 94 CMP x94
D117 D0 06 BNE iD11F
D119 A5 95 LDA x95
D11B D1 AE CMP (xAE),Y
D11D F0 16 BEQ iD135
D11F C8 iD11F INY
D120 B1 AE LDA (xAE),Y
D122 18 CLC
D123 65 AE ADC xAE
D125 AA TAX
D126 C8 INY
D127 B1 AE LDA (xAE),Y
D129 65 AF ADC xAF
D12B 90 D7 BCC iD104
D12D A2 70 iD12D LDX #$70
D12F 2C A2 35 .byte $2C
D130 A2 35 iD130 LDX #$35
D132 4C 59 C3 iD132 JMP iC359
D135 A2 7D iD135 LDX #$7D
D137 A5 5D LDA x5D
D139 D0 F7 BNE iD132
D13B 20 88 D0 JSR iD088
D13E A5 5C LDA x5C
D140 A0 04 LDY #$04
D142 D1 AE CMP (xAE),Y
D144 D0 E7 BNE iD12D
D146 4C D3 D1 JMP iD1D3
D149 20 88 D0 iD149 JSR iD088
D14C 20 2A C3 JSR iC32A
D14F A9 00 LDA #$00
D151 A8 TAY
D152 85 C1 STA xC1
D154 A2 05 LDX #$05
D156 A5 94 LDA x94
D158 91 AE STA (xAE),Y
D15A 10 01 BPL iD15D
D15C CA DEX
D15D C8 iD15D INY
D15E A5 95 LDA x95
D160 91 AE STA (xAE),Y
D162 10 02 BPL iD166
D164 CA DEX
D165 CA DEX
D166 86 C0 iD166 STX xC0
D168 A5 5C LDA x5C
D16A C8 INY
D16B C8 INY
D16C C8 INY
D16D 91 AE STA (xAE),Y
D16F A2 0B iD16F LDX #$0B
D171 A9 00 LDA #$00
D173 24 5D BIT x5D
D175 50 08 BVC iD17F
D177 68 PLA
D178 18 CLC
D179 69 01 ADC #$01
D17B AA TAX
D17C 68 PLA
D17D 69 00 ADC #$00
D17F C8 iD17F INY
D180 91 AE STA (xAE),Y
D182 C8 INY
D183 8A TXA
D184 91 AE STA (xAE),Y
D186 20 33 D2 JSR iD233
D189 86 C0 STX xC0
D18B 85 C1 STA xC1
D18D A4 71 LDY x71
D18F C6 5C DEC x5C
D191 D0 DC BNE iD16F
D193 65 A8 ADC xA8
D195 B0 5D BCS iD1F4
D197 85 A8 STA xA8
D199 A8 TAY
D19A 8A TXA
D19B 65 A7 ADC xA7
D19D 90 03 BCC iD1A2
D19F C8 INY
D1A0 F0 52 BEQ iD1F4
D1A2 20 2A C3 iD1A2 JSR iC32A
D1A5 85 80 STA x80
D1A7 84 81 STY x81
D1A9 A9 00 LDA #$00
D1AB E6 C1 INC xC1
D1AD A4 C0 LDY xC0
D1AF F0 05 BEQ iD1B6
D1B1 88 iD1B1 DEY
D1B2 91 A7 STA (xA7),Y
D1B4 D0 FB BNE iD1B1
D1B6 C6 A8 iD1B6 DEC xA8
D1B8 C6 C1 DEC xC1
D1BA D0 F5 BNE iD1B1
D1BC E6 A8 INC xA8
D1BE 38 SEC
D1BF A5 80 LDA x80
D1C1 E5 AE SBC xAE
D1C3 A0 02 LDY #$02
D1C5 91 AE STA (xAE),Y
D1C7 A5 81 LDA x81
D1C9 C8 INY
D1CA E5 AF SBC xAF
D1CC 91 AE STA (xAE),Y
D1CE A5 5D LDA x5D
D1D0 D0 60 BNE iD232
D1D2 C8 INY
D1D3 B1 AE iD1D3 LDA (xAE),Y
D1D5 85 5C STA x5C
D1D7 A9 00 LDA #$00
D1D9 85 C0 STA xC0
D1DB 85 C1 iD1DB STA xC1
D1DD C8 INY
D1DE 68 PLA
D1DF AA TAX
D1E0 85 B3 STA xB3
D1E2 68 PLA
D1E3 85 B4 STA xB4
D1E5 D1 AE CMP (xAE),Y
D1E7 90 0E BCC iD1F7
D1E9 D0 06 BNE iD1F1
D1EB C8 INY
D1EC 8A TXA
D1ED D1 AE CMP (xAE),Y
D1EF 90 07 BCC iD1F8
D1F1 4C 2D D1 iD1F1 JMP iD12D
D1F4 4C 57 C3 iD1F4 JMP iC357
D1F7 C8 iD1F7 INY
D1F8 A5 C1 iD1F8 LDA xC1
D1FA 05 C0 ORA xC0
D1FC 18 CLC
D1FD F0 0A BEQ iD209
D1FF 20 33 D2 JSR iD233
D202 8A TXA
D203 65 B3 ADC xB3
D205 AA TAX
D206 98 TYA
D207 A4 71 LDY x71
D209 65 B4 iD209 ADC xB4
D20B 86 C0 STX xC0
D20D C6 5C DEC x5C
D20F D0 CA BNE iD1DB
D211 A2 05 LDX #$05
D213 A5 94 LDA x94
D215 10 01 BPL iD218
D217 CA DEX
D218 A5 95 iD218 LDA x95
D21A 10 02 BPL iD21E
D21C CA DEX
D21D CA DEX
D21E 86 77 iD21E STX x77
D220 A9 00 LDA #$00
D222 20 3C D2 JSR iD23C
D225 8A TXA
D226 65 A7 ADC xA7
D228 85 96 STA x96
D22A 98 TYA
D22B 65 A8 ADC xA8
D22D 85 97 STA x97
D22F A8 TAY
D230 A5 96 LDA x96
D232 60 iD232 RTS
D233 84 71 iD233 STY x71
D235 B1 AE LDA (xAE),Y
D237 85 77 STA x77
D239 88 DEY
D23A B1 AE LDA (xAE),Y
D23C 85 78 iD23C STA x78
D23E A9 10 LDA #$10
D240 85 AC STA xAC
D242 A2 00 LDX #$00
D244 A0 00 LDY #$00
D246 8A iD246 TXA
D247 0A ASL
D248 AA TAX
D249 98 TYA
D24A 2A ROL
D24B A8 TAY
D24C B0 A6 BCS iD1F4
D24E 06 C0 ASL xC0
D250 26 C1 ROL xC1
D252 90 0B BCC iD25F
D254 18 CLC
D255 8A TXA
D256 65 77 ADC x77
D258 AA TAX
D259 98 TYA
D25A 65 78 ADC x78
D25C A8 TAY
D25D B0 95 BCS iD1F4
D25F C6 AC iD25F DEC xAC
D261 D0 E3 BNE iD246
D263 60 RTS
D264 A5 5E FRE LDA x5E
D266 F0 03 BEQ iD26B
D268 20 7E D5 JSR iD57E
D26B 20 04 D4 iD26B JSR iD404
D26E 38 SEC
D26F A5 82 LDA x82
D271 E5 80 SBC x80
D273 A8 TAY
D274 A5 83 LDA x83
D276 E5 81 SBC x81
D278 A2 00 iD278 LDX #$00
D27A 86 5E STX x5E
D27C 85 B1 STA xB1
D27E 84 B2 STY xB2
D280 A2 90 LDX #$90
D282 4C 16 DB JMP iDB16
D285 A4 05 POS LDY x05
D287 A9 00 iD287 LDA #$00
D289 F0 ED BEQ iD278
D28B A6 89 iD28B LDX x89
D28D E8 INX
D28E D0 A2 BNE iD232
D290 A2 9A LDX #$9A
D292 4C 59 C3 iD292 JMP iC359
D295 20 C3 D2 DEF JSR iD2C3
D298 20 8B D2 JSR iD28B
D29B 20 0E CE JSR iCE0E
D29E A9 80 LDA #$80
D2A0 85 61 STA x61
D2A2 20 7B CF JSR iCF7B
D2A5 20 A7 CC JSR iCCA7
D2A8 20 0B CE JSR iCE0B
D2AB A9 B2 LDA #$B2
D2AD 20 13 CE JSR iCE13
D2B0 48 PHA
D2B1 A5 97 LDA x97
D2B3 48 PHA
D2B4 A5 96 LDA x96
D2B6 48 PHA
D2B7 A5 CA LDA xCA
D2B9 48 PHA
D2BA A5 C9 LDA xC9
D2BC 48 PHA
D2BD 20 F0 C7 JSR DATA
D2C0 4C 33 D3 JMP iD333
D2C3 A9 A5 iD2C3 LDA #$A5
D2C5 20 13 CE JSR iCE13
D2C8 09 80 ORA #$80
D2CA 85 61 STA x61
D2CC 20 82 CF JSR iCF82
D2CF 85 9D STA x9D
D2D1 84 9E STY x9E
D2D3 4C A7 CC JMP iCCA7
D2D6 20 C3 D2 iD2D6 JSR iD2C3
D2D9 A5 9E LDA x9E
D2DB 48 PHA
D2DC A5 9D LDA x9D
D2DE 48 PHA
D2DF 20 05 CE JSR iCE05
D2E2 20 A7 CC JSR iCCA7
D2E5 68 PLA
D2E6 85 9D STA x9D
D2E8 68 PLA
D2E9 85 9E STA x9E
D2EB A0 02 LDY #$02
D2ED A2 ED LDX #$ED
D2EF B1 9D LDA (x9D),Y
D2F1 F0 9F BEQ iD292
D2F3 85 96 STA x96
D2F5 AA TAX
D2F6 C8 INY
D2F7 B1 9D LDA (x9D),Y
D2F9 85 97 STA x97
D2FB C8 INY
D2FC B1 96 iD2FC LDA (x96),Y
D2FE 48 PHA
D2FF 88 DEY
D300 10 FA BPL iD2FC
D302 A4 97 LDY x97
D304 20 A6 DA JSR iDAA6
D307 A5 CA LDA xCA
D309 48 PHA
D30A A5 C9 LDA xC9
D30C 48 PHA
D30D B1 9D LDA (x9D),Y
D30F 85 C9 STA xC9
D311 C8 INY
D312 B1 9D LDA (x9D),Y
D314 85 CA STA xCA
D316 A5 97 LDA x97
D318 48 PHA
D319 A5 96 LDA x96
D31B 48 PHA
D31C 20 A4 CC JSR iCCA4
D31F 68 PLA
D320 85 9D STA x9D
D322 68 PLA
D323 85 9E STA x9E
D325 20 C8 00 JSR iC8
D328 F0 03 BEQ iD32D
D32A 4C 1C CE JMP iCE1C
D32D 68 iD32D PLA
D32E 85 C9 STA xC9
D330 68 PLA
D331 85 CA STA xCA
D333 A0 00 iD333 LDY #$00
D335 68 PLA
D336 91 9D STA (x9D),Y
D338 68 PLA
D339 C8 INY
D33A 91 9D STA (x9D),Y
D33C 68 PLA
D33D C8 INY
D33E 91 9D STA (x9D),Y
D340 68 PLA
D341 C8 INY
D342 91 9D STA (x9D),Y
D344 68 PLA
D345 C8 INY
D346 91 9D STA (x9D),Y
D348 60 RTS
D349 20 A7 CC STR JSR iCCA7
D34C A0 00 LDY #$00
D34E 20 B1 DC JSR iDCB1
D351 68 PLA
D352 68 PLA
D353 A9 FF iD353 LDA #$FF
D355 A0 00 LDY #$00
D357 F0 12 BEQ iD36B
D359 A6 B3 iD359 LDX xB3
D35B A4 B4 LDY xB4
D35D 86 9F STX x9F
D35F 84 A0 STY xA0
D361 20 D2 D3 iD361 JSR iD3D2
D364 86 B1 STX xB1
D366 84 B2 STY xB2
D368 85 B0 STA xB0
D36A 60 RTS
D36B A2 22 iD36B LDX #$22
D36D 86 5A STX x5A
D36F 86 5B STX x5B
D371 85 BE iD371 STA xBE
D373 84 BF STY xBF
D375 85 B1 STA xB1
D377 84 B2 STY xB2
D379 A0 FF LDY #$FF
D37B C8 iD37B INY
D37C B1 BE LDA (xBE),Y
D37E F0 0C BEQ iD38C
D380 C5 5A CMP x5A
D382 F0 04 BEQ iD388
D384 C5 5B CMP x5B
D386 D0 F3 BNE iD37B
D388 C9 22 iD388 CMP #$22
D38A F0 01 BEQ iD38D
D38C 18 iD38C CLC
D38D 84 B0 iD38D STY xB0
D38F 98 TYA
D390 65 BE ADC xBE
D392 85 C0 STA xC0
D394 A6 BF LDX xBF
D396 90 01 BCC iD399
D398 E8 INX
D399 86 C1 iD399 STX xC1
D39B A5 BF LDA xBF
D39D D0 0B BNE iD3AA
D39F 98 TYA
D3A0 20 59 D3 JSR iD359
D3A3 A6 BE LDX xBE
D3A5 A4 BF LDY xBF
D3A7 20 60 D5 JSR iD560
D3AA A6 65 iD3AA LDX x65
D3AC E0 71 CPX #$71
D3AE D0 05 BNE iD3B5
D3B0 A2 CC LDX #$CC
D3B2 4C 59 C3 iD3B2 JMP iC359
D3B5 A5 B0 iD3B5 LDA xB0
D3B7 95 00 STA USR,X
D3B9 A5 B1 LDA xB1
D3BB 95 01 STA x01,X
D3BD A5 B2 LDA xB2
D3BF 95 02 STA x02,X
D3C1 A0 00 LDY #$00
D3C3 86 B3 STX xB3
D3C5 84 B4 STY xB4
D3C7 88 DEY
D3C8 84 5E STY x5E
D3CA 86 66 STX x66
D3CC E8 INX
D3CD E8 INX
D3CE E8 INX
D3CF 86 65 STX x65
D3D1 60 RTS
D3D2 46 60 iD3D2 LSR x60
D3D4 48 iD3D4 PHA
D3D5 49 FF EOR #$FF
D3D7 38 SEC
D3D8 65 82 ADC x82
D3DA A4 83 LDY x83
D3DC B0 01 BCS iD3DF
D3DE 88 DEY
D3DF C4 81 iD3DF CPY x81
D3E1 90 11 BCC iD3F4
D3E3 D0 04 BNE iD3E9
D3E5 C5 80 CMP x80
D3E7 90 0B BCC iD3F4
D3E9 85 82 iD3E9 STA x82
D3EB 84 83 STY x83
D3ED 85 84 STA x84
D3EF 84 85 STY x85
D3F1 AA TAX
D3F2 68 PLA
D3F3 60 RTS
D3F4 A2 52 iD3F4 LDX #$52
D3F6 A5 60 LDA x60
D3F8 30 B8 BMI iD3B2
D3FA 20 04 D4 JSR iD404
D3FD A9 80 LDA #$80
D3FF 85 60 STA x60
D401 68 PLA
D402 D0 D0 BNE iD3D4
D404 A6 86 iD404 LDX x86
D406 A5 87 LDA x87
D408 86 82 iD408 STX x82
D40A 85 83 STA x83
D40C A0 00 LDY #$00
D40E 84 9E STY x9E
D410 A5 80 LDA x80
D412 A6 81 LDX x81
D414 85 AE STA xAE
D416 86 AF STX xAF
D418 A9 68 LDA #$68
D41A A2 00 LDX #$00
D41C 85 71 STA x71
D41E 86 72 STX x72
D420 C5 65 iD420 CMP x65
D422 F0 05 BEQ iD429
D424 20 A1 D4 JSR iD4A1
D427 F0 F7 BEQ iD420
D429 A9 07 iD429 LDA #$07
D42B 85 A2 STA xA2
D42D A5 7C LDA x7C
D42F A6 7D LDX x7D
D431 85 71 STA x71
D433 86 72 STX x72
D435 E4 7F iD435 CPX x7F
D437 D0 04 BNE iD43D
D439 C5 7E CMP x7E
D43B F0 05 BEQ iD442
D43D 20 97 D4 iD43D JSR iD497
D440 F0 F3 BEQ iD435
D442 85 A7 iD442 STA xA7
D444 86 A8 STX xA8
D446 A9 03 LDA #$03
D448 85 A2 STA xA2
D44A A5 A7 iD44A LDA xA7
D44C A6 A8 LDX xA8
D44E E4 81 iD44E CPX x81
D450 D0 07 BNE iD459
D452 C5 80 CMP x80
D454 D0 03 BNE iD459
D456 4C E0 D4 JMP iD4E0
D459 85 71 iD459 STA x71
D45B 86 72 STX x72
D45D A0 00 LDY #$00
D45F B1 71 LDA (x71),Y
D461 AA TAX
D462 C8 INY
D463 B1 71 LDA (x71),Y
D465 08 PHP
D466 C8 INY
D467 B1 71 LDA (x71),Y
D469 65 A7 ADC xA7
D46B 85 A7 STA xA7
D46D C8 INY
D46E B1 71 LDA (x71),Y
D470 65 A8 ADC xA8
D472 85 A8 STA xA8
D474 28 PLP
D475 10 D3 BPL iD44A
D477 8A TXA
D478 30 D0 BMI iD44A
D47A C8 INY
D47B B1 71 LDA (x71),Y
D47D 20 F3 E7 JSR iE7F3
D480 65 71 ADC x71
D482 85 71 STA x71
D484 90 02 BCC iD488
D486 E6 72 INC x72
D488 A6 72 iD488 LDX x72
D48A E4 A8 iD48A CPX xA8
D48C D0 04 BNE iD492
D48E C5 A7 CMP xA7
D490 F0 BC BEQ iD44E
D492 20 A1 D4 iD492 JSR iD4A1
D495 F0 F3 BEQ iD48A
D497 B1 71 iD497 LDA (x71),Y
D499 30 35 BMI iD4D0
D49B C8 INY
D49C B1 71 LDA (x71),Y
D49E 10 30 BPL iD4D0
D4A0 C8 INY
D4A1 B1 71 iD4A1 LDA (x71),Y
D4A3 F0 2B BEQ iD4D0
D4A5 C8 INY
D4A6 B1 71 LDA (x71),Y
D4A8 AA TAX
D4A9 C8 INY
D4AA B1 71 LDA (x71),Y
D4AC C5 83 CMP x83
D4AE 90 06 BCC iD4B6
D4B0 D0 1E BNE iD4D0
D4B2 E4 82 CPX x82
D4B4 B0 1A BCS iD4D0
D4B6 C5 AF iD4B6 CMP xAF
D4B8 90 16 BCC iD4D0
D4BA D0 04 BNE iD4C0
D4BC E4 AE CPX xAE
D4BE 90 10 BCC iD4D0
D4C0 86 AE iD4C0 STX xAE
D4C2 85 AF STA xAF
D4C4 A5 71 LDA x71
D4C6 A6 72 LDX x72
D4C8 85 9D STA x9D
D4CA 86 9E STX x9E
D4CC A5 A2 LDA xA2
D4CE 85 A4 STA xA4
D4D0 A5 A2 iD4D0 LDA xA2
D4D2 18 CLC
D4D3 65 71 ADC x71
D4D5 85 71 STA x71
D4D7 90 02 BCC iD4DB
D4D9 E6 72 INC x72
D4DB A6 72 iD4DB LDX x72
D4DD A0 00 LDY #$00
D4DF 60 RTS
D4E0 A6 9E iD4E0 LDX x9E
D4E2 F0 F7 BEQ iD4DB
D4E4 A5 A4 LDA xA4
D4E6 E9 03 SBC #$03
D4E8 4A LSR
D4E9 A8 TAY
D4EA 85 A4 STA xA4
D4EC B1 9D LDA (x9D),Y
D4EE 65 AE ADC xAE
D4F0 85 A9 STA xA9
D4F2 A5 AF LDA xAF
D4F4 69 00 ADC #$00
D4F6 85 AA STA xAA
D4F8 A5 82 LDA x82
D4FA A6 83 LDX x83
D4FC 85 A7 STA xA7
D4FE 86 A8 STX xA8
D500 20 E1 C2 JSR iC2E1
D503 A4 A4 LDY xA4
D505 C8 INY
D506 A5 A7 LDA xA7
D508 91 9D STA (x9D),Y
D50A AA TAX
D50B E6 A8 INC xA8
D50D A5 A8 LDA xA8
D50F C8 INY
D510 91 9D STA (x9D),Y
D512 4C 08 D4 JMP iD408
D515 A5 B4 iD515 LDA xB4
D517 48 PHA
D518 A5 B3 LDA xB3
D51A 48 PHA
D51B 20 9D CD JSR iCD9D
D51E 20 A9 CC JSR iCCA9
D521 68 PLA
D522 85 BE STA xBE
D524 68 PLA
D525 85 BF STA xBF
D527 A0 00 LDY #$00
D529 B1 BE LDA (xBE),Y
D52B 18 CLC
D52C 71 B3 ADC (xB3),Y
D52E 90 05 BCC iD535
D530 A2 B5 LDX #$B5
D532 4C 59 C3 JMP iC359
D535 20 59 D3 iD535 JSR iD359
D538 20 52 D5 JSR iD552
D53B A5 9F LDA x9F
D53D A4 A0 LDY xA0
D53F 20 82 D5 JSR iD582
D542 20 64 D5 JSR iD564
D545 A5 BE LDA xBE
D547 A4 BF LDY xBF
D549 20 82 D5 JSR iD582
D54C 20 AA D3 JSR iD3AA
D54F 4C D2 CC JMP iCCD2
D552 A0 00 iD552 LDY #$00
D554 B1 BE LDA (xBE),Y
D556 48 PHA
D557 C8 INY
D558 B1 BE LDA (xBE),Y
D55A AA TAX
D55B C8 INY
D55C B1 BE LDA (xBE),Y
D55E A8 TAY
D55F 68 PLA
D560 86 71 iD560 STX x71
D562 84 72 STY x72
D564 A8 iD564 TAY
D565 F0 0A BEQ iD571
D567 48 PHA
D568 88 iD568 DEY
D569 B1 71 LDA (x71),Y
D56B 91 84 STA (x84),Y
D56D 98 TYA
D56E D0 F8 BNE iD568
D570 68 PLA
D571 18 iD571 CLC
D572 65 84 ADC x84
D574 85 84 STA x84
D576 90 02 BCC iD57A
D578 E6 85 INC x85
D57A 60 iD57A RTS
D57B 20 A9 CC iD57B JSR iCCA9
D57E A5 B3 iD57E LDA xB3
D580 A4 B4 LDY xB4
D582 85 71 iD582 STA x71
D584 84 72 STY x72
D586 20 B3 D5 JSR iD5B3
D589 08 PHP
D58A A0 00 LDY #$00
D58C B1 71 LDA (x71),Y
D58E 48 PHA
D58F C8 INY
D590 B1 71 LDA (x71),Y
D592 AA TAX
D593 C8 INY
D594 B1 71 LDA (x71),Y
D596 A8 TAY
D597 68 PLA
D598 28 PLP
D599 D0 13 BNE iD5AE
D59B C4 83 CPY x83
D59D D0 0F BNE iD5AE
D59F E4 82 CPX x82
D5A1 D0 0B BNE iD5AE
D5A3 48 PHA
D5A4 18 CLC
D5A5 65 82 ADC x82
D5A7 85 82 STA x82
D5A9 90 02 BCC iD5AD
D5AB E6 83 INC x83
D5AD 68 iD5AD PLA
D5AE 86 71 iD5AE STX x71
D5B0 84 72 STY x72
D5B2 60 RTS
D5B3 C4 67 iD5B3 CPY x67
D5B5 D0 0C BNE iD5C3
D5B7 C5 66 CMP x66
D5B9 D0 08 BNE iD5C3
D5BB 85 65 STA x65
D5BD E9 03 SBC #$03
D5BF 85 66 STA x66
D5C1 A0 00 LDY #$00
D5C3 60 iD5C3 RTS
D5C4 20 79 D6 CHR JSR iD679
D5C7 8A TXA
D5C8 48 PHA
D5C9 A9 01 LDA #$01
D5CB 20 61 D3 JSR iD361
D5CE 68 PLA
D5CF A0 00 LDY #$00
D5D1 91 B1 STA (xB1),Y
D5D3 68 PLA
D5D4 68 PLA
D5D5 4C AA D3 JMP iD3AA
D5D8 20 37 D6 LEFT JSR iD637
D5DB D1 9F CMP (x9F),Y
D5DD 98 TYA
D5DE 90 04 iD5DE BCC iD5E4
D5E0 B1 9F LDA (x9F),Y
D5E2 AA TAX
D5E3 98 TYA
D5E4 48 iD5E4 PHA
D5E5 8A iD5E5 TXA
D5E6 48 iD5E6 PHA
D5E7 20 61 D3 JSR iD361
D5EA A5 9F LDA x9F
D5EC A4 A0 LDY xA0
D5EE 20 82 D5 JSR iD582
D5F1 68 PLA
D5F2 A8 TAY
D5F3 68 PLA
D5F4 18 CLC
D5F5 65 71 ADC x71
D5F7 85 71 STA x71
D5F9 90 02 BCC iD5FD
D5FB E6 72 INC x72
D5FD 98 iD5FD TYA
D5FE 20 64 D5 JSR iD564
D601 4C AA D3 JMP iD3AA
D604 20 37 D6 RIGHT JSR iD637
D607 18 CLC
D608 F1 9F SBC (x9F),Y
D60A 49 FF EOR #$FF
D60C 4C DE D5 JMP iD5DE
D60F A9 FF MID LDA #$FF
D611 85 B4 STA xB4
D613 20 C8 00 JSR iC8
D616 C9 29 CMP #$29
D618 F0 06 BEQ iD620
D61A 20 11 CE JSR iCE11
D61D 20 76 D6 JSR iD676
D620 20 37 D6 iD620 JSR iD637
D623 CA DEX
D624 8A TXA
D625 48 PHA
D626 18 CLC
D627 A2 00 LDX #$00
D629 F1 9F SBC (x9F),Y
D62B B0 B8 BCS iD5E5
D62D 49 FF EOR #$FF
D62F C5 B4 CMP xB4
D631 90 B3 BCC iD5E6
D633 A5 B4 LDA xB4
D635 B0 AF BCS iD5E6
D637 20 0B CE iD637 JSR iCE0B
D63A 68 PLA
D63B 85 A4 STA xA4
D63D 68 PLA
D63E 85 A5 STA xA5
D640 68 PLA
D641 68 PLA
D642 68 PLA
D643 AA TAX
D644 68 PLA
D645 85 9F STA x9F
D647 68 PLA
D648 85 A0 STA xA0
D64A A0 00 LDY #$00
D64C 8A TXA
D64D F0 21 BEQ iD670
D64F E6 A4 INC xA4
D651 6C A4 00 JMP (xA4)
D654 20 5A D6 LEN JSR iD65A
D657 4C 87 D2 iD657 JMP iD287
D65A 20 7B D5 iD65A JSR iD57B
D65D A2 00 LDX #$00
D65F 86 5E STX x5E
D661 A8 TAY
D662 60 RTS
D663 20 5A D6 ASC JSR iD65A
D666 F0 08 BEQ iD670
D668 A0 00 LDY #$00
D66A B1 71 LDA (x71),Y
D66C A8 TAY
D66D 4C 57 D6 JMP iD657
D670 4C 30 D1 iD670 JMP iD130
D673 20 C2 00 iD673 JSR iC2
D676 20 A4 CC iD676 JSR iCCA4
D679 20 A3 D0 iD679 JSR iD0A3
D67C A6 B3 LDX xB3
D67E D0 F0 BNE iD670
D680 A6 B4 LDX xB4
D682 4C C8 00 JMP iC8
D685 20 5A D6 VAL JSR iD65A
D688 D0 03 BNE iD68D
D68A 4C CC D7 JMP iD7CC
D68D A6 C9 iD68D LDX xC9
D68F A4 CA LDY xCA
D691 86 C0 STX xC0
D693 84 C1 STY xC1
D695 A6 71 LDX x71
D697 86 C9 STX xC9
D699 18 CLC
D69A 65 71 ADC x71
D69C 85 73 STA x73
D69E A6 72 LDX x72
D6A0 86 CA STX xCA
D6A2 90 01 BCC iD6A5
D6A4 E8 INX
D6A5 86 74 iD6A5 STX x74
D6A7 A0 00 LDY #$00
D6A9 B1 73 LDA (x73),Y
D6AB 48 PHA
D6AC A9 00 LDA #$00
D6AE 91 73 STA (x73),Y
D6B0 20 C8 00 JSR iC8
D6B3 20 C5 DB JSR iDBC5
D6B6 68 PLA
D6B7 A0 00 LDY #$00
D6B9 91 73 STA (x73),Y
D6BB A6 C0 iD6BB LDX xC0
D6BD A4 C1 LDY xC1
D6BF 86 C9 STX xC9
D6C1 84 CA STY xCA
D6C3 60 RTS
D6C4 20 A4 CC iD6C4 JSR iCCA4
D6C7 20 D0 D6 JSR iD6D0
D6CA 20 11 CE iD6CA JSR iCE11
D6CD 4C 76 D6 JMP iD676
D6D0 A5 B5 iD6D0 LDA xB5
D6D2 30 9C BMI iD670
D6D4 A5 B0 LDA xB0
D6D6 C9 91 CMP #$91
D6D8 B0 96 BCS iD670
D6DA 20 6D DB JSR iDB6D
D6DD A5 B3 LDA xB3
D6DF A4 B4 LDY xB4
D6E1 84 08 STY x08
D6E3 85 09 STA x09
D6E5 60 RTS
D6E6 20 D0 D6 PEEK JSR iD6D0
D6E9 A0 00 LDY #$00
D6EB C9 C0 CMP #$C0
D6ED 90 04 BCC iD6F3
D6EF C9 E1 CMP #$E1
D6F1 90 03 BCC iD6F6
D6F3 B1 08 iD6F3 LDA (x08),Y
D6F5 A8 TAY
D6F6 4C 87 D2 iD6F6 JMP iD287
D6F9 20 C4 D6 POKE JSR iD6C4
D6FC 8A TXA
D6FD A0 00 LDY #$00
D6FF 91 08 STA (x08),Y
D701 60 RTS
D702 20 C4 D6 WAIT JSR iD6C4
D705 86 98 STX x98
D707 A2 00 LDX #$00
D709 20 C8 00 JSR iC8
D70C F0 03 BEQ iD711
D70E 20 CA D6 JSR iD6CA
D711 86 99 iD711 STX x99
D713 A0 00 LDY #$00
D715 B1 08 iD715 LDA (x08),Y
D717 45 99 EOR x99
D719 25 98 AND x98
D71B F0 F8 BEQ iD715
D71D 60 iD71D RTS
D71E A9 E3 iD71E LDA #$E3
D720 A0 DD LDY #$DD
D722 4C 3C D7 JMP iD73C
D725 20 5E D9 iD725 JSR iD95E
D728 A5 B5 iD728 LDA xB5
D72A 49 FF EOR #$FF
D72C 85 B5 STA xB5
D72E 45 BD EOR xBD
D730 85 BE STA xBE
D732 A5 B0 LDA xB0
D734 4C 3F D7 JMP iD73F
D737 20 6E D8 iD737 JSR iD86E
D73A 90 3C BCC iD778
D73C 20 5E D9 iD73C JSR iD95E
D73F D0 03 iD73F BNE iD744
D741 4C CE DA JMP iDACE
D744 A6 BF iD744 LDX xBF
D746 86 A5 STX xA5
D748 A2 B8 LDX #$B8
D74A A5 B8 LDA xB8
D74C A8 iD74C TAY
D74D F0 CE BEQ iD71D
D74F 38 SEC
D750 E5 B0 SBC xB0
D752 F0 24 BEQ iD778
D754 90 12 BCC iD768
D756 84 B0 STY xB0
D758 A4 BD LDY xBD
D75A 84 B5 STY xB5
D75C 49 FF EOR #$FF
D75E 69 00 ADC #$00
D760 A0 00 LDY #$00
D762 84 A5 STY xA5
D764 A2 B0 LDX #$B0
D766 D0 04 BNE iD76C
D768 A0 00 iD768 LDY #$00
D76A 84 BF STY xBF
D76C C9 F9 iD76C CMP #$F9
D76E 30 C7 BMI iD737
D770 A8 TAY
D771 A5 BF LDA xBF
D773 56 01 LSR x01,X
D775 20 85 D8 JSR iD885
D778 24 BE iD778 BIT xBE
D77A 10 57 BPL iD7D3
D77C A0 B0 LDY #$B0
D77E E0 B8 CPX #$B8
D780 F0 02 BEQ iD784
D782 A0 B8 LDY #$B8
D784 38 iD784 SEC
D785 49 FF EOR #$FF
D787 65 A5 ADC xA5
D789 85 BF STA xBF
D78B B9 04 00 LDA x04,Y
D78E F5 04 SBC x04,X
D790 85 B4 STA xB4
D792 B9 03 00 LDA x03,Y
D795 F5 03 SBC x03,X
D797 85 B3 STA xB3
D799 B9 02 00 LDA x02,Y
D79C F5 02 SBC x02,X
D79E 85 B2 STA xB2
D7A0 B9 01 00 LDA x01,Y
D7A3 F5 01 SBC x01,X
D7A5 85 B1 STA xB1
D7A7 B0 03 iD7A7 BCS iD7AC
D7A9 20 1C D8 JSR iD81C
D7AC A0 00 iD7AC LDY #$00
D7AE 98 TYA
D7AF 18 CLC
D7B0 A6 B1 iD7B0 LDX xB1
D7B2 D0 4A BNE iD7FE
D7B4 A6 B2 LDX xB2
D7B6 86 B1 STX xB1
D7B8 A6 B3 LDX xB3
D7BA 86 B2 STX xB2
D7BC A6 B4 LDX xB4
D7BE 86 B3 STX xB3
D7C0 A6 BF LDX xBF
D7C2 86 B4 STX xB4
D7C4 84 BF STY xBF
D7C6 69 08 ADC #$08
D7C8 C9 20 CMP #$20
D7CA D0 E4 BNE iD7B0
D7CC A9 00 iD7CC LDA #$00
D7CE 85 B0 iD7CE STA xB0
D7D0 85 B5 iD7D0 STA xB5
D7D2 60 RTS
D7D3 65 A5 iD7D3 ADC xA5
D7D5 85 BF STA xBF
D7D7 A5 B4 LDA xB4
D7D9 65 BC ADC xBC
D7DB 85 B4 STA xB4
D7DD A5 B3 LDA xB3
D7DF 65 BB ADC xBB
D7E1 85 B3 STA xB3
D7E3 A5 B2 LDA xB2
D7E5 65 BA ADC xBA
D7E7 85 B2 STA xB2
D7E9 A5 B1 LDA xB1
D7EB 65 B9 ADC xB9
D7ED 85 B1 STA xB1
D7EF 4C 0B D8 JMP iD80B
D7F2 69 01 iD7F2 ADC #$01
D7F4 06 BF ASL xBF
D7F6 26 B4 ROL xB4
D7F8 26 B3 ROL xB3
D7FA 26 B2 ROL xB2
D7FC 26 B1 ROL xB1
D7FE 10 F2 iD7FE BPL iD7F2
D800 38 SEC
D801 E5 B0 SBC xB0
D803 B0 C7 BCS iD7CC
D805 49 FF EOR #$FF
D807 69 01 ADC #$01
D809 85 B0 STA xB0
D80B 90 0E iD80B BCC iD81B
D80D E6 B0 iD80D INC xB0
D80F F0 42 BEQ iD853
D811 66 B1 ROR xB1
D813 66 B2 ROR xB2
D815 66 B3 ROR xB3
D817 66 B4 ROR xB4
D819 66 BF ROR xBF
D81B 60 iD81B RTS
D81C A5 B5 iD81C LDA xB5
D81E 49 FF EOR #$FF
D820 85 B5 STA xB5
D822 A5 B1 iD822 LDA xB1
D824 49 FF EOR #$FF
D826 85 B1 STA xB1
D828 A5 B2 LDA xB2
D82A 49 FF EOR #$FF
D82C 85 B2 STA xB2
D82E A5 B3 LDA xB3
D830 49 FF EOR #$FF
D832 85 B3 STA xB3
D834 A5 B4 LDA xB4
D836 49 FF EOR #$FF
D838 85 B4 STA xB4
D83A A5 BF LDA xBF
D83C 49 FF EOR #$FF
D83E 85 BF STA xBF
D840 E6 BF INC xBF
D842 D0 0E BNE iD852
D844 E6 B4 iD844 INC xB4
D846 D0 0A BNE iD852
D848 E6 B3 INC xB3
D84A D0 06 BNE iD852
D84C E6 B2 INC xB2
D84E D0 02 BNE iD852
D850 E6 B1 INC xB1
D852 60 iD852 RTS
D853 A2 4A iD853 LDX #$4A
D855 4C 59 C3 JMP iC359
D858 A2 74 iD858 LDX #$74
D85A B4 04 iD85A LDY x04,X
D85C 84 BF STY xBF
D85E B4 03 LDY x03,X
D860 94 04 STY x04,X
D862 B4 02 LDY x02,X
D864 94 03 STY x03,X
D866 B4 01 LDY x01,X
D868 94 02 STY x02,X
D86A A4 B7 LDY xB7
D86C 94 01 STY x01,X
D86E 69 08 iD86E ADC #$08
D870 30 E8 BMI iD85A
D872 F0 E6 BEQ iD85A
D874 E9 08 SBC #$08
D876 A8 TAY
D877 A5 BF LDA xBF
D879 B0 14 BCS iD88F
D87B 16 01 iD87B ASL x01,X
D87D 90 02 BCC iD881
D87F F6 01 INC x01,X
D881 76 01 iD881 ROR x01,X
D883 76 01 ROR x01,X
D885 76 02 iD885 ROR x02,X
D887 76 03 ROR x03,X
D889 76 04 ROR x04,X
D88B 6A ROR
D88C C8 INY
D88D D0 EC BNE iD87B
D88F 18 iD88F CLC
D890 60 RTS
D891 .byte $81, $00, $00, $00, $00, $03, $7F, $5E ;.....c.^
D899 .byte $56, $CB, $79, $80, $13, $9B, $0B, $64 ;vKY.s.kD
D8A1 .byte $80, $76, $38, $93, $16, $82, $38, $AA ;.V8.v.8*
D8A9 .byte $3B, $20, $80, $35, $04, $F3, $34, $81 ;; .5d.4.
D8B1 .byte $35, $04, $F3, $34, $80, $80, $00, $00 ;5d.4....
D8B9 .byte $00, $80, $31, $72, $17, $F8 ;..1Rw.
D8BF 20 FD DA LOG JSR iDAFD
D8C2 F0 02 BEQ iD8C6
D8C4 10 03 BPL iD8C9
D8C6 4C 30 D1 iD8C6 JMP iD130
D8C9 A5 B0 iD8C9 LDA xB0
D8CB E9 7F SBC #$7F
D8CD 48 PHA
D8CE A9 80 LDA #$80
D8D0 85 B0 STA xB0
D8D2 A9 AB LDA #$AB
D8D4 A0 D8 LDY #$D8
D8D6 20 3C D7 JSR iD73C
D8D9 A9 B0 LDA #$B0
D8DB A0 D8 LDY #$D8
D8DD 20 E1 D9 JSR iD9E1
D8E0 A9 91 LDA #$91
D8E2 A0 D8 LDY #$D8
D8E4 20 25 D7 JSR iD725
D8E7 A9 96 LDA #$96
D8E9 A0 D8 LDY #$D8
D8EB 20 F3 DE JSR iDEF3
D8EE A9 B5 LDA #$B5
D8F0 A0 D8 LDY #$D8
D8F2 20 3C D7 JSR iD73C
D8F5 68 PLA
D8F6 20 50 DC JSR iDC50
D8F9 A9 BA LDA #$BA
D8FB A0 D8 LDY #$D8
D8FD 20 5E D9 iD8FD JSR iD95E
D900 F0 5B BEQ iD95D
D902 20 89 D9 JSR iD989
D905 A9 00 LDA #$00
D907 85 75 STA x75
D909 85 76 STA x76
D90B 85 77 STA x77
D90D 85 78 STA x78
D90F A5 BF LDA xBF
D911 20 2B D9 JSR iD92B
D914 A5 B4 LDA xB4
D916 20 2B D9 JSR iD92B
D919 A5 B3 LDA xB3
D91B 20 2B D9 JSR iD92B
D91E A5 B2 LDA xB2
D920 20 2B D9 JSR iD92B
D923 A5 B1 LDA xB1
D925 20 30 D9 JSR iD930
D928 4C 61 DA JMP iDA61
D92B D0 03 iD92B BNE iD930
D92D 4C 58 D8 JMP iD858
D930 4A iD930 LSR
D931 09 80 ORA #$80
D933 A8 iD933 TAY
D934 90 19 BCC iD94F
D936 18 CLC
D937 A5 78 LDA x78
D939 65 BC ADC xBC
D93B 85 78 STA x78
D93D A5 77 LDA x77
D93F 65 BB ADC xBB
D941 85 77 STA x77
D943 A5 76 LDA x76
D945 65 BA ADC xBA
D947 85 76 STA x76
D949 A5 75 LDA x75
D94B 65 B9 ADC xB9
D94D 85 75 STA x75
D94F 66 75 iD94F ROR x75
D951 66 76 ROR x76
D953 66 77 ROR x77
D955 66 78 ROR x78
D957 66 BF ROR xBF
D959 98 TYA
D95A 4A LSR
D95B D0 D6 BNE iD933
D95D 60 iD95D RTS
D95E 85 71 iD95E STA x71
D960 84 72 STY x72
D962 A0 04 LDY #$04
D964 B1 71 LDA (x71),Y
D966 85 BC STA xBC
D968 88 DEY
D969 B1 71 LDA (x71),Y
D96B 85 BB STA xBB
D96D 88 DEY
D96E B1 71 LDA (x71),Y
D970 85 BA STA xBA
D972 88 DEY
D973 B1 71 LDA (x71),Y
D975 85 BD STA xBD
D977 45 B5 EOR xB5
D979 85 BE STA xBE
D97B A5 BD LDA xBD
D97D 09 80 ORA #$80
D97F 85 B9 STA xB9
D981 88 DEY
D982 B1 71 LDA (x71),Y
D984 85 B8 STA xB8
D986 A5 B0 LDA xB0
D988 60 RTS
D989 A5 B8 iD989 LDA xB8
D98B F0 1F iD98B BEQ iD9AC
D98D 18 CLC
D98E 65 B0 ADC xB0
D990 90 04 BCC iD996
D992 30 1D BMI iD9B1
D994 18 CLC
D995 2C 10 14 .byte $2C
D996 10 14 iD996 BPL iD9AC
D998 69 80 ADC #$80
D99A 85 B0 STA xB0
D99C D0 03 BNE iD9A1
D99E 4C D0 D7 JMP iD7D0
D9A1 A5 BE iD9A1 LDA xBE
D9A3 85 B5 STA xB5
D9A5 60 RTS
D9A6 A5 B5 iD9A6 LDA xB5
D9A8 49 FF EOR #$FF
D9AA 30 05 BMI iD9B1
D9AC 68 iD9AC PLA
D9AD 68 PLA
D9AE 4C CC D7 JMP iD7CC
D9B1 4C 53 D8 iD9B1 JMP iD853
D9B4 20 DE DA iD9B4 JSR iDADE
D9B7 AA TAX
D9B8 F0 10 BEQ iD9CA
D9BA 18 CLC
D9BB 69 02 ADC #$02
D9BD B0 F2 BCS iD9B1
D9BF A2 00 iD9BF LDX #$00
D9C1 86 BE STX xBE
D9C3 20 4C D7 JSR iD74C
D9C6 E6 B0 INC xB0
D9C8 F0 E7 BEQ iD9B1
D9CA 60 iD9CA RTS
D9CB .byte $84, $20, $00, $00, $00 ;. ...
D9D0 20 DE DA iD9D0 JSR iDADE
D9D3 A9 CB LDA #$CB
D9D5 A0 D9 LDY #$D9
D9D7 A2 00 LDX #$00
D9D9 86 BE iD9D9 STX xBE
D9DB 20 74 DA JSR iDA74
D9DE 4C E4 D9 JMP iD9E4
D9E1 20 5E D9 iD9E1 JSR iD95E
D9E4 F0 76 iD9E4 BEQ iDA5C
D9E6 20 ED DA JSR iDAED
D9E9 A9 00 LDA #$00
D9EB 38 SEC
D9EC E5 B0 SBC xB0
D9EE 85 B0 STA xB0
D9F0 20 89 D9 JSR iD989
D9F3 E6 B0 INC xB0
D9F5 F0 BA BEQ iD9B1
D9F7 A2 FC LDX #$FC
D9F9 A9 01 LDA #$01
D9FB A4 B9 iD9FB LDY xB9
D9FD C4 B1 CPY xB1
D9FF D0 10 BNE iDA11
DA01 A4 BA LDY xBA
DA03 C4 B2 CPY xB2
DA05 D0 0A BNE iDA11
DA07 A4 BB LDY xBB
DA09 C4 B3 CPY xB3
DA0B D0 04 BNE iDA11
DA0D A4 BC LDY xBC
DA0F C4 B4 CPY xB4
DA11 08 iDA11 PHP
DA12 2A ROL
DA13 90 09 BCC iDA1E
DA15 E8 INX
DA16 95 78 STA x78,X
DA18 F0 32 BEQ iDA4C
DA1A 10 34 BPL iDA50
DA1C A9 01 LDA #$01
DA1E 28 iDA1E PLP
DA1F B0 0E BCS iDA2F
DA21 06 BC iDA21 ASL xBC
DA23 26 BB ROL xBB
DA25 26 BA ROL xBA
DA27 26 B9 ROL xB9
DA29 B0 E6 BCS iDA11
DA2B 30 CE BMI iD9FB
DA2D 10 E2 BPL iDA11
DA2F A8 iDA2F TAY
DA30 A5 BC LDA xBC
DA32 E5 B4 SBC xB4
DA34 85 BC STA xBC
DA36 A5 BB LDA xBB
DA38 E5 B3 SBC xB3
DA3A 85 BB STA xBB
DA3C A5 BA LDA xBA
DA3E E5 B2 SBC xB2
DA40 85 BA STA xBA
DA42 A5 B9 LDA xB9
DA44 E5 B1 SBC xB1
DA46 85 B9 STA xB9
DA48 98 TYA
DA49 4C 21 DA JMP iDA21
DA4C A9 40 iDA4C LDA #$40
DA4E D0 CE BNE iDA1E
DA50 0A iDA50 ASL
DA51 0A ASL
DA52 0A ASL
DA53 0A ASL
DA54 0A ASL
DA55 0A ASL
DA56 85 BF STA xBF
DA58 28 PLP
DA59 4C 61 DA JMP iDA61
DA5C A2 8A iDA5C LDX #$8A
DA5E 4C 59 C3 JMP iC359
DA61 A5 75 iDA61 LDA x75
DA63 85 B1 STA xB1
DA65 A5 76 LDA x76
DA67 85 B2 STA xB2
DA69 A5 77 LDA x77
DA6B 85 B3 STA xB3
DA6D A5 78 LDA x78
DA6F 85 B4 STA xB4
DA71 4C AC D7 JMP iD7AC
DA74 85 71 iDA74 STA x71
DA76 84 72 STY x72
DA78 A0 04 LDY #$04
DA7A B1 71 LDA (x71),Y
DA7C 85 B4 STA xB4
DA7E 88 DEY
DA7F B1 71 LDA (x71),Y
DA81 85 B3 STA xB3
DA83 88 DEY
DA84 B1 71 LDA (x71),Y
DA86 85 B2 STA xB2
DA88 88 DEY
DA89 B1 71 LDA (x71),Y
DA8B 85 B5 STA xB5
DA8D 09 80 ORA #$80
DA8F 85 B1 STA xB1
DA91 88 DEY
DA92 B1 71 LDA (x71),Y
DA94 85 B0 STA xB0
DA96 84 BF STY xBF
DA98 60 RTS
DA99 A2 AB iDA99 LDX #$AB
DA9B 2C A2 A6 .byte $2C
DA9C A2 A6 iDA9C LDX #$A6
DA9E A0 00 LDY #$00
DAA0 F0 04 BEQ iDAA6
DAA2 A6 98 iDAA2 LDX x98
DAA4 A4 99 LDY x99
DAA6 20 ED DA iDAA6 JSR iDAED
DAA9 86 71 STX x71
DAAB 84 72 STY x72
DAAD A0 04 LDY #$04
DAAF A5 B4 LDA xB4
DAB1 91 71 STA (x71),Y
DAB3 88 DEY
DAB4 A5 B3 LDA xB3
DAB6 91 71 STA (x71),Y
DAB8 88 DEY
DAB9 A5 B2 LDA xB2
DABB 91 71 STA (x71),Y
DABD 88 DEY
DABE A5 B5 LDA xB5
DAC0 09 7F ORA #$7F
DAC2 25 B1 AND xB1
DAC4 91 71 STA (x71),Y
DAC6 88 DEY
DAC7 A5 B0 LDA xB0
DAC9 91 71 STA (x71),Y
DACB 84 BF STY xBF
DACD 60 RTS
DACE A5 BD iDACE LDA xBD
DAD0 85 B5 iDAD0 STA xB5
DAD2 A2 05 LDX #$05
DAD4 B5 B7 iDAD4 LDA xB7,X
DAD6 95 AF STA xAF,X
DAD8 CA DEX
DAD9 D0 F9 BNE iDAD4
DADB 86 BF STX xBF
DADD 60 RTS
DADE 20 ED DA iDADE JSR iDAED
DAE1 A2 06 iDAE1 LDX #$06
DAE3 B5 AF iDAE3 LDA xAF,X
DAE5 95 B7 STA xB7,X
DAE7 CA DEX
DAE8 D0 F9 BNE iDAE3
DAEA 86 BF STX xBF
DAEC 60 iDAEC RTS
DAED A5 B0 iDAED LDA xB0
DAEF F0 FB BEQ iDAEC
DAF1 06 BF ASL xBF
DAF3 90 F7 BCC iDAEC
DAF5 20 44 D8 iDAF5 JSR iD844
DAF8 D0 F2 BNE iDAEC
DAFA 4C 0D D8 JMP iD80D
DAFD A5 B0 iDAFD LDA xB0
DAFF F0 09 BEQ iDB0A
DB01 A5 B5 iDB01 LDA xB5
DB03 2A iDB03 ROL
DB04 A9 FF LDA #$FF
DB06 B0 02 BCS iDB0A
DB08 A9 01 LDA #$01
DB0A 60 iDB0A RTS
DB0B 20 FD DA SGN JSR iDAFD
DB0E 85 B1 iDB0E STA xB1
DB10 A9 00 LDA #$00
DB12 85 B2 STA xB2
DB14 A2 88 LDX #$88
DB16 A5 B1 iDB16 LDA xB1
DB18 49 FF EOR #$FF
DB1A 2A ROL
DB1B A9 00 iDB1B LDA #$00
DB1D 85 B4 STA xB4
DB1F 85 B3 STA xB3
DB21 86 B0 iDB21 STX xB0
DB23 85 BF STA xBF
DB25 85 B5 STA xB5
DB27 4C A7 D7 JMP iD7A7
DB2A 46 B5 ABS LSR xB5
DB2C 60 RTS
DB2D 85 73 iDB2D STA x73
DB2F 84 74 iDB2F STY x74
DB31 A0 00 LDY #$00
DB33 B1 73 LDA (x73),Y
DB35 C8 INY
DB36 AA TAX
DB37 F0 C4 BEQ iDAFD
DB39 B1 73 LDA (x73),Y
DB3B 45 B5 EOR xB5
DB3D 30 C2 BMI iDB01
DB3F E4 B0 CPX xB0
DB41 D0 21 BNE iDB64
DB43 B1 73 LDA (x73),Y
DB45 09 80 ORA #$80
DB47 C5 B1 CMP xB1
DB49 D0 19 BNE iDB64
DB4B C8 INY
DB4C B1 73 LDA (x73),Y
DB4E C5 B2 CMP xB2
DB50 D0 12 BNE iDB64
DB52 C8 INY
DB53 B1 73 LDA (x73),Y
DB55 C5 B3 CMP xB3
DB57 D0 0B BNE iDB64
DB59 C8 INY
DB5A A9 7F LDA #$7F
DB5C C5 BF CMP xBF
DB5E B1 73 LDA (x73),Y
DB60 E5 B4 SBC xB4
DB62 F0 28 BEQ iDB8C
DB64 A5 B5 iDB64 LDA xB5
DB66 90 02 BCC iDB6A
DB68 49 FF EOR #$FF
DB6A 4C 03 DB iDB6A JMP iDB03
DB6D A5 B0 iDB6D LDA xB0
DB6F F0 4A BEQ iDBBB
DB71 38 SEC
DB72 E9 A0 SBC #$A0
DB74 24 B5 BIT xB5
DB76 10 09 BPL iDB81
DB78 AA TAX
DB79 A9 FF LDA #$FF
DB7B 85 B7 STA xB7
DB7D 20 22 D8 JSR iD822
DB80 8A TXA
DB81 A2 B0 iDB81 LDX #$B0
DB83 C9 F9 CMP #$F9
DB85 10 06 BPL iDB8D
DB87 20 6E D8 JSR iD86E
DB8A 84 B7 STY xB7
DB8C 60 iDB8C RTS
DB8D A8 iDB8D TAY
DB8E A5 B5 LDA xB5
DB90 29 80 AND #$80
DB92 46 B1 LSR xB1
DB94 05 B1 ORA xB1
DB96 85 B1 STA xB1
DB98 20 85 D8 JSR iD885
DB9B 84 B7 STY xB7
DB9D 60 RTS
DB9E A5 B0 INT LDA xB0
DBA0 C9 A0 CMP #$A0
DBA2 B0 20 BCS iDBC4
DBA4 20 6D DB JSR iDB6D
DBA7 84 BF STY xBF
DBA9 A5 B5 LDA xB5
DBAB 84 B5 STY xB5
DBAD 49 80 EOR #$80
DBAF 2A ROL
DBB0 A9 A0 LDA #$A0
DBB2 85 B0 STA xB0
DBB4 A5 B4 LDA xB4
DBB6 85 5A STA x5A
DBB8 4C A7 D7 JMP iD7A7
DBBB 85 B1 iDBBB STA xB1
DBBD 85 B2 STA xB2
DBBF 85 B3 STA xB3
DBC1 85 B4 STA xB4
DBC3 A8 TAY
DBC4 60 iDBC4 RTS
DBC5 A0 00 iDBC5 LDY #$00
DBC7 A2 0A LDX #$0A
DBC9 94 AC iDBC9 STY xAC,X
DBCB CA DEX
DBCC 10 FB BPL iDBC9
DBCE 90 0F BCC iDBDF
DBD0 C9 2D CMP #$2D
DBD2 D0 04 BNE iDBD8
DBD4 86 B6 STX xB6
DBD6 F0 04 BEQ iDBDC
DBD8 C9 2B iDBD8 CMP #$2B
DBDA D0 05 BNE iDBE1
DBDC 20 C2 00 iDBDC JSR iC2
DBDF 90 5B iDBDF BCC iDC3C
DBE1 C9 2E iDBE1 CMP #$2E
DBE3 F0 2E BEQ iDC13
DBE5 C9 45 CMP #$45
DBE7 D0 30 BNE iDC19
DBE9 20 C2 00 JSR iC2
DBEC 90 17 BCC iDC05
DBEE C9 AB CMP #$AB
DBF0 F0 0E BEQ iDC00
DBF2 C9 2D CMP #$2D
DBF4 F0 0A BEQ iDC00
DBF6 C9 AA CMP #$AA
DBF8 F0 08 BEQ iDC02
DBFA C9 2B CMP #$2B
DBFC F0 04 BEQ iDC02
DBFE D0 07 BNE iDC07
DC00 66 AF iDC00 ROR xAF
DC02 20 C2 00 iDC02 JSR iC2
DC05 90 5C iDC05 BCC iDC63
DC07 24 AF iDC07 BIT xAF
DC09 10 0E BPL iDC19
DC0B A9 00 LDA #$00
DC0D 38 SEC
DC0E E5 AD SBC xAD
DC10 4C 1B DC JMP iDC1B
DC13 66 AE iDC13 ROR xAE
DC15 24 AE BIT xAE
DC17 50 C3 BVC iDBDC
DC19 A5 AD iDC19 LDA xAD
DC1B 38 iDC1B SEC
DC1C E5 AC SBC xAC
DC1E 85 AD STA xAD
DC20 F0 12 BEQ iDC34
DC22 10 09 BPL iDC2D
DC24 20 D0 D9 iDC24 JSR iD9D0
DC27 E6 AD INC xAD
DC29 D0 F9 BNE iDC24
DC2B F0 07 BEQ iDC34
DC2D 20 B4 D9 iDC2D JSR iD9B4
DC30 C6 AD DEC xAD
DC32 D0 F9 BNE iDC2D
DC34 A5 B6 iDC34 LDA xB6
DC36 30 01 BMI iDC39
DC38 60 RTS
DC39 4C 67 DE iDC39 JMP iDE67
DC3C 48 iDC3C PHA
DC3D 24 AE BIT xAE
DC3F 10 02 BPL iDC43
DC41 E6 AC INC xAC
DC43 20 B4 D9 iDC43 JSR iD9B4
DC46 68 PLA
DC47 38 SEC
DC48 E9 30 SBC #$30
DC4A 20 50 DC JSR iDC50
DC4D 4C DC DB JMP iDBDC
DC50 48 iDC50 PHA
DC51 20 DE DA JSR iDADE
DC54 68 PLA
DC55 20 0E DB JSR iDB0E
DC58 A5 BD LDA xBD
DC5A 45 B5 EOR xB5
DC5C 85 BE STA xBE
DC5E A6 B0 LDX xB0
DC60 4C 3F D7 JMP iD73F
DC63 A5 AD iDC63 LDA xAD
DC65 C9 0C CMP #$0C
DC67 90 09 BCC iDC72
DC69 24 AF BIT xAF
DC6B 30 03 BMI iDC70
DC6D 4C 53 D8 JMP iD853
DC70 A9 0B iDC70 LDA #$0B
DC72 0A iDC72 ASL
DC73 0A ASL
DC74 18 CLC
DC75 65 AD ADC xAD
DC77 0A ASL
DC78 18 CLC
DC79 A0 00 LDY #$00
DC7B 71 C9 ADC (xC9),Y
DC7D 38 SEC
DC7E E9 30 SBC #$30
DC80 85 AD STA xAD
DC82 4C 02 DC JMP iDC02
DC85 .byte $9B, $3E, $BC, $1F, $FD, $9E, $6E, $6B ;.><_..NK
DC8D .byte $27, $FE, $9E, $6E, $6B, $28, $00 ;'..NK(.
DC94 A9 94 iDC94 LDA #$94
DC96 A0 C2 LDY #$C2
DC98 20 AC DC JSR iDCAC
DC9B A5 89 LDA x89
DC9D A6 88 LDX x88
DC9F 85 B1 iDC9F STA xB1
DCA1 86 B2 STX xB2
DCA3 A2 90 LDX #$90
DCA5 38 SEC
DCA6 20 1B DB JSR iDB1B
DCA9 20 AF DC JSR iDCAF
DCAC 4C 27 CA iDCAC JMP iCA27
DCAF A0 01 iDCAF LDY #$01
DCB1 A9 20 iDCB1 LDA #$20
DCB3 24 B5 BIT xB5
DCB5 10 02 BPL iDCB9
DCB7 A9 2D LDA #$2D
DCB9 99 FF 00 iDCB9 STA STACK-1,Y
DCBC 85 B5 STA xB5
DCBE 84 C0 STY xC0
DCC0 C8 INY
DCC1 A9 30 LDA #$30
DCC3 A6 B0 LDX xB0
DCC5 D0 03 BNE iDCCA
DCC7 4C D6 DD JMP iDDD6
DCCA A9 00 iDCCA LDA #$00
DCCC E0 80 CPX #$80
DCCE F0 02 BEQ iDCD2
DCD0 B0 09 BCS iDCDB
DCD2 A9 8F iDCD2 LDA #$8F
DCD4 A0 DC LDY #$DC
DCD6 20 FD D8 JSR iD8FD
DCD9 A9 F7 LDA #$F7
DCDB 85 AC iDCDB STA xAC
DCDD A9 8A iDCDD LDA #$8A
DCDF A0 DC LDY #$DC
DCE1 20 2D DB JSR iDB2D
DCE4 F0 1E BEQ iDD04
DCE6 10 12 BPL iDCFA
DCE8 A9 85 iDCE8 LDA #$85
DCEA A0 DC LDY #$DC
DCEC 20 2D DB JSR iDB2D
DCEF F0 02 BEQ iDCF3
DCF1 10 0E BPL iDD01
DCF3 20 B4 D9 iDCF3 JSR iD9B4
DCF6 C6 AC DEC xAC
DCF8 D0 EE BNE iDCE8
DCFA 20 D0 D9 iDCFA JSR iD9D0
DCFD E6 AC INC xAC
DCFF D0 DC BNE iDCDD
DD01 20 1E D7 iDD01 JSR iD71E
DD04 20 6D DB iDD04 JSR iDB6D
DD07 A2 01 LDX #$01
DD09 A5 AC LDA xAC
DD0B 18 CLC
DD0C 69 0A ADC #$0A
DD0E 30 09 BMI iDD19
DD10 C9 0B CMP #$0B
DD12 B0 06 BCS iDD1A
DD14 69 FF ADC #$FF
DD16 AA TAX
DD17 A9 02 LDA #$02
DD19 38 iDD19 SEC
DD1A E9 02 iDD1A SBC #$02
DD1C 85 AD STA xAD
DD1E 86 AC STX xAC
DD20 8A TXA
DD21 F0 02 BEQ iDD25
DD23 10 13 BPL iDD38
DD25 A4 C0 iDD25 LDY xC0
DD27 A9 2E LDA #$2E
DD29 C8 INY
DD2A 99 FF 00 STA STACK-1,Y
DD2D 8A TXA
DD2E F0 06 BEQ iDD36
DD30 A9 30 LDA #$30
DD32 C8 INY
DD33 99 FF 00 STA STACK-1,Y
DD36 84 C0 iDD36 STY xC0
DD38 A0 00 iDD38 LDY #$00
DD3A A2 80 iDD3A LDX #$80
DD3C A5 B4 iDD3C LDA xB4
DD3E 18 CLC
DD3F 79 EB DD ADC xDDEB,Y
DD42 85 B4 STA xB4
DD44 A5 B3 LDA xB3
DD46 79 EA DD ADC xDDEA,Y
DD49 85 B3 STA xB3
DD4B A5 B2 LDA xB2
DD4D 79 E9 DD ADC xDDE9,Y
DD50 85 B2 STA xB2
DD52 A5 B1 LDA xB1
DD54 79 E8 DD ADC xDDE8,Y
DD57 85 B1 STA xB1
DD59 E8 INX
DD5A B0 04 BCS iDD60
DD5C 10 DE BPL iDD3C
DD5E 30 02 BMI iDD62
DD60 30 DA iDD60 BMI iDD3C
DD62 8A iDD62 TXA
DD63 90 04 BCC iDD69
DD65 49 FF EOR #$FF
DD67 69 0A ADC #$0A
DD69 69 2F iDD69 ADC #$2F
DD6B C8 INY
DD6C C8 INY
DD6D C8 INY
DD6E C8 INY
DD6F 84 96 STY x96
DD71 A4 C0 LDY xC0
DD73 C8 INY
DD74 AA TAX
DD75 29 7F AND #$7F
DD77 99 FF 00 STA STACK-1,Y
DD7A C6 AC DEC xAC
DD7C D0 06 BNE iDD84
DD7E A9 2E LDA #$2E
DD80 C8 INY
DD81 99 FF 00 STA STACK-1,Y
DD84 84 C0 iDD84 STY xC0
DD86 A4 96 LDY x96
DD88 8A TXA
DD89 49 FF EOR #$FF
DD8B 29 80 AND #$80
DD8D AA TAX
DD8E C0 24 CPY #$24
DD90 F0 04 BEQ iDD96
DD92 C0 3C CPY #$3C
DD94 D0 A6 BNE iDD3C
DD96 A4 C0 iDD96 LDY xC0
DD98 B9 FF 00 iDD98 LDA STACK-1,Y
DD9B 88 DEY
DD9C C9 30 CMP #$30
DD9E F0 F8 BEQ iDD98
DDA0 C9 2E CMP #$2E
DDA2 F0 01 BEQ iDDA5
DDA4 C8 INY
DDA5 A9 2B iDDA5 LDA #$2B
DDA7 A6 AD LDX xAD
DDA9 F0 2E BEQ iDDD9
DDAB 10 08 BPL iDDB5
DDAD A9 00 LDA #$00
DDAF 38 SEC
DDB0 E5 AD SBC xAD
DDB2 AA TAX
DDB3 A9 2D LDA #$2D
DDB5 99 01 01 iDDB5 STA STACK+1,Y
DDB8 A9 45 LDA #$45
DDBA 99 00 01 STA STACK,Y
DDBD 8A TXA
DDBE A2 2F LDX #$2F
DDC0 38 SEC
DDC1 E8 iDDC1 INX
DDC2 E9 0A SBC #$0A
DDC4 B0 FB BCS iDDC1
DDC6 69 3A ADC #$3A
DDC8 99 03 01 STA STACK+3,Y
DDCB 8A TXA
DDCC 99 02 01 STA STACK+2,Y
DDCF A9 00 LDA #$00
DDD1 99 04 01 STA STACK+4,Y
DDD4 F0 08 BEQ iDDDE
DDD6 99 FF 00 iDDD6 STA STACK-1,Y
DDD9 A9 00 iDDD9 LDA #$00
DDDB 99 00 01 STA STACK,Y
DDDE A9 00 iDDDE LDA #$00
DDE0 A0 01 LDY #$01
DDE2 60 RTS
DDE3 .byte $80, $00, $00, $00, $00 ;.....
DDE8 xDDE8 .byte $FA ;.
DDE9 xDDE9 .byte $0A ;j
DDEA xDDEA .byte $1F ;_
DDEB xDDEB .byte $00, $00, $98, $96, $80, $FF, $F0, $BD ;.......=
DDF3 .byte $C0, $00, $01, $86, $A0, $FF, $FF, $D8 ;..a. ..X
DDFB .byte $F0, $00, $00, $03, $E8, $FF, $FF, $FF ;...c....
DE03 .byte $9C, $00, $00, $00, $0A, $FF, $FF, $FF ;....j...
DE0B .byte $FF, $FF, $DF, $0A, $80, $00, $03, $4B ;...j..ck
DE13 .byte $C0, $FF, $FF, $73, $60, $00, $00, $0E ;...S`..n
DE1B .byte $10, $FF, $FF, $FD, $A8, $00, $00, $00 ;p...(...
DE23 .byte $3C ;<
DE24 20 DE DA SQR JSR iDADE
DE27 A9 E3 LDA #$E3
DE29 A0 DD LDY #$DD
DE2B 20 74 DA JSR iDA74
DE2E F0 70 BEQ EXP
DE30 A5 B8 LDA xB8
DE32 D0 03 BNE iDE37
DE34 4C CE D7 JMP iD7CE
DE37 A2 9D iDE37 LDX #$9D
DE39 A0 00 LDY #$00
DE3B 20 A6 DA JSR iDAA6
DE3E A5 BD LDA xBD
DE40 10 0F BPL iDE51
DE42 20 9E DB JSR INT
DE45 A9 9D LDA #$9D
DE47 A0 00 LDY #$00
DE49 20 2D DB JSR iDB2D
DE4C D0 03 BNE iDE51
DE4E 98 TYA
DE4F A4 5A LDY x5A
DE51 20 D0 DA iDE51 JSR iDAD0
DE54 98 TYA
DE55 48 PHA
DE56 20 BF D8 JSR LOG
DE59 A9 9D LDA #$9D
DE5B A0 00 LDY #$00
DE5D 20 FD D8 JSR iD8FD
DE60 20 A0 DE JSR EXP
DE63 68 PLA
DE64 4A LSR
DE65 90 0A BCC iDE71
DE67 A5 B0 iDE67 LDA xB0
DE69 F0 06 BEQ iDE71
DE6B A5 B5 LDA xB5
DE6D 49 FF EOR #$FF
DE6F 85 B5 STA xB5
DE71 60 iDE71 RTS
DE72 .byte $81, $38, $AA, $3B, $29, $07, $71, $34 ;.8*;)gQ4
DE7A .byte $58, $3E, $56, $74, $16, $7E, $B3, $1B ;x>vTv~3[
DE82 .byte $77, $2F, $EE, $E3, $85, $7A, $1D, $84 ;W/...Z].
DE8A .byte $1C, $2A, $7C, $63, $59, $58, $0A, $7E ;\*|Cyxj~
DE92 .byte $75, $FD, $E7, $C6, $80, $31, $72, $18 ;U..F.1Rx
DE9A .byte $10, $81, $00, $00, $00, $00 ;p.....
DEA0 A9 72 EXP LDA #$72
DEA2 A0 DE LDY #$DE
DEA4 20 FD D8 JSR iD8FD
DEA7 A5 BF LDA xBF
DEA9 69 50 ADC #$50
DEAB 90 03 BCC iDEB0
DEAD 20 F5 DA JSR iDAF5
DEB0 85 A5 iDEB0 STA xA5
DEB2 20 E1 DA JSR iDAE1
DEB5 A5 B0 LDA xB0
DEB7 C9 88 CMP #$88
DEB9 90 03 BCC iDEBE
DEBB 20 A6 D9 iDEBB JSR iD9A6
DEBE 20 9E DB iDEBE JSR INT
DEC1 A5 5A LDA x5A
DEC3 18 CLC
DEC4 69 81 ADC #$81
DEC6 F0 F3 BEQ iDEBB
DEC8 38 SEC
DEC9 E9 01 SBC #$01
DECB 48 PHA
DECC A2 05 LDX #$05
DECE B5 B8 iDECE LDA xB8,X
DED0 B4 B0 LDY xB0,X
DED2 95 B0 STA xB0,X
DED4 94 B8 STY xB8,X
DED6 CA DEX
DED7 10 F5 BPL iDECE
DED9 A5 A5 LDA xA5
DEDB 85 BF STA xBF
DEDD 20 28 D7 JSR iD728
DEE0 20 67 DE JSR iDE67
DEE3 A9 77 LDA #$77
DEE5 A0 DE LDY #$DE
DEE7 20 09 DF JSR iDF09
DEEA A9 00 LDA #$00
DEEC 85 BE STA xBE
DEEE 68 PLA
DEEF 20 8B D9 JSR iD98B
DEF2 60 RTS
DEF3 85 C0 iDEF3 STA xC0
DEF5 84 C1 STY xC1
DEF7 20 9C DA JSR iDA9C
DEFA A9 A6 LDA #$A6
DEFC 20 FD D8 JSR iD8FD
DEFF 20 0D DF JSR iDF0D
DF02 A9 A6 LDA #$A6
DF04 A0 00 LDY #$00
DF06 4C FD D8 JMP iD8FD
DF09 85 C0 iDF09 STA xC0
DF0B 84 C1 STY xC1
DF0D 20 99 DA iDF0D JSR iDA99
DF10 B1 C0 LDA (xC0),Y
DF12 85 B6 STA xB6
DF14 A4 C0 LDY xC0
DF16 C8 INY
DF17 98 TYA
DF18 D0 02 BNE iDF1C
DF1A E6 C1 INC xC1
DF1C 85 C0 iDF1C STA xC0
DF1E A4 C1 LDY xC1
DF20 20 FD D8 iDF20 JSR iD8FD
DF23 A5 C0 LDA xC0
DF25 A4 C1 LDY xC1
DF27 18 CLC
DF28 69 05 ADC #$05
DF2A 90 01 BCC iDF2D
DF2C C8 INY
DF2D 85 C0 iDF2D STA xC0
DF2F 84 C1 STY xC1
DF31 20 3C D7 JSR iD73C
DF34 A9 AB LDA #$AB
DF36 A0 00 LDY #$00
DF38 C6 B6 DEC xB6
DF3A D0 E4 BNE iDF20
DF3C 60 RTS
DF3D .byte $98, $35, $44, $7A, $68, $28, $B1, $46 ;.5dZH(1f
DF45 20 FD DA RND JSR iDAFD
DF48 30 2E BMI iDF78
DF4A D0 17 BNE iDF63
DF4C AD 44 90 LDA x9044
DF4F 85 B1 STA xB1
DF51 AD 48 90 LDA x9048
DF54 85 B2 STA xB2
DF56 AD 45 90 LDA x9045
DF59 85 B3 STA xB3
DF5B AD 49 90 LDA x9049
DF5E 85 B4 STA xB4
DF60 4C 88 DF JMP iDF88
DF63 A9 DA iDF63 LDA #$DA
DF65 A0 00 LDY #$00
DF67 20 74 DA JSR iDA74
DF6A A9 3D LDA #$3D
DF6C A0 DF LDY #$DF
DF6E 20 FD D8 JSR iD8FD
DF71 A9 41 LDA #$41
DF73 A0 DF LDY #$DF
DF75 20 3C D7 JSR iD73C
DF78 A6 B4 iDF78 LDX xB4
DF7A A5 B1 LDA xB1
DF7C 85 B4 STA xB4
DF7E 86 B1 STX xB1
DF80 A6 B2 LDX xB2
DF82 A5 B3 LDA xB3
DF84 85 B2 STA xB2
DF86 86 B3 STX xB3
DF88 A9 00 iDF88 LDA #$00
DF8A 85 B5 STA xB5
DF8C A5 B0 LDA xB0
DF8E 85 BF STA xBF
DF90 A9 80 LDA #$80
DF92 85 B0 STA xB0
DF94 20 AC D7 JSR iD7AC
DF97 A2 DA LDX #$DA
DF99 A0 00 LDY #$00
DF9B 4C A6 DA iDF9B JMP iDAA6
DF9E A9 1A COS LDA #$1A
DFA0 A0 E0 LDY #$E0
DFA2 20 3C D7 JSR iD73C
DFA5 20 DE DA SIN JSR iDADE
DFA8 A9 1F LDA #$1F
DFAA A0 E0 LDY #$E0
DFAC A6 BD LDX xBD
DFAE 20 D9 D9 JSR iD9D9
DFB1 20 DE DA JSR iDADE
DFB4 20 9E DB JSR INT
DFB7 A9 00 LDA #$00
DFB9 85 BE STA xBE
DFBB 20 28 D7 JSR iD728
DFBE A9 24 LDA #$24
DFC0 A0 E0 LDY #$E0
DFC2 20 25 D7 JSR iD725
DFC5 A5 B5 LDA xB5
DFC7 48 PHA
DFC8 10 0D BPL iDFD7
DFCA 20 1E D7 JSR iD71E
DFCD A5 B5 LDA xB5
DFCF 30 09 BMI iDFDA
DFD1 A5 63 LDA x63
DFD3 49 FF EOR #$FF
DFD5 85 63 STA x63
DFD7 20 67 DE iDFD7 JSR iDE67
DFDA A9 24 iDFDA LDA #$24
DFDC A0 E0 LDY #$E0
DFDE 20 3C D7 JSR iD73C
DFE1 68 PLA
DFE2 10 03 BPL iDFE7
DFE4 20 67 DE JSR iDE67
DFE7 A9 29 iDFE7 LDA #$29
DFE9 A0 E0 LDY #$E0
DFEB 4C F3 DE JMP iDEF3
DFEE 20 9C DA TAN JSR iDA9C
DFF1 A9 00 LDA #$00
DFF3 85 63 STA x63
DFF5 20 A5 DF JSR SIN
DFF8 A2 9D LDX #$9D
DFFA A0 00 LDY #$00
DFFC 20 9B DF JSR iDF9B
DFFF A9 A6 LDA #$A6
E001 A0 00 LDY #$00
E003 20 74 DA JSR iDA74
E006 A9 00 LDA #$00
E008 85 B5 STA xB5
E00A A5 63 LDA x63
E00C 20 16 E0 JSR iE016
E00F A9 9D LDA #$9D
E011 A0 00 LDY #$00
E013 4C E1 D9 JMP iD9E1
E016 48 iE016 PHA
E017 4C D7 DF JMP iDFD7
E01A .byte $81, $49, $0F, $DA, $A2, $83, $49, $0F ;.ioZ".io
E022 .byte $DA, $A2, $7F, $00, $00, $00, $00, $05 ;Z".....e
E02A .byte $84, $E6, $1A, $2D, $1B, $86, $28, $07 ;..z-[.(g
E032 .byte $FB, $F8, $87, $99, $68, $89, $01, $87 ;....H.a.
E03A .byte $23, $35, $DF, $E1, $86, $A5, $5D, $E7 ;#5...%].
E042 .byte $28, $83, $49, $0F, $DA, $A2 ;(.ioZ"
E048 A5 B5 ATN LDA xB5
E04A 48 PHA
E04B 10 03 BPL iE050
E04D 20 67 DE JSR iDE67
E050 A5 B0 iE050 LDA xB0
E052 48 PHA
E053 C9 81 CMP #$81
E055 90 07 BCC iE05E
E057 A9 91 LDA #$91
E059 A0 D8 LDY #$D8
E05B 20 E1 D9 JSR iD9E1
E05E A9 78 iE05E LDA #$78
E060 A0 E0 LDY #$E0
E062 20 F3 DE JSR iDEF3
E065 68 PLA
E066 C9 81 CMP #$81
E068 90 07 BCC iE071
E06A A9 1A LDA #$1A
E06C A0 E0 LDY #$E0
E06E 20 25 D7 JSR iD725
E071 68 iE071 PLA
E072 10 03 BPL iE077
E074 4C 67 DE JMP iDE67
E077 60 iE077 RTS
E078 .byte $0B, $76, $B3, $83, $BD, $D3, $79, $1E ;kV3.=SY^
E080 .byte $F4, $A6, $F5, $7B, $83, $FC, $B0, $10 ;.&.{..0p
E088 .byte $7C, $0C, $1F, $67, $CA, $7C, $DE, $53 ;|l_GJ|.s
E090 .byte $CB, $C1, $7D, $14, $64, $70, $4C, $7D ;KA}tDPl}
E098 .byte $B7, $EA, $51, $7A, $7D, $63, $30, $88 ;7.qZ}C0.
E0A0 .byte $7E, $7E, $92, $44, $99, $3A, $7E, $4C ;~~.d.:~l
E0A8 .byte $CC, $91, $C7, $7F, $AA, $AA, $AA, $13 ;L.G.***s
E0B0 .byte $81, $00, $00, $00 ;....
E0B4 xE0B4 .byte $00, $E6, $C9, $D0, $02, $E6, $CA, $AD ;..IPb.J-
E0BC .byte $60, $EA, $C9, $3A, $B0, $0A, $C9, $20 ;`.I:0jI
E0C4 .byte $F0, $EF, $38, $E9, $30, $38, $E9, $D0 ;..8.08.P
E0CC .byte $60, $80, $4F, $C7, $52, $59 ;`.oGry
E0D2 A2 FF iE0D2 LDX #$FF
E0D4 86 89 STX x89
E0D6 9A TXS
E0D7 A9 4C LDA #$4C
E0D9 85 A3 STA iA3
E0DB 85 00 STA USR
E0DD A9 30 LDA #$30
E0DF A0 D1 LDY #$D1
E0E1 85 01 STA x01
E0E3 84 02 STY x02
E0E5 A2 1C LDX #$1C
E0E7 BD B4 E0 iE0E7 LDA xE0B4,X
E0EA 95 C1 STA xC1,X
E0EC CA DEX
E0ED D0 F8 BNE iE0E7
E0EF 8A TXA
E0F0 85 B7 STA xB7
E0F2 85 03 STA x03
E0F4 85 67 STA x67
E0F6 85 04 STA x04
E0F8 85 05 STA x05
E0FA 48 PHA
E0FB 85 64 STA x64
E0FD A9 03 LDA #$03
E0FF 85 A2 STA xA2
E101 A9 2C LDA #$2C
E103 85 09 STA x09
E105 20 D2 C9 JSR iC9D2
E108 A2 68 LDX #$68
E10A 86 65 STX x65
E10C A9 00 LDA #$00
E10E A0 04 LDY #$04
E110 85 08 STA x08
E112 84 09 STY x09
E114 A0 00 LDY #$00
E116 E6 08 iE116 INC x08
E118 D0 08 BNE iE122
E11A E6 09 INC x09
E11C A5 09 LDA x09
E11E C9 80 CMP #$80
E120 F0 0F BEQ iE131
E122 A9 92 iE122 LDA #$92
E124 91 08 STA (x08),Y
E126 D1 08 CMP (x08),Y
E128 D0 07 BNE iE131
E12A 0A ASL
E12B 91 08 STA (x08),Y
E12D D1 08 CMP (x08),Y
E12F F0 E5 BEQ iE116
E131 A5 08 iE131 LDA x08
E133 A4 09 LDY x09
E135 85 86 STA x86
E137 84 87 STY x87
E139 85 82 STA x82
E13B 84 83 STY x83
E13D A2 00 LDX #$00
E13F A0 04 LDY #$04
E141 86 7A STX x7A
E143 84 7B STY x7B
E145 A0 00 LDY #$00
E147 98 TYA
E148 91 7A STA (x7A),Y
E14A E6 7A INC x7A
E14C D0 02 BNE iE150
E14E E6 7B INC x7B
E150 A5 7A iE150 LDA x7A
E152 A4 7B LDY x7B
E154 20 2A C3 JSR iC32A
E157 20 D2 C9 JSR iC9D2
E15A A5 86 LDA x86
E15C 38 SEC
E15D E5 7A SBC x7A
E15F AA TAX
E160 A5 87 LDA x87
E162 E5 7B SBC x7B
E164 20 9F DC JSR iDC9F
E167 A9 74 LDA #$74
E169 A0 E1 LDY #$E1
E16B 20 27 CA JSR iCA27
E16E 20 53 C5 JSR iC553
E171 4C 8B C3 JMP iC38B
E174 .byte $20, $42, $59, $54, $45, $53, $20, $46 ; bytes f
E17C .byte $52, $45, $45, $13, $2A, $2A, $2A, $20 ;rees***
E184 .byte $43, $4F, $4D, $4D, $4F, $44, $4F, $52 ;commodor
E18C .byte $45, $20, $42, $41, $53, $49, $43, $20 ;e basic
E194 .byte $2A, $2A, $2A, $11, $11, $11, $00 ;***qqq.
E19B 18 iE19B CLC
E19C 4C 2B C7 JMP iC72B
E19F 24 B4 iE19F BIT xB4
E1A1 10 07 BPL iE1AA
E1A3 C9 54 CMP #$54
E1A5 D0 03 BNE iE1AA
E1A7 4C 3B CE JMP iCE3B
E1AA 60 iE1AA RTS
E1AB 24 B4 iE1AB BIT xB4
E1AD 30 03 BMI iE1B2
E1AF 4C 90 CE JMP iCE90
E1B2 C9 54 iE1B2 CMP #$54
E1B4 F0 03 BEQ iE1B9
E1B6 4C 82 CE JMP iCE82
E1B9 4C 69 CE iE1B9 JMP iCE69
E1BC 85 5A iE1BC STA x5A
E1BE E8 INX
E1BF 4C D9 E1 JMP iE1D9
E1C2 10 05 iE1C2 BPL iE1C9
E1C4 A5 8E LDA x8E
E1C6 A4 8F LDY x8F
E1C8 60 RTS
E1C9 A0 FF iE1C9 LDY #$FF
E1CB 60 RTS
E1CC D0 0A iE1CC BNE iE1D8
E1CE E6 05 iE1CE INC x05
E1D0 D0 06 BNE iE1D8
E1D2 A5 E2 LDA xE2
E1D4 85 05 STA x05
E1D6 D0 F6 BNE iE1CE
E1D8 60 iE1D8 RTS
E1D9 86 C9 iE1D9 STX xC9
E1DB 68 PLA
E1DC 68 PLA
E1DD 98 TYA
E1DE 4C 88 CB JMP iCB88
E1E1 A9 7F iE1E1 LDA #$7F
E1E3 8D 4E E8 STA VIA_IER
E1E6 85 06 STA x06
E1E8 85 07 STA x07
E1EA A2 00 LDX #$00
E1EC 8A TXA
E1ED 9D 00 02 iE1ED STA x0200,X
E1F0 CA iE1F0 DEX
E1F1 D0 FA BNE iE1ED
E1F3 CA DEX
E1F4 A9 85 LDA #$85
E1F6 8D 19 02 STA IRQV
E1F9 A9 E6 LDA #$E6
E1FB 8D 1A 02 STA IRQV+1
E1FE A9 03 LDA #$03
E200 8D 64 02 STA CURODEV
E203 A9 0F LDA #$0F
E205 8D 10 E8 STA PIA1_PA
E208 0A ASL
E209 8D 40 E8 STA VIA_DRB
E20C 8D 42 E8 STA VIA_DDRB
E20F 8E 22 E8 STX PIA2_PB
E212 8E 45 E8 STX VIA_T1CH
E215 A9 3D LDA #$3D
E217 8D 13 E8 STA PIA1_CRB
E21A 2C 12 E8 BIT PIA1_PB
E21D A9 3C LDA #$3C
E21F 8D 21 E8 STA PIA2_CRA
E222 8D 23 E8 STA PIA2_CRB
E225 8D 11 E8 STA PIA1_CRA
E228 8E 22 E8 STX PIA2_PB
E22B A9 0C LDA #$0C
E22D 8D 4C E8 STA VIA_PCR
E230 8D 25 02 STA x0225
E233 8D 24 02 STA x0224
E236 A0 00 iE236 LDY #$00
E238 8C 0E 02 STY x020E
E23B 84 E0 STY xE0
E23D A9 84 LDA #$84
E23F 85 E1 STA xE1
E241 A9 20 iE241 LDA #$20
E243 C6 E1 DEC xE1
E245 91 E0 iE245 STA (xE0),Y
E247 88 DEY
E248 D0 FB BNE iE245
E24A A5 E1 LDA xE1
E24C C9 80 CMP #$80
E24E D0 F1 BNE iE241
E250 A9 80 LDA #$80
E252 A2 19 LDX #$19
E254 9D 28 02 iE254 STA x0228,X
E257 CA DEX
E258 D0 FA BNE iE254
E25A A0 12 LDY #$12
E25C 20 73 E2 JSR iE273
E25F A0 0C LDY #$0C
E261 20 73 E2 JSR iE273
E264 A0 05 LDY #$05
E266 20 73 E2 JSR iE273
E269 A0 00 iE269 LDY #$00
E26B 84 E2 STY xE2
E26D 84 F5 STY xF5
E26F 20 DB E5 JSR iE5DB
E272 60 RTS
E273 A2 18 iE273 LDX #$18
E275 FE 29 02 iE275 INC x0229,X
E278 CA DEX
E279 88 DEY
E27A D0 F9 BNE iE275
E27C 60 RTS
E27D AC 0F 02 iE27D LDY x020F
E280 A2 00 LDX #$00
E282 BD 10 02 iE282 LDA x0210,X
E285 9D 0F 02 STA x020F,X
E288 E8 INX
E289 EC 0D 02 CPX NKEYS
E28C D0 F4 BNE iE282
E28E CE 0D 02 DEC NKEYS
E291 98 TYA
E292 58 CLI
E293 60 RTS
E294 20 EA E3 iE294 JSR KPRCHAR
E297 AD 0D 02 iE297 LDA NKEYS
E29A 8D 24 02 STA x0224
E29D F0 F8 BEQ iE297
E29F 78 SEI
E2A0 AD 27 02 LDA x0227
E2A3 F0 0B BEQ iE2B0
E2A5 AD 26 02 LDA x0226
E2A8 A0 00 LDY #$00
E2AA 8C 27 02 STY x0227
E2AD 20 AC E7 JSR iE7AC
E2B0 20 7D E2 iE2B0 JSR iE27D
E2B3 C9 83 CMP #$83
E2B5 D0 11 BNE iE2C8
E2B7 78 SEI
E2B8 A2 09 LDX #$09
E2BA 8E 0D 02 STX NKEYS
E2BD BD D4 E7 iE2BD LDA xE7D4,X
E2C0 9D 0E 02 STA x020E,X
E2C3 CA DEX
E2C4 D0 F7 BNE iE2BD
E2C6 F0 CF BEQ iE297
E2C8 C9 0D iE2C8 CMP #$0D
E2CA D0 C8 BNE iE294
E2CC A4 F2 LDY xF2
E2CE 8C 60 02 STY x0260
E2D1 B1 E0 iE2D1 LDA (xE0),Y
E2D3 C9 20 CMP #$20
E2D5 D0 03 BNE iE2DA
E2D7 88 DEY
E2D8 D0 F7 BNE iE2D1
E2DA C8 iE2DA INY
E2DB 8C 1E 02 STY x021E
E2DE A0 00 LDY #$00
E2E0 84 E2 STY xE2
E2E2 84 EA STY xEA
E2E4 AD 20 02 LDA x0220
E2E7 30 1A BMI iE303
E2E9 C5 F5 CMP xF5
E2EB D0 16 BNE iE303
E2ED AD 21 02 LDA x0221
E2F0 85 E2 STA xE2
E2F2 CD 1E 02 CMP x021E
E2F5 90 0C BCC iE303
E2F7 4C 27 E3 JMP iE327
E2FA 98 iE2FA TYA
E2FB 48 PHA
E2FC 8A TXA
E2FD 48 PHA
E2FE AD 60 02 LDA x0260
E301 F0 94 BEQ iE297
E303 A4 E2 iE303 LDY xE2
E305 B1 E0 LDA (xE0),Y
E307 85 F6 STA xF6
E309 29 3F AND #$3F
E30B 06 F6 ASL xF6
E30D 24 F6 BIT xF6
E30F 10 02 BPL iE313
E311 09 80 ORA #$80
E313 90 04 iE313 BCC iE319
E315 A6 EA LDX xEA
E317 D0 04 BNE iE31D
E319 70 02 iE319 BVS iE31D
E31B 09 40 ORA #$40
E31D E6 E2 iE31D INC xE2
E31F 20 49 E3 JSR iE349
E322 CC 1E 02 CPY x021E
E325 D0 13 BNE iE33A
E327 A9 00 iE327 LDA #$00
E329 8D 60 02 STA x0260
E32C A9 0D LDA #$0D
E32E AE 64 02 LDX CURODEV
E331 E0 03 CPX #$03
E333 F0 03 BEQ iE338
E335 20 EA E3 JSR KPRCHAR
E338 A9 0D iE338 LDA #$0D
E33A 85 F6 iE33A STA xF6
E33C 68 PLA
E33D AA TAX
E33E 68 PLA
E33F A8 TAY
E340 A5 F6 LDA xF6
E342 C9 DE CMP #$DE
E344 D0 02 BNE iE348
E346 A9 FF LDA #$FF
E348 60 iE348 RTS
E349 C9 22 iE349 CMP #$22
E34B D0 08 BNE iE355
E34D A5 EA LDA xEA
E34F 49 01 EOR #$01
E351 85 EA STA xEA
E353 A9 22 LDA #$22
E355 60 iE355 RTS
E356 09 40 iE356 ORA #$40
E358 AE 0E 02 iE358 LDX x020E
E35B F0 02 BEQ iE35F
E35D 09 80 iE35D ORA #$80
E35F A6 FB iE35F LDX xFB
E361 F0 02 BEQ iE365
E363 C6 FB DEC xFB
E365 20 AC E7 iE365 JSR iE7AC
E368 E6 E2 INC xE2
E36A A4 F2 LDY xF2
E36C C4 E2 CPY xE2
E36E B0 1A BCS iE38A
E370 A6 F5 LDX xF5
E372 C0 4F CPY #$4F
E374 D0 0D BNE iE383
E376 20 97 E3 JSR iE397
E379 20 30 E5 JSR iE530
E37C A9 00 LDA #$00
E37E 85 E2 STA xE2
E380 4C 8A E3 JMP iE38A
E383 E0 18 iE383 CPX #$18
E385 D0 1D BNE iE3A4
E387 20 AA E3 JSR iE3AA
E38A 68 iE38A PLA
E38B A8 TAY
E38C A5 FB LDA xFB
E38E F0 02 BEQ iE392
E390 46 EA LSR xEA
E392 68 iE392 PLA
E393 AA TAX
E394 68 PLA
E395 58 CLI
E396 60 RTS
E397 E0 17 iE397 CPX #$17
E399 B0 08 BCS iE3A3
E39B BD 2B 02 LDA x022B,X
E39E 09 80 ORA #$80
E3A0 9D 2B 02 STA x022B,X
E3A3 60 iE3A3 RTS
E3A4 20 B1 E3 iE3A4 JSR iE3B1
E3A7 4C 8A E3 JMP iE38A
E3AA 20 59 E5 iE3AA JSR iE559
E3AD C6 F5 DEC xF5
E3AF A6 F5 LDX xF5
E3B1 1E 2A 02 iE3B1 ASL x022A,X
E3B4 5E 2A 02 LSR x022A,X
E3B7 20 97 E3 JSR iE397
E3BA A5 E2 LDA xE2
E3BC 48 PHA
E3BD 20 DB E5 JSR iE5DB
E3C0 68 PLA
E3C1 85 E2 STA xE2
E3C3 60 RTS
E3C4 A0 27 iE3C4 LDY #$27
E3C6 A6 F5 LDX xF5
E3C8 D0 06 BNE iE3D0
E3CA 86 E2 STX xE2
E3CC 68 PLA
E3CD 68 PLA
E3CE D0 BA BNE iE38A
E3D0 BD 28 02 iE3D0 LDA x0228,X
E3D3 30 06 BMI iE3DB
E3D5 CA DEX
E3D6 BD 28 02 LDA x0228,X
E3D9 A0 4F LDY #$4F
E3DB CA iE3DB DEX
E3DC 86 F5 STX xF5
E3DE 85 E1 STA xE1
E3E0 BD BC E7 LDA xE7BC,X
E3E3 85 E0 STA xE0
E3E5 84 E2 STY xE2
E3E7 84 F2 STY xF2
E3E9 60 RTS
E3EA 48 KPRCHAR PHA
E3EB 85 F6 STA xF6
E3ED 8A TXA
E3EE 48 PHA
E3EF 98 TYA
E3F0 48 PHA
E3F1 A9 00 LDA #$00
E3F3 8D 60 02 STA x0260
E3F6 A4 E2 LDY xE2
E3F8 A5 F6 LDA xF6
E3FA 10 03 BPL iE3FF
E3FC 4C 8F E4 JMP iE48F
E3FF C9 0D iE3FF CMP #$0D
E401 D0 03 BNE iE406
E403 4C 48 E5 JMP iE548
E406 C9 20 iE406 CMP #$20
E408 90 08 BCC iE412
E40A 29 3F AND #$3F
E40C 20 49 E3 JSR iE349
E40F 4C 58 E3 JMP iE358
E412 A6 FB iE412 LDX xFB
E414 F0 03 BEQ iE419
E416 4C 5D E3 JMP iE35D
E419 C9 14 iE419 CMP #$14
E41B D0 1C BNE iE439
E41D 88 DEY
E41E 84 E2 STY xE2
E420 10 06 BPL iE428
E422 20 C4 E3 JSR iE3C4
E425 4C 33 E4 JMP iE433
E428 C8 iE428 INY
E429 B1 E0 LDA (xE0),Y
E42B 88 DEY
E42C 91 E0 STA (xE0),Y
E42E C8 INY
E42F C4 F2 CPY xF2
E431 D0 F5 BNE iE428
E433 A9 20 iE433 LDA #$20
E435 91 E0 STA (xE0),Y
E437 D0 3D BNE iE476
E439 A6 EA iE439 LDX xEA
E43B F0 03 BEQ iE440
E43D 4C 5D E3 JMP iE35D
E440 C9 12 iE440 CMP #$12
E442 D0 03 BNE iE447
E444 8D 0E 02 STA x020E
E447 C9 13 iE447 CMP #$13
E449 D0 03 BNE iE44E
E44B 20 69 E2 JSR iE269
E44E C9 1D iE44E CMP #$1D
E450 D0 12 BNE iE464
E452 C8 INY
E453 84 E2 STY xE2
E455 88 DEY
E456 C4 F2 CPY xF2
E458 90 07 BCC iE461
E45A 20 30 E5 JSR iE530
E45D A0 00 LDY #$00
E45F 84 E2 iE45F STY xE2
E461 4C 8A E3 iE461 JMP iE38A
E464 C9 11 iE464 CMP #$11
E466 D0 0E BNE iE476
E468 18 CLC
E469 98 TYA
E46A 69 28 ADC #$28
E46C A8 TAY
E46D C5 F2 CMP xF2
E46F 90 EE BCC iE45F
E471 F0 EC BEQ iE45F
E473 20 30 E5 JSR iE530
E476 4C 8A E3 iE476 JMP iE38A
E479 E8 INX
E47A 85 F5 STA xF5
E47C 98 TYA
E47D E9 28 SBC #$28
E47F 85 E2 STA xE2
E481 E6 F5 INC xF5
E483 AD BC E7 LDA xE7BC
E486 85 E0 STA xE0
E488 AD 29 02 LDA x0229
E48B 85 E1 STA xE1
E48D D0 E7 BNE iE476
E48F 29 7F iE48F AND #$7F
E491 C9 7F CMP #$7F
E493 D0 02 BNE iE497
E495 A9 5E LDA #$5E
E497 C9 20 iE497 CMP #$20
E499 90 03 BCC iE49E
E49B 4C 56 E3 JMP iE356
E49E C9 0D iE49E CMP #$0D
E4A0 D0 03 BNE iE4A5
E4A2 4C 48 E5 JMP iE548
E4A5 A6 EA iE4A5 LDX xEA
E4A7 D0 30 BNE iE4D9
E4A9 C9 14 CMP #$14
E4AB D0 28 BNE iE4D5
E4AD A4 F2 LDY xF2
E4AF B1 E0 LDA (xE0),Y
E4B1 C9 20 CMP #$20
E4B3 D0 04 BNE iE4B9
E4B5 C4 E2 CPY xE2
E4B7 D0 07 BNE iE4C0
E4B9 C0 4F iE4B9 CPY #$4F
E4BB F0 B9 BEQ iE476
E4BD 20 05 E6 JSR iE605
E4C0 A4 F2 iE4C0 LDY xF2
E4C2 88 iE4C2 DEY
E4C3 B1 E0 LDA (xE0),Y
E4C5 C8 INY
E4C6 91 E0 STA (xE0),Y
E4C8 88 DEY
E4C9 C4 E2 CPY xE2
E4CB D0 F5 BNE iE4C2
E4CD A9 20 LDA #$20
E4CF 91 E0 STA (xE0),Y
E4D1 E6 FB INC xFB
E4D3 D0 58 BNE iE52D
E4D5 A6 FB iE4D5 LDX xFB
E4D7 F0 05 BEQ iE4DE
E4D9 09 40 iE4D9 ORA #$40
E4DB 4C 5D E3 JMP iE35D
E4DE C9 11 iE4DE CMP #$11
E4E0 D0 2C BNE iE50E
E4E2 A5 E2 LDA xE2
E4E4 C9 28 CMP #$28
E4E6 90 06 BCC iE4EE
E4E8 E9 28 SBC #$28
E4EA 85 E2 STA xE2
E4EC B0 3F BCS iE52D
E4EE A6 F5 iE4EE LDX xF5
E4F0 F0 3B BEQ iE52D
E4F2 BD 28 02 LDA x0228,X
E4F5 10 07 BPL iE4FE
E4F7 C6 F5 DEC xF5
E4F9 20 DB E5 JSR iE5DB
E4FC 90 2F BCC iE52D
E4FE CA iE4FE DEX
E4FF CA DEX
E500 86 F5 STX xF5
E502 20 DB E5 JSR iE5DB
E505 A5 E2 LDA xE2
E507 18 CLC
E508 69 28 ADC #$28
E50A 85 E2 STA xE2
E50C D0 1F BNE iE52D
E50E C9 12 iE50E CMP #$12
E510 D0 05 BNE iE517
E512 A9 00 LDA #$00
E514 8D 0E 02 STA x020E
E517 C9 1D iE517 CMP #$1D
E519 D0 0B BNE iE526
E51B 88 DEY
E51C 84 E2 STY xE2
E51E 10 0D BPL iE52D
E520 20 C4 E3 JSR iE3C4
E523 4C 8A E3 JMP iE38A
E526 C9 13 iE526 CMP #$13
E528 D0 03 BNE iE52D
E52A 20 36 E2 JSR iE236
E52D 4C 8A E3 iE52D JMP iE38A
E530 38 iE530 SEC
E531 4E 20 02 LSR x0220
E534 A6 F5 LDX xF5
E536 E8 iE536 INX
E537 E0 19 CPX #$19
E539 D0 03 BNE iE53E
E53B 20 59 E5 JSR iE559
E53E BD 29 02 iE53E LDA x0229,X
E541 10 F3 BPL iE536
E543 86 F5 STX xF5
E545 4C DB E5 JMP iE5DB
E548 A9 00 iE548 LDA #$00
E54A 85 FB STA xFB
E54C 8D 0E 02 STA x020E
E54F 85 EA STA xEA
E551 85 E2 STA xE2
E553 20 30 E5 JSR iE530
E556 4C 8A E3 JMP iE38A
E559 78 iE559 SEI
E55A A0 00 LDY #$00
E55C 84 E0 STY xE0
E55E A9 80 LDA #$80
E560 85 E4 STA SADDR+1
E562 85 E1 STA xE1
E564 A9 28 LDA #$28
E566 2C 2A 02 BIT x022A
E569 30 02 BMI iE56D
E56B A9 50 LDA #$50
E56D 85 E3 iE56D STA SADDR
E56F A9 34 LDA #$34
E571 8D 11 E8 STA PIA1_CRA
E574 B1 E3 iE574 LDA (SADDR),Y
E576 91 E0 STA (xE0),Y
E578 C8 INY
E579 D0 F9 BNE iE574
E57B E6 E4 INC SADDR+1
E57D E6 E1 INC xE1
E57F A9 84 LDA #$84
E581 C5 E4 CMP SADDR+1
E583 D0 EF BNE iE574
E585 A9 E8 LDA #$E8
E587 85 E0 STA xE0
E589 C6 E1 DEC xE1
E58B A9 20 LDA #$20
E58D C6 E0 iE58D DEC xE0
E58F C6 E3 DEC SADDR
E591 91 E0 STA (xE0),Y
E593 D0 F8 BNE iE58D
E595 A2 19 LDX #$19
E597 86 F5 STX xF5
E599 A2 00 iE599 LDX #$00
E59B C6 F5 DEC xF5
E59D BD 29 02 iE59D LDA x0229,X
E5A0 29 7F AND #$7F
E5A2 BC 2A 02 LDY x022A,X
E5A5 10 02 BPL iE5A9
E5A7 09 80 ORA #$80
E5A9 9D 29 02 iE5A9 STA x0229,X
E5AC E8 INX
E5AD E0 19 CPX #$19
E5AF D0 EC BNE iE59D
E5B1 A9 83 LDA #$83
E5B3 8D 41 02 STA x0241
E5B6 AD 29 02 LDA x0229
E5B9 10 DE BPL iE599
E5BB A9 3C LDA #$3C
E5BD 8D 11 E8 STA PIA1_CRA
E5C0 58 CLI
E5C1 A9 FE LDA #$FE
E5C3 CD 12 E8 CMP PIA1_PB
E5C6 D0 10 BNE iE5D8
E5C8 A0 08 LDY #$08
E5CA 8D 45 E8 iE5CA STA VIA_T1CH
E5CD 2C 4D E8 iE5CD BIT VIA_IFR
E5D0 50 FB BVC iE5CD
E5D2 88 DEY
E5D3 D0 F5 BNE iE5CA
E5D5 8C 0D 02 STY NKEYS
E5D8 A6 F5 iE5D8 LDX xF5
E5DA 60 RTS
E5DB A6 F5 iE5DB LDX xF5
E5DD BD 29 02 LDA x0229,X
E5E0 09 80 ORA #$80
E5E2 85 E1 STA xE1
E5E4 BD BC E7 LDA xE7BC,X
E5E7 85 E0 STA xE0
E5E9 A9 27 LDA #$27
E5EB 85 F2 STA xF2
E5ED E0 18 CPX #$18
E5EF F0 09 BEQ iE5FA
E5F1 BD 2A 02 LDA x022A,X
E5F4 30 04 BMI iE5FA
E5F6 A9 4F LDA #$4F
E5F8 85 F2 STA xF2
E5FA A5 E2 iE5FA LDA xE2
E5FC C9 28 CMP #$28
E5FE 90 04 BCC iE604
E600 E9 28 SBC #$28
E602 85 E2 STA xE2
E604 60 iE604 RTS
E605 A6 F5 iE605 LDX xF5
E607 E8 INX
E608 78 SEI
E609 A9 34 LDA #$34
E60B 8D 11 E8 STA PIA1_CRA
E60E E0 17 CPX #$17
E610 F0 36 BEQ iE648
E612 90 03 BCC iE617
E614 4C AA E3 JMP iE3AA
E617 A2 17 iE617 LDX #$17
E619 BD 2A 02 iE619 LDA x022A,X
E61C 09 80 ORA #$80
E61E 85 E4 STA SADDR+1
E620 BC 29 02 LDY x0229,X
E623 30 02 BMI iE627
E625 29 7F AND #$7F
E627 9D 2A 02 iE627 STA x022A,X
E62A 98 TYA
E62B 09 80 ORA #$80
E62D 85 E1 STA xE1
E62F A0 27 LDY #$27
E631 BD BD E7 LDA xE7BD,X
E634 85 E3 STA SADDR
E636 BD BC E7 LDA xE7BC,X
E639 85 E0 STA xE0
E63B B1 E0 iE63B LDA (xE0),Y
E63D 91 E3 STA (SADDR),Y
E63F 88 DEY
E640 10 F9 BPL iE63B
E642 CA DEX
E643 E4 F5 CPX xF5
E645 D0 D2 BNE iE619
E647 E8 INX
E648 BD 29 02 iE648 LDA x0229,X
E64B 09 80 ORA #$80
E64D 85 E1 STA xE1
E64F 29 7F AND #$7F
E651 9D 29 02 STA x0229,X
E654 BD BC E7 LDA xE7BC,X
E657 85 E0 STA xE0
E659 A0 27 LDY #$27
E65B A9 20 LDA #$20
E65D 91 E0 iE65D STA (xE0),Y
E65F 88 DEY
E660 10 FB BPL iE65D
E662 A9 3C LDA #$3C
E664 8D 11 E8 STA PIA1_CRA
E667 58 CLI
E668 4C DB E5 JMP iE5DB
E66B 48 IRQ PHA
E66C 8A TXA
E66D 48 PHA
E66E 98 TYA
E66F 48 PHA
E670 BA TSX
E671 BD 04 01 LDA STACK+4,X
E674 29 10 AND #$10
E676 F0 03 BEQ iE67B
E678 6C 1B 02 JMP (BRKV)
E67B 6C 19 02 iE67B JMP (IRQV)
E67E 68 iE67E PLA
E67F A8 TAY
E680 68 PLA
E681 AA TAX
E682 68 PLA
E683 40 RTI
E684 60 RTS
E685 20 EA FF JSR INCTIME
E688 AD 24 02 LDA x0224
E68B D0 23 BNE iE6B0
E68D CE 25 02 DEC x0225
E690 D0 1E BNE iE6B0
E692 A9 14 LDA #$14
E694 8D 25 02 STA x0225
E697 A4 E2 LDY xE2
E699 4E 27 02 LSR x0227
E69C B1 E0 LDA (xE0),Y
E69E B0 06 BCS iE6A6
E6A0 EE 27 02 INC x0227
E6A3 8D 26 02 STA x0226
E6A6 0A iE6A6 ASL
E6A7 B0 03 BCS iE6AC
E6A9 38 SEC
E6AA B0 01 BCS iE6AD
E6AC 18 iE6AC CLC
E6AD 6A iE6AD ROR
E6AE 91 E0 STA (xE0),Y
E6B0 A2 FF iE6B0 LDX #$FF
E6B2 8E 23 02 STX x0223
E6B5 E8 INX
E6B6 8E 04 02 STX x0204
E6B9 A2 50 LDX #$50
E6BB AD 10 E8 LDA PIA1_PA
E6BE 29 F0 AND #$F0
E6C0 8D 10 E8 STA PIA1_PA
E6C3 A0 00 LDY #$00
E6C5 AD 10 E8 LDA PIA1_PA
E6C8 0A ASL
E6C9 0A ASL
E6CA 0A ASL
E6CB 10 07 BPL iE6D4
E6CD 8C 07 02 STY x0207
E6D0 A9 3D LDA #$3D
E6D2 D0 07 BNE iE6DB
E6D4 AD 07 02 iE6D4 LDA x0207
E6D7 D0 05 BNE iE6DE
E6D9 A9 35 LDA #$35
E6DB 8D 13 E8 iE6DB STA PIA1_CRB
E6DE 90 0A iE6DE BCC iE6EA
E6E0 8C 08 02 STY x0208
E6E3 AD 40 E8 LDA VIA_DRB
E6E6 09 10 ORA #$10
E6E8 D0 0A BNE iE6F4
E6EA AD 08 02 iE6EA LDA x0208
E6ED D0 08 BNE iE6F7
E6EF AD 40 E8 LDA VIA_DRB
E6F2 29 EF AND #$EF
E6F4 8D 40 E8 iE6F4 STA VIA_DRB
E6F7 A0 08 iE6F7 LDY #$08
E6F9 AD 12 E8 LDA PIA1_PB
E6FC CD 12 E8 CMP PIA1_PB
E6FF D0 F6 BNE iE6F7
E701 4A iE701 LSR
E702 B0 05 BCS iE709
E704 48 PHA
E705 20 3F E7 JSR iE73F
E708 68 PLA
E709 CA iE709 DEX
E70A F0 08 BEQ iE714
E70C 88 DEY
E70D D0 F2 BNE iE701
E70F EE 10 E8 INC PIA1_PA
E712 D0 E3 BNE iE6F7
E714 AD 23 02 iE714 LDA x0223
E717 CD 03 02 CMP x0203
E71A F0 20 BEQ iE73C
E71C 8D 03 02 STA x0203
E71F AA TAX
E720 30 1A BMI iE73C
E722 BD 5B E7 LDA iE75B,X
E725 4E 04 02 LSR x0204
E728 90 02 BCC iE72C
E72A 09 80 ORA #$80
E72C AE 0D 02 iE72C LDX NKEYS
E72F 9D 0F 02 STA x020F,X
E732 E8 INX
E733 E0 0A CPX #$0A
E735 D0 02 BNE iE739
E737 A2 00 LDX #$00
E739 8E 0D 02 iE739 STX NKEYS
E73C 4C 7E E6 iE73C JMP iE67E
E73F BD 5B E7 iE73F LDA iE75B,X
E742 D0 07 BNE iE74B
E744 A9 01 LDA #$01
E746 8D 04 02 STA x0204
E749 D0 10 BNE iE75B
E74B C9 FF iE74B CMP #$FF
E74D F0 0C BEQ iE75B
E74F C9 3C CMP #$3C
E751 D0 05 BNE iE758
E753 2C 11 E8 BIT PIA1_CRA
E756 30 03 BMI iE75B
E758 8E 23 02 iE758 STX x0223
E75B 60 iE75B
E75B 60 xE75B RTS
E75C .byte $3D, $2E, $FF, $03, $3C, $20, $5B, $12 ;=..c< [r
E764 .byte $2D, $30, $00, $3E, $FF, $5D, $40, $00 ;-0.>.]@.
E76C .byte $2B, $32, $FF, $3F, $2C, $4E, $56, $58 ;+2.?,nvx
E774 .byte $33, $31, $0D, $3B, $4D, $42, $43, $5A ;31m;mbcz
E77C .byte $2A, $35, $FF, $3A, $4B, $48, $46, $53 ;*5.:khfs
E784 .byte $36, $34, $FF, $4C, $4A, $47, $44, $41 ;64.ljgda
E78C .byte $2F, $38, $FF, $50, $49, $59, $52, $57 ;/8.piyrw
E794 .byte $39, $37, $5E, $4F, $55, $54, $45, $51 ;97^outeq
E79C .byte $14, $11, $FF, $29, $5C, $27, $24, $22 ;tq.)\'$"
E7A4 .byte $1D, $13, $5F, $28, $26, $25, $23, $21 ;]s_(&%#!
E7AC A8 iE7AC TAY
E7AD AD 40 E8 iE7AD LDA VIA_DRB
E7B0 29 20 AND #$20
E7B2 D0 F9 BNE iE7AD
E7B4 98 TYA
E7B5 A4 E2 LDY xE2
E7B7 91 E0 STA (xE0),Y
E7B9 60 RTS
E7BA 68 PLA
E7BB 60 RTS
E7BC xE7BC .byte $00 ;.
E7BD xE7BD .byte $28, $50, $78, $A0, $C8, $F0, $18, $40 ;(pX H.x@
E7C5 .byte $68, $90, $B8, $E0, $08, $30, $58, $80 ;H.8.h0x.
E7CD .byte $A8, $D0, $F8, $20, $48, $70, $98 ;(P. hP.
E7D4 xE7D4 .byte $C0, $4C, $4F, $41, $44, $0D, $52, $55 ;.loadmru
E7DC .byte $4E, $0D ;nm
; print kernal messages
E7DE B9 00 F0 KPRYMSG LDA KERNAL,Y ; print kernal messages
E7E1 08 PHP
E7E2 29 7F AND #$7F
E7E4 20 EA E3 JSR KPRCHAR
E7E7 C8 INY
E7E8 28 PLP
E7E9 10 F3 BPL KPRYMSG
E7EB 60 RTS
E7EC .byte $00, $00, $00, $00, $00, $00, $00 ;.......
E7F3 0A iE7F3 ASL
E7F4 69 05 ADC #$05
E7F6 A0 00 LDY #$00
E7F8 60 RTS
E7F9 .byte $00, $00, $00, $00, $00, $00, $00 ;.......
E800 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
E808 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
E810 PIA1_PA .byte $00 ;.
E811 PIA1_CRA .byte $00 ;.
E812 PIA1_PB .byte $00 ;.
E813 PIA1_CRB .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
E81B .byte $00, $00, $00, $00, $00 ;.....
E820 PIA2_PA .byte $00 ;.
E821 PIA2_CRA .byte $00 ;.
E822 PIA2_PB .byte $00 ;.
E823 PIA2_CRB .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
E82B .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
E833 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
E83B .byte $00, $00, $00, $00, $00 ;.....
E840 VIA_DRB .byte $00 ;.
E841 VIA_DRA .byte $00 ;.
E842 VIA_DDRB .byte $00 ;.
E843 VIA_DDRA .byte $00 ;.
E844 VIA_T1CL .byte $00 ;.
E845 VIA_T1CH .byte $00 ;.
E846 VIA_T1LL .byte $00 ;.
E847 VIA_T1LH .byte $00 ;.
E848 VIA_T2CL .byte $00 ;.
E849 VIA_T2CH .byte $00 ;.
E84A VIA_SR .byte $00 ;.
E84B VIA_ACR .byte $00 ;.
E84C VIA_PCR .byte $00 ;.
E84D VIA_IFR .byte $00 ;.
E84E VIA_IER .byte $00 ;.
E84F VIA_ANH .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
E857 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
E85F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
E867 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
E86F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
E877 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
E87F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
E887 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
E88F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
E897 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
E89F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
E8A7 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
E8AF .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
E8B7 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
E8BF .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
E8C7 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
E8CF .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
E8D7 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
E8DF .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
E8E7 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
E8EF .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
E8F7 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
E8FF .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
E907 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
E90F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
E917 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
E91F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
E927 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
E92F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
E937 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
E93F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
E947 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
E94F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
E957 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
E95F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
E967 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
E96F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
E977 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
E97F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
E987 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
E98F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
E997 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
E99F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
E9A7 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
E9AF .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
E9B7 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
E9BF .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
E9C7 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
E9CF .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
E9D7 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
E9DF .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
E9E7 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
E9EF .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
E9F7 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
E9FF .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EA07 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EA0F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EA17 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EA1F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EA27 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EA2F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EA37 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EA3F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EA47 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EA4F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EA57 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EA5F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EA67 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EA6F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EA77 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EA7F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EA87 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EA8F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EA97 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EA9F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EAA7 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EAAF .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EAB7 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EABF .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EAC7 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EACF .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EAD7 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EADF .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EAE7 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EAEF .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EAF7 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EAFF .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EB07 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EB0F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EB17 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EB1F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EB27 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EB2F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EB37 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EB3F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EB47 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EB4F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EB57 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EB5F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EB67 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EB6F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EB77 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EB7F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EB87 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EB8F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EB97 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EB9F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EBA7 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EBAF .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EBB7 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EBBF .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EBC7 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EBCF .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EBD7 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EBDF .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EBE7 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EBEF .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EBF7 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EBFF .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EC07 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EC0F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EC17 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EC1F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EC27 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EC2F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EC37 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EC3F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EC47 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EC4F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EC57 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EC5F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EC67 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EC6F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EC77 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EC7F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EC87 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EC8F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EC97 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EC9F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
ECA7 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
ECAF .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
ECB7 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
ECBF .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
ECC7 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
ECCF .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
ECD7 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
ECDF .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
ECE7 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
ECEF .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
ECF7 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
ECFF .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
ED07 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
ED0F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
ED17 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
ED1F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
ED27 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
ED2F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
ED37 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
ED3F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
ED47 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
ED4F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
ED57 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
ED5F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
ED67 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
ED6F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
ED77 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
ED7F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
ED87 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
ED8F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
ED97 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
ED9F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EDA7 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EDAF .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EDB7 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EDBF .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EDC7 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EDCF .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EDD7 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EDDF .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EDE7 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EDEF .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EDF7 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EDFF .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EE07 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EE0F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EE17 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EE1F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EE27 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EE2F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EE37 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EE3F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EE47 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EE4F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EE57 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EE5F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EE67 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EE6F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EE77 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EE7F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EE87 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EE8F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EE97 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EE9F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EEA7 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EEAF .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EEB7 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EEBF .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EEC7 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EECF .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EED7 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EEDF .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EEE7 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EEEF .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EEF7 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EEFF .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EF07 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EF0F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EF17 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EF1F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EF27 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EF2F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EF37 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EF3F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EF47 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EF4F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EF57 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EF5F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EF67 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EF6F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EF77 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EF7F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EF87 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EF8F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EF97 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EF9F .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EFA7 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EFAF .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EFB7 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EFBF .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EFC7 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EFCF .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EFD7 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EFDF .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EFE7 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EFEF .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EFF7 .byte $00, $00, $00, $00, $00, $00, $00, $00 ;........
EFFF .byte $0A ;j
F000 KERNAL .byte $54, $4F, $4F, $20, $4D, $41, $4E, $59 ;too many
F008 .byte $20, $46, $49, $4C, $45, $D3, $46, $49 ; fileSfi
F010 .byte $4C, $45, $20, $4F, $50, $45, $CE, $46 ;le opeNf
F018 .byte $49, $4C, $45, $20, $4E, $4F, $54, $20 ;ile not
F020 .byte $4F, $50, $45, $CE, $46, $49, $4C, $45 ;opeNfile
F028 .byte $20, $4E, $4F, $54, $20, $46, $4F, $55 ; not fou
F030 .byte $4E, $C4, $0D, $53, $45, $41, $52, $43 ;nDmsearc
F038 .byte $48, $49, $4E, $47, $A0, $46, $4F, $52 ;hing for
F040 .byte $A0, $0D, $50, $52, $45, $53, $53, $20 ; mpress
F048 .byte $50, $4C, $41, $59, $A0, $26, $20, $52 ;play & r
F050 .byte $45, $43, $4F, $52, $44, $A0, $4F, $4E ;ecord on
F058 .byte $20, $54, $41, $50, $45, $20, $A3, $0D ; tape #m
F060 .byte $4C, $4F, $41, $C4, $0D, $57, $52, $49 ;loaDmwri
F068 .byte $54, $49, $4E, $47, $A0, $0D, $56, $45 ;ting mve
F070 .byte $52, $49, $46, $D9, $44, $45, $56, $49 ;rifYdevi
F078 .byte $43, $45, $20, $4E, $4F, $54, $20, $50 ;ce not p
F080 .byte $52, $45, $53, $45, $4E, $D4, $4E, $4F ;resenTno
F088 .byte $54, $20, $49, $4E, $50, $55, $54, $20 ;t input
F090 .byte $46, $49, $4C, $C5, $4E, $4F, $54, $20 ;filEnot
F098 .byte $4F, $55, $54, $50, $55, $54, $20, $46 ;output f
F0A0 .byte $49, $4C, $C5, $0D, $46, $4F, $55, $4E ;ilEmfoun
F0A8 .byte $44, $A0, $0D, $4F, $4B, $8D, $0D, $52 ;d mok.mr
F0B0 .byte $45, $41, $44, $59, $2E, $8D ;eady..
F0B6 A9 40 TALK LDA #$40
F0B8 D0 02 BNE ATNOUT
F0BA A9 20 LISTEN LDA #$20
F0BC 48 ATNOUT PHA
F0BD AD 40 E8 LDA VIA_DRB ; NRFD hi
F0C0 09 02 ORA #$02
F0C2 8D 40 E8 STA VIA_DRB ; store
F0C5 A9 3C LDA #$3C
F0C7 8D 21 E8 STA PIA2_CRA ; NDAC hi
F0CA 2C 1D 02 BIT OUTFL
F0CD F0 12 BEQ iF0E1 ; if byte not saved, skip
F0CF A9 34 LDA #$34
F0D1 8D 11 E8 STA PIA1_CRA ; set EOI
F0D4 20 F1 F0 JSR RIECOUT ; send last byte with EOI
F0D7 A9 00 LDA #$00
F0D9 8D 1D 02 STA OUTFL ; clear buffer flag
F0DC A9 3C LDA #$3C
F0DE 8D 11 E8 STA PIA1_CRA ; clear EOI
F0E1 68 iF0E1 PLA
F0E2 05 F1 ORA FA
F0E4 8D 22 02 STA OUTBUF
F0E7 AD 40 E8 iF0E7 LDA VIA_DRB ; wait DAV hi
F0EA 10 FB BPL iF0E7
F0EC 29 FB AND #$FB
F0EE 8D 40 E8 STA VIA_DRB ; ATN lo
F0F1 A9 3C RIECOUT LDA #$3C
F0F3 8D 23 E8 STA PIA2_CRB ; DAV hi
F0F6 AD 40 E8 LDA VIA_DRB
F0F9 29 41 AND #$41 ; NRFD and NDAC
F0FB C9 41 CMP #$41
F0FD F0 43 BEQ iF142 ; device not present
F0FF AD 22 02 LDA OUTBUF
F102 49 FF EOR #$FF
F104 8D 22 E8 STA PIA2_PB ; send data to bus
F107 2C 40 E8 iF107 BIT VIA_DRB
F10A 50 FB BVC iF107 ; wait NRFD hi
F10C A9 34 LDA #$34
F10E 8D 23 E8 STA PIA2_CRB ; DAV lo
F111 A9 FF LDA #$FF
F113 8D 45 E8 STA VIA_T1CH ; set timer for 65ms
F116 AD 40 E8 iF116 LDA VIA_DRB
F119 2C 4D E8 BIT VIA_IFR
F11C 70 1D BVS iF13B ; timer end -> error
F11E 4A LSR
F11F 90 F5 BCC iF116 ; wait NDAC hi
F121 A9 3C iF121 LDA #$3C
F123 8D 23 E8 STA PIA2_CRB ; DAV hi
F126 A9 FF LDA #$FF
F128 8D 22 E8 STA PIA2_PB ; clear bus data lines
F12B 60 RTS
F12C 8D 22 02 SECOUT STA OUTBUF ; send secondary address
F12F 20 F1 F0 JSR RIECOUT
F132 AD 40 E8 iF132 LDA VIA_DRB
F135 09 04 ORA #$04
F137 8D 40 E8 STA VIA_DRB ; ATN hi
F13A 60 RTS
F13B A9 01 iF13B LDA #$01 ; time-out error (out)
F13D 20 E5 FB iF13D JSR SETST
F140 D0 DF BNE iF121 ; always
F142 A9 80 iF142 LDA #$80 ; device not present error
F144 30 F7 BMI iF13D ; always
F146 A9 02 iF146 LDA #$02 ; time-out error (in)
F148 20 E5 FB JSR SETST ; set status
F14B AD 40 E8 iF14B LDA VIA_DRB
F14E 29 FD AND #$FD
F150 8D 40 E8 STA VIA_DRB ; NRFD lo
F153 A9 34 LDA #$34
F155 8D 21 E8 STA PIA2_CRA ; NDAC lo
F158 A9 0D LDA #$0D
F15A 60 RTS
F15B 8D 22 02 SECTALK STA OUTBUF ; send secondary talk
F15E 20 F1 F0 JSR RIECOUT
F161 20 4B F1 iF161 JSR iF14B ; NRFD, NDAC lo
F164 4C 32 F1 JMP iF132 ; ATN hi
F167 2C 1D 02 IECOUT BIT OUTFL
F16A 30 05 BMI iF171 ; no byte buffered -> skip
F16C CE 1D 02 DEC OUTFL ; set buffer flag
F16F D0 05 BNE iF176
F171 48 iF171 PHA
F172 20 F1 F0 JSR RIECOUT
F175 68 PLA
F176 8D 22 02 iF176 STA OUTBUF ; save byte in buffer
F179 60 RTS
F17A A9 5F UNTALK LDA #$5F
F17C D0 02 BNE iF180
F17E A9 3F UNLISTEN LDA #$3F
F180 85 F1 iF180 STA FA
F182 20 BC F0 JSR ATNOUT
F185 D0 AB BNE iF132 ; always (?) -> ATN hi
F187 A9 34 IECIN LDA #$34
F189 8D 21 E8 STA PIA2_CRA ; NDAC lo
F18C AD 40 E8 LDA VIA_DRB
F18F 09 02 ORA #$02
F191 8D 40 E8 STA VIA_DRB ; NRFD hi
F194 A9 FF LDA #$FF
F196 8D 45 E8 STA VIA_T1CH ; timer for 65ms
F199 2C 4D E8 iF199 BIT VIA_IFR
F19C 70 A8 BVS iF146 ; timer end -> error
F19E 2C 40 E8 BIT VIA_DRB
F1A1 30 F6 BMI iF199 ; wait DAV lo
F1A3 AD 40 E8 LDA VIA_DRB
F1A6 29 FD AND #$FD
F1A8 8D 40 E8 STA VIA_DRB ; NRFD lo
F1AB 2C 10 E8 BIT PIA1_PA
F1AE 70 05 BVS iF1B5 ; EOI set?
F1B0 A9 40 LDA #$40 ; yes
F1B2 20 E5 FB JSR SETST ; set status
F1B5 AD 20 E8 iF1B5 LDA PIA2_PA ; load bus data
F1B8 49 FF EOR #$FF
F1BA 48 PHA
F1BB A9 3C LDA #$3C
F1BD 8D 21 E8 STA PIA2_CRA ; NDAC hi
F1C0 2C 40 E8 iF1C0 BIT VIA_DRB
F1C3 10 FB BPL iF1C0 ; wait DAV hi
F1C5 A9 34 LDA #$34
F1C7 8D 21 E8 STA PIA2_CRA ; NDAC lo
F1CA 68 PLA
F1CB 60 RTS
F1CC A9 00 KGET LDA #$00 ; GET call
F1CE 8D 0C 02 STA STATUS ; clear status
F1D1 AD 63 02 LDA CURIDEV
F1D4 D0 1B BNE iF1F1
F1D6 AD 0D 02 LDA NKEYS ; get from keyboard
F1D9 F0 51 BEQ iF22C ; number of keys in buffer zero ->RTS
F1DB 78 SEI
F1DC 4C 7D E2 JMP iE27D
F1DF AD 63 02 KBASIN LDA CURIDEV ; BASIN call
F1E2 D0 0D BNE iF1F1 ; not keyboard then as GET
F1E4 A5 E2 LDA xE2
F1E6 8D 21 02 STA x0221
F1E9 A5 F5 LDA xF5
F1EB 8D 20 02 STA x0220
F1EE 4C FA E2 JMP iE2FA
F1F1 C9 03 iF1F1 CMP #$03 ; get from screen?
F1F3 D0 0B BNE iF200
F1F5 8D 60 02 STA x0260
F1F8 A5 F2 LDA xF2
F1FA 8D 1E 02 STA x021E
F1FD 4C FA E2 JMP iE2FA
F200 B0 25 iF200 BCS iF227 ; dev > 3 (IEEE) -> f227
F202 8E 61 02 STX x0261 ; get from tape
F205 20 2D F8 iF205 JSR iF82D
F208 D0 0E BNE iF218
F20A 20 7F F8 JSR iF87F
F20D A0 00 LDY #$00
F20F 98 TYA
F210 A6 F1 LDX FA
F212 9D 70 02 STA x0270,X
F215 4C 05 F2 JMP iF205
F218 B1 F3 iF218 LDA (xF3),Y
F21A D0 07 BNE iF223
F21C A9 40 LDA #$40
F21E 20 E5 FB JSR SETST
F221 D0 E2 BNE iF205
F223 AE 61 02 iF223 LDX x0261
F226 60 RTS
F227 AD 0C 02 iF227 LDA STATUS ; get from IEEE488
F22A F0 01 BEQ iF22D
F22C 60 iF22C RTS
F22D 4C 87 F1 iF22D JMP IECIN
F230 48 KBSOUT PHA
F231 AD 64 02 LDA CURODEV
F234 D0 03 BNE iF239
F236 4C 79 C3 JMP iC379 ; keyboard -> error
F239 C9 03 iF239 CMP #$03
F23B D0 04 BNE iF241 ; not screen ->
F23D 68 PLA
F23E 4C EA E3 JMP KPRCHAR
F241 30 04 iF241 BMI iF247 ; tape ->
F243 68 PLA
F244 4C 67 F1 JMP IECOUT ; send to IEEE488
F247 68 iF247 PLA
F248 85 E9 iF248 STA xE9
F24A C9 1D CMP #$1D
F24C D0 05 BNE iF253
F24E EE 6A 02 INC x026A
F251 F0 D9 BEQ iF22C
F253 C9 0A iF253 CMP #$0A
F255 F0 D5 BEQ iF22C
F257 48 PHA
F258 8A TXA
F259 48 PHA
F25A 98 TYA
F25B 48 PHA
F25C 20 2D F8 JSR iF82D
F25F D0 12 BNE iF273
F261 20 B9 F8 JSR iF8B9
F264 A6 F1 LDX FA
F266 A9 01 LDA #$01
F268 9D 70 02 STA x0270,X
F26B 20 E3 F5 JSR iF5E3
F26E A9 02 LDA #$02
F270 91 F3 STA (xF3),Y
F272 C8 INY
F273 A5 E9 iF273 LDA xE9
F275 91 F3 STA (xF3),Y
F277 68 iF277 PLA
F278 A8 TAY
F279 68 PLA
F27A AA TAX
F27B 68 PLA
F27C 60 RTS
F27D AD 64 02 KCLRCH LDA CURODEV ; CLRCH, clear I/O
F280 F0 09 BEQ iF28B
F282 C9 03 CMP #$03
F284 F0 05 BEQ iF28B
F286 30 03 BMI iF28B
F288 20 7E F1 JSR UNLISTEN
F28B AD 63 02 iF28B LDA CURIDEV
F28E F0 09 BEQ iF299
F290 C9 03 CMP #$03
F292 F0 05 BEQ iF299
F294 30 03 BMI iF299
F296 20 7A F1 JSR UNTALK
F299 A9 00 iF299 LDA #$00
F29B 8D 63 02 STA CURIDEV
F29E A9 03 LDA #$03
F2A0 8D 64 02 STA CURODEV
F2A3 60 RTS
F2A4 A9 00 KCLALL LDA #$00
F2A6 8D 62 02 STA NFILES
F2A9 F0 D2 BEQ KCLRCH
F2AB AE 62 02 SLOGFN LDX NFILES ; set file parameter of log. fn in AC
F2AE CA iF2AE DEX
F2AF 30 16 BMI iF2C7
F2B1 DD 42 02 CMP LFTAB,X
F2B4 F0 11 BEQ iF2C7
F2B6 D0 F6 BNE iF2AE
F2B8 BD 42 02 SETFPAR LDA LFTAB,X
F2BB 85 EF STA LFN
F2BD BD 4C 02 LDA FATAB,X
F2C0 85 F1 STA FA
F2C2 BD 56 02 LDA SATAB,X
F2C5 85 F0 STA SA
F2C7 60 iF2C7 RTS
F2C8 20 D4 F4 KCLOSE JSR OPENPAR ; Close
F2CB A5 EF LDA LFN
F2CD 20 AB F2 JSR SLOGFN
F2D0 D0 57 BNE iF329
F2D2 20 B8 F2 JSR SETFPAR
F2D5 8A TXA
F2D6 48 PHA
F2D7 A5 F1 LDA FA ; device number
F2D9 F0 2F BEQ iF30A ; keyboard ->
F2DB C9 03 CMP #$03
F2DD F0 2B BEQ iF30A ; screen ->
F2DF B0 26 BCS iF307 ; IEEE488 ->
F2E1 A5 F0 LDA SA ; Tape
F2E3 F0 25 BEQ iF30A
F2E5 20 67 F6 JSR iF667
F2E8 A2 02 LDX #$02
F2EA BD 04 F3 iF2EA LDA xF304,X
F2ED 20 48 F2 JSR iF248
F2F0 CA DEX
F2F1 10 F7 BPL iF2EA
F2F3 20 B9 F8 JSR iF8B9
F2F6 A5 F0 LDA SA
F2F8 C9 02 CMP #$02
F2FA D0 0E BNE iF30A
F2FC A9 05 LDA #$05
F2FE 20 ED F5 JSR iF5ED
F301 4C 0A F3 JMP iF30A
F304 xF304 .byte $0D, $31, $00 ;m1.
; close IEEE488
F307 20 E6 F6 iF307 JSR CLSIEC ; close IEEE488
F30A 68 iF30A PLA
F30B AA TAX
F30C CE 62 02 DEC NFILES
F30F EC 62 02 CPX NFILES
F312 F0 15 BEQ iF329
F314 AC 62 02 LDY NFILES
F317 B9 42 02 LDA LFTAB,Y
F31A 9D 42 02 STA LFTAB,X
F31D B9 4C 02 LDA FATAB,Y
F320 9D 4C 02 STA FATAB,X
F323 B9 56 02 LDA SATAB,Y
F326 9D 56 02 STA SATAB,X
F329 60 iF329 RTS
F32A AD 09 02 CHKSTP LDA KEYMSK
F32D C9 EF CMP #$EF
F32F D0 07 BNE iF338
F331 08 PHP
F332 A9 00 LDA #$00
F334 8D 0D 02 STA NKEYS
F337 28 PLP
F338 60 iF338 RTS
F339 20 2A F3 IECABORT JSR CHKSTP
F33C 4C 1C C7 JMP TSTSTOP
F33F A5 CA KPRDMODE LDA xCA ; print kmsg in direct mode only
F341 D0 F5 BNE iF338
F343 4C DE E7 JMP KPRYMSG
F346 A9 00 KLOAD LDA #$00
F348 8D 0B 02 STA VERFL
F34B 20 33 F4 IECLOAD JSR GETFPAR
F34E A9 FF LDA #$FF ; wait till no key pressed
F350 CD 09 02 iF350 CMP KEYMSK
F353 D0 FB BNE iF350
F355 CD 09 02 CMP KEYMSK
F358 D0 F6 BNE iF350
F35A A9 04 LDA #$04 ; default load address to $0400
F35C 85 F8 STA LADDR+1
F35E A9 00 LDA #$00
F360 85 F7 STA LADDR
F362 A5 F1 LDA FA ; check device address
F364 D0 03 BNE iF369
F366 4C 1C CE iF366 JMP iCE1C ; Syntax error (keyboard, dev. 0)
F369 C9 03 iF369 CMP #$03
F36B F0 F9 BEQ iF366 ; Syntax error (screen, dev. 3)
F36D 90 36 BCC iF3A5 ; load from tape (device 1,2)
F36F 20 1C F7 JSR iF71C ; look for unused sec. address
F372 20 FF F3 JSR PRSRCH ; print "searching for ..."
F375 20 62 F4 JSR IECOPEN
F378 20 B6 F0 JSR TALK
F37B 20 22 F4 JSR iF422 ; print "loading/verifying"
F37E 20 39 F3 iF37E JSR IECABORT ; check stop key
F381 20 87 F1 JSR IECIN
F384 AE 0C 02 LDX STATUS
F387 30 43 BMI LDEND ; status EOI then end
F389 AC 0B 02 LDY VERFL
F38C F0 0C BEQ iF39A
F38E 88 DEY
F38F D1 F7 CMP (LADDR),Y ; compare when verifying
F391 F0 09 BEQ iF39C
F393 A2 02 LDX #$02
F395 8E 0C 02 STX STATUS
F398 D0 02 BNE iF39C
F39A 91 F7 iF39A STA (LADDR),Y ; store when loading
F39C E6 F7 iF39C INC LADDR
F39E D0 DE BNE iF37E
F3A0 E6 F8 INC LADDR+1
F3A2 4C 7E F3 JMP iF37E
F3A5 20 67 F6 iF3A5 JSR iF667 ; load from tape
F3A8 20 3B F8 JSR iF83B
F3AB 20 FF F3 JSR PRSRCH
F3AE A5 EE iF3AE LDA FNLEN
F3B0 F0 08 BEQ iF3BA
F3B2 20 95 F4 JSR iF495
F3B5 D0 08 BNE iF3BF
F3B7 4C 79 F5 iF3B7 JMP iF579
F3BA 20 AE F5 iF3BA JSR iF5AE
F3BD F0 F8 BEQ iF3B7
F3BF E0 01 iF3BF CPX #$01
F3C1 D0 EB BNE iF3AE
F3C3 20 4D F6 JSR iF64D
F3C6 20 22 F4 JSR iF422
F3C9 20 8A F8 JSR iF88A
F3CC AD 0B 02 LDEND LDA VERFL
F3CF D0 50 BNE iF421 ; verify -> rts
F3D1 20 13 F9 JSR iF913 ; check break status
F3D4 AD 0C 02 LDA STATUS
F3D7 29 10 AND #$10
F3D9 F0 0A BEQ iF3E5 ; ok ->
F3DB A0 00 LDY #$00
F3DD 8C 0D 02 STY NKEYS
F3E0 A0 60 LDY #$60 ; "Load error"
F3E2 4C 7B F5 JMP YERROUT
F3E5 A0 AE iF3E5 LDY #$AE ; print "READY."
F3E7 20 3F F3 JSR KPRDMODE
F3EA A5 CA LDA xCA
F3EC D0 0B BNE iF3F9
F3EE A5 E6 LDA EADDR+1
F3F0 85 7D STA x7D
F3F2 A5 E5 LDA EADDR
F3F4 85 7C STA x7C
F3F6 4C 30 C4 JMP iC430
F3F9 20 9A C5 iF3F9 JSR iC59A ; (c9) = (7a)-1
F3FC 4C 81 C5 JMP iC581 ; clear stack, restore BASIC, return
F3FF A5 CA PRSRCH LDA xCA ; print "searching for ..."
F401 D0 1E BNE iF421 ; test direct mode?
F403 A0 32 LDY #$32
F405 20 DE E7 JSR KPRYMSG ; print "searching"
F408 A5 EE LDA FNLEN
F40A F0 15 BEQ iF421 ; filename length 0 ->RTS
F40C A0 3D LDY #$3D
F40E 20 DE E7 JSR KPRYMSG ; print "for"
F411 A4 EE iF411 LDY FNLEN ; print filename
F413 F0 0C BEQ iF421
F415 A0 00 LDY #$00
F417 B1 F9 iF417 LDA (xF9),Y
F419 20 EA E3 JSR KPRCHAR
F41C C8 INY
F41D C4 EE CPY FNLEN
F41F D0 F6 BNE iF417
F421 60 iF421 RTS
F422 A0 5F iF422 LDY #$5F ; print loading/verifying
F424 AD 0B 02 LDA VERFL
F427 F0 02 BEQ iF42B
F429 A0 6D LDY #$6D
F42B 20 3F F3 iF42B JSR KPRDMODE
F42E A0 39 LDY #$39
F430 4C 3F F3 JMP KPRDMODE
F433 A2 00 GETFPAR LDX #$00 ; Get LOAD parameter
F435 8E 0C 02 STX STATUS
F438 86 E5 STX EADDR
F43A 86 EE STX FNLEN
F43C 86 F0 STX SA
F43E E8 INX
F43F 86 F1 STX FA ; default to tape (FA=1)
F441 A9 04 LDA #$04
F443 86 E6 STX EADDR+1
F445 20 15 F5 JSR ENDCMD
F448 20 04 F5 JSR iF504 ; get filename
F44B 20 15 F5 JSR ENDCMD
F44E 20 5C F4 JSR CHKCOMMA
F451 86 F1 STX FA
F453 20 15 F5 JSR ENDCMD
F456 20 5C F4 JSR CHKCOMMA
F459 86 F0 STX SA ; secondary address
F45B 60 iF45B RTS
F45C 20 1D F5 CHKCOMMA JSR iF51D
F45F 4C 76 D6 JMP iD676
F462 A5 F0 IECOPEN LDA SA ; open IEC file
F464 30 F5 BMI iF45B
F466 A4 EE LDY FNLEN
F468 F0 F1 BEQ iF45B
F46A 20 BA F0 JSR LISTEN
F46D A5 F0 LDA SA
F46F 09 40 ORA #$40
F471 85 F0 STA SA
F473 09 F0 ORA #$F0
F475 20 2C F1 JSR SECOUT
F478 AD 0C 02 LDA STATUS
F47B 10 05 BPL iF482
F47D A0 74 iF47D LDY #$74 ; device not present error
F47F 4C 7B F5 JMP YERROUT
F482 A5 EE iF482 LDA FNLEN
F484 F0 0C BEQ iF492
F486 A0 00 LDY #$00
F488 B1 F9 iF488 LDA (xF9),Y
F48A 20 67 F1 JSR IECOUT
F48D C8 INY
F48E C4 EE CPY FNLEN
F490 D0 F6 BNE iF488
F492 4C 7E F1 iF492 JMP UNLISTEN
F495 20 AE F5 iF495 JSR iF5AE ; Tape stuff
F498 F0 20 BEQ iF4BA
F49A A0 05 LDY #$05
F49C 8C 68 02 STY x0268
F49F A0 00 LDY #$00
F4A1 84 E9 STY xE9
F4A3 C4 EE iF4A3 CPY FNLEN
F4A5 F0 12 BEQ iF4B9
F4A7 B1 F9 LDA (xF9),Y
F4A9 AC 68 02 LDY x0268
F4AC D1 F3 CMP (xF3),Y
F4AE D0 E5 BNE iF495
F4B0 E6 E9 INC xE9
F4B2 EE 68 02 INC x0268
F4B5 A4 E9 LDY xE9
F4B7 D0 EA BNE iF4A3
F4B9 98 iF4B9 TYA
F4BA 60 iF4BA RTS
F4BB A9 01 KVERIFY LDA #$01
F4BD 8D 0B 02 STA VERFL
F4C0 20 4B F3 JSR IECLOAD
F4C3 AD 0C 02 LDA STATUS
F4C6 29 10 AND #$10
F4C8 F0 05 BEQ iF4CF
F4CA A0 6E LDY #$6E
F4CC 4C 7B F5 JMP YERROUT
F4CF A0 AA iF4CF LDY #$AA
F4D1 4C DE E7 JMP KPRYMSG
F4D4 A2 00 OPENPAR LDX #$00
F4D6 86 F0 STX SA
F4D8 8E 0C 02 STX STATUS
F4DB 86 EE STX FNLEN
F4DD E8 INX
F4DE 86 F1 STX FA
F4E0 20 22 F5 JSR iF522
F4E3 20 76 D6 JSR iD676
F4E6 86 EF STX LFN
F4E8 20 15 F5 JSR ENDCMD
F4EB 20 5C F4 JSR CHKCOMMA
F4EE 86 F1 STX FA
F4F0 E0 03 CPX #$03
F4F2 90 02 BCC iF4F6
F4F4 C6 F0 DEC SA
F4F6 20 15 F5 iF4F6 JSR ENDCMD
F4F9 20 5C F4 JSR CHKCOMMA
F4FC 86 F0 STX SA
F4FE 20 15 F5 JSR ENDCMD
F501 20 1D F5 JSR iF51D
F504 20 B8 CC iF504 JSR iCCB8
F507 20 7B D5 JSR iD57B
F50A 85 EE STA FNLEN
F50C A5 71 LDA x71
F50E 85 F9 STA xF9
F510 A5 72 LDA x72
F512 85 FA STA xFA
F514 60 RTS
F515 20 C8 00 ENDCMD JSR iC8
F518 D0 02 BNE iF51C
F51A 68 PLA
F51B 68 PLA
F51C 60 iF51C RTS
F51D A9 2C iF51D LDA #$2C
F51F 20 13 CE JSR iCE13
F522 20 C8 00 iF522 JSR iC8
F525 D0 F5 BNE iF51C
F527 4C 1C CE JMP iCE1C
F52A 20 D4 F4 KOPEN JSR OPENPAR ; Kernal Open
F52D A5 EF LDA LFN
F52F D0 03 BNE iF534
F531 4C 1C CE JMP iCE1C
F534 20 AB F2 iF534 JSR SLOGFN
F537 D0 04 BNE iF53D
F539 A0 0E LDY #$0E
F53B D0 3E iF53B BNE YERROUT
F53D AE 62 02 iF53D LDX NFILES ; file not in use already
F540 A0 00 LDY #$00
F542 8C 0C 02 STY STATUS
F545 E0 0A CPX #$0A
F547 F0 F2 BEQ iF53B ; file table full -> lock!
F549 EE 62 02 INC NFILES
F54C A5 EF LDA LFN ; save file parameter
F54E 9D 42 02 STA LFTAB,X
F551 A5 F0 LDA SA
F553 9D 56 02 STA SATAB,X
F556 A5 F1 LDA FA
F558 9D 4C 02 STA FATAB,X
F55B F0 50 BEQ iF5AD ; check devices
F55D C9 03 CMP #$03
F55F F0 4C BEQ iF5AD
F561 90 03 BCC iF566
F563 4C 62 F4 JMP IECOPEN ; iecopen
F566 A5 F0 iF566 LDA SA ; Tape
F568 D0 28 BNE iF592
F56A 20 3B F8 JSR iF83B
F56D 20 FF F3 JSR PRSRCH
F570 A5 EE LDA FNLEN
F572 F0 17 BEQ iF58B
F574 20 95 F4 JSR iF495
F577 D0 21 BNE iF59A
F579 A0 24 iF579 LDY #$24
F57B A9 0D YERROUT LDA #$0D
F57D 20 EA E3 JSR KPRCHAR
F580 A9 3F LDA #$3F
F582 20 EA E3 JSR KPRCHAR
F585 20 DE E7 JSR KPRYMSG
F588 4C 79 C3 JMP iC379
F58B 20 AE F5 iF58B JSR iF5AE
F58E F0 E9 BEQ iF579
F590 D0 08 BNE iF59A
F592 20 71 F8 iF592 JSR iF871
F595 A9 04 LDA #$04
F597 20 ED F5 JSR iF5ED
F59A A6 F1 iF59A LDX FA
F59C A9 BF LDA #$BF
F59E A4 F0 LDY SA
F5A0 F0 08 BEQ iF5AA
F5A2 20 E3 F5 JSR iF5E3
F5A5 A9 02 LDA #$02
F5A7 91 F3 STA (xF3),Y
F5A9 98 TYA
F5AA 9D 70 02 iF5AA STA x0270,X
F5AD 60 iF5AD RTS
F5AE AD 0B 02 iF5AE LDA VERFL
F5B1 48 PHA
F5B2 20 7F F8 iF5B2 JSR iF87F
F5B5 A0 00 LDY #$00
F5B7 B1 F3 LDA (xF3),Y
F5B9 C9 05 CMP #$05
F5BB F0 20 BEQ iF5DD
F5BD C9 01 CMP #$01
F5BF F0 04 BEQ iF5C5
F5C1 C9 04 CMP #$04
F5C3 D0 ED BNE iF5B2
F5C5 AA iF5C5 TAX
F5C6 A5 CA LDA xCA
F5C8 D0 11 BNE iF5DB
F5CA A0 A3 LDY #$A3 ; "found"
F5CC 20 DE E7 JSR KPRYMSG
F5CF A0 05 LDY #$05
F5D1 B1 F3 iF5D1 LDA (xF3),Y
F5D3 20 EA E3 JSR KPRCHAR
F5D6 C8 INY
F5D7 C0 15 CPY #$15
F5D9 D0 F6 BNE iF5D1
F5DB A0 01 iF5DB LDY #$01
F5DD 68 iF5DD PLA
F5DE 8D 0B 02 STA VERFL
F5E1 98 TYA
F5E2 60 RTS
F5E3 A0 BF iF5E3 LDY #$BF
F5E5 A9 20 LDA #$20
F5E7 91 F3 iF5E7 STA (xF3),Y
F5E9 88 DEY
F5EA D0 FB BNE iF5E7
F5EC 60 RTS
F5ED 85 E9 iF5ED STA xE9
F5EF A5 F8 LDA LADDR+1
F5F1 48 PHA
F5F2 A5 F7 LDA LADDR
F5F4 48 PHA
F5F5 A5 E6 LDA EADDR+1
F5F7 48 PHA
F5F8 A5 E5 LDA EADDR
F5FA 48 PHA
F5FB 20 E3 F5 JSR iF5E3
F5FE A5 E9 LDA xE9
F600 91 F3 STA (xF3),Y
F602 C8 INY
F603 A5 F7 LDA LADDR
F605 91 F3 STA (xF3),Y
F607 C8 INY
F608 A5 F8 LDA LADDR+1
F60A 91 F3 STA (xF3),Y
F60C C8 INY
F60D A5 E5 LDA EADDR
F60F 91 F3 STA (xF3),Y
F611 C8 INY
F612 A5 E6 LDA EADDR+1
F614 91 F3 STA (xF3),Y
F616 C8 INY
F617 8C 68 02 STY x0268
F61A A0 00 LDY #$00
F61C 84 E9 STY xE9
F61E A4 E9 iF61E LDY xE9
F620 C4 EE CPY FNLEN
F622 F0 0E BEQ iF632
F624 B1 F9 LDA (xF9),Y
F626 AC 68 02 LDY x0268
F629 91 F3 STA (xF3),Y
F62B E6 E9 INC xE9
F62D EE 68 02 INC x0268
F630 D0 EC BNE iF61E
F632 20 7D F6 iF632 JSR iF67D
F635 20 13 F9 JSR iF913
F638 A9 69 LDA #$69
F63A 8D 79 02 STA x0279
F63D 20 C4 F8 JSR iF8C4
F640 68 PLA
F641 85 E5 STA EADDR
F643 68 PLA
F644 85 E6 STA EADDR+1
F646 68 PLA
F647 85 F7 STA LADDR
F649 68 PLA
F64A 85 F8 STA LADDR+1
F64C 60 RTS
F64D 20 13 F9 iF64D JSR iF913
F650 A2 00 LDX #$00
F652 A0 01 LDY #$01
F654 B1 F3 iF654 LDA (xF3),Y
F656 95 E3 STA SADDR,X
F658 E8 INX
F659 C8 INY
F65A E0 04 CPX #$04
F65C D0 F6 BNE iF654
F65E A5 E3 LDA SADDR
F660 85 F7 STA LADDR
F662 A5 E4 LDA SADDR+1
F664 85 F8 STA LADDR+1
F666 60 RTS
F667 A9 7A iF667 LDA #$7A
F669 85 F3 STA xF3
F66B A9 02 LDA #$02
F66D 85 F4 STA xF4
F66F A5 F1 LDA FA
F671 4A LSR
F672 B0 08 BCS iF67C
F674 A9 3A LDA #$3A
F676 85 F3 STA xF3
F678 A9 03 LDA #$03
F67A 85 F4 STA xF4
F67C 60 iF67C RTS
F67D 20 13 F9 iF67D JSR iF913
F680 20 67 F6 JSR iF667
F683 A5 F3 LDA xF3
F685 85 F7 STA LADDR
F687 18 CLC
F688 69 C0 ADC #$C0
F68A 85 E5 STA EADDR
F68C A5 F4 LDA xF4
F68E 85 F8 STA LADDR+1
F690 69 00 ADC #$00
F692 85 E6 STA EADDR+1
F694 60 RTS
F695 20 A4 CC KSYS JSR iCCA4
F698 20 D0 D6 JSR iD6D0
F69B 6C 08 00 JMP (x08)
F69E 20 33 F4 KSAVE JSR GETFPAR
F6A1 A5 7C LDA x7C
F6A3 85 E5 STA EADDR
F6A5 A5 7D LDA x7D
F6A7 85 E6 STA EADDR+1
F6A9 A9 04 LDA #$04 ; default save from $0400
F6AB 85 F8 STA LADDR+1
F6AD A9 00 LDA #$00
F6AF 85 F7 STA LADDR
F6B1 A5 F1 LDA FA
F6B3 D0 05 BNE iF6BA
F6B5 A0 74 iF6B5 LDY #$74 ; keyboard -> device not present
F6B7 4C 7B F5 JMP YERROUT
F6BA C9 03 iF6BA CMP #$03
F6BC F0 F7 BEQ iF6B5 ; screen -> device not present
F6BE 90 36 BCC iF6F6 ; tape ->
F6C0 20 1C F7 JSR iF71C ; get free secaddr
F6C3 20 62 F4 JSR IECOPEN
F6C6 20 BA F0 JSR LISTEN
F6C9 A0 00 LDY #$00
F6CB 20 DC FB JSR iFBDC ; LADR -> SADR
F6CE 20 90 FD iF6CE JSR iFD90 ; compare with end address
F6D1 F0 10 BEQ iF6E3
F6D3 B1 E3 LDA (SADDR),Y
F6D5 20 67 F1 JSR IECOUT
F6D8 20 39 F3 JSR IECABORT
F6DB E6 E3 INC SADDR
F6DD D0 EF BNE iF6CE
F6DF E6 E4 INC SADDR+1
F6E1 D0 EB BNE iF6CE
F6E3 20 7E F1 iF6E3 JSR UNLISTEN
F6E6 24 F0 CLSIEC BIT SA
F6E8 30 4B BMI iF735
F6EA 20 BA F0 JSR LISTEN
F6ED A5 F0 LDA SA
F6EF 29 EF AND #$EF
F6F1 09 E0 ORA #$E0
F6F3 4C 2C F1 JMP SECOUT
F6F6 20 67 F6 iF6F6 JSR iF667 ; Tape
F6F9 20 71 F8 JSR iF871
F6FC A5 CA LDA xCA
F6FE D0 08 BNE iF708
F700 A0 64 LDY #$64
F702 20 DE E7 JSR KPRYMSG
F705 20 11 F4 JSR iF411
F708 A9 01 iF708 LDA #$01
F70A 20 ED F5 JSR iF5ED
F70D 20 BC F8 JSR iF8BC
F710 A6 F0 LDX SA
F712 F0 21 BEQ iF735
F714 CA DEX
F715 F0 1E BEQ iF735
F717 A9 05 LDA #$05
F719 4C ED F5 JMP iF5ED
F71C A2 00 iF71C LDX #$00 ; look for free sec. address
F71E 86 F0 STX SA
F720 A2 00 iF720 LDX #$00
F722 E6 F0 INC SA
F724 EC 62 02 iF724 CPX NFILES
F727 F0 5E BEQ iF787 ; -> RTS
F729 BD 56 02 LDA SATAB,X
F72C 29 1F AND #$1F
F72E C5 F0 CMP SA
F730 F0 EE BEQ iF720
F732 E8 INX
F733 D0 EF BNE iF724
F735 60 iF735 RTS
F736 AD 05 02 iF736 LDA TIMER1
F739 69 01 ADC #$01
F73B 8D 05 02 STA TIMER1
F73E 90 03 BCC iF743
F740 EE 06 02 INC TIMER1+1
F743 C9 6F iF743 CMP #$6F
F745 D0 07 BNE iF74E
F747 AD 06 02 LDA TIMER1+1
F74A C9 02 CMP #$02
F74C F0 26 BEQ iF774
F74E EE 02 02 iF74E INC x0202
F751 D0 08 BNE iF75B
F753 EE 01 02 INC x0201
F756 D0 03 BNE iF75B
F758 EE 00 02 INC x0200
F75B A2 00 iF75B LDX #$00
F75D BD 00 02 iF75D LDA x0200,X
F760 DD 88 F7 CMP xF788,X
F763 90 17 BCC iF77C
F765 E8 INX
F766 E0 03 CPX #$03
F768 D0 F3 BNE iF75D
F76A A9 00 LDA #$00
F76C 9D FF 01 iF76C STA STACK+255,X
F76F CA DEX
F770 D0 FA BNE iF76C
F772 F0 08 BEQ iF77C
F774 A9 00 iF774 LDA #$00
F776 8D 05 02 STA TIMER1
F779 8D 06 02 STA TIMER1+1
F77C AD 12 E8 iF77C LDA PIA1_PB
F77F CD 12 E8 CMP PIA1_PB
F782 D0 F8 BNE iF77C
F784 8D 09 02 STA KEYMSK
F787 60 iF787 RTS
F788 xF788 .byte $4F, $1A, $01 ;oza
F78B 48 KCHKIN PHA
F78C 8A TXA
F78D 48 PHA
F78E 98 TYA
F78F 48 PHA
F790 A9 00 LDA #$00
F792 8D 0C 02 STA STATUS ; clear status
F795 8A TXA
F796 20 AB F2 JSR SLOGFN
F799 F0 05 BEQ iF7A0
F79B A0 17 iF79B LDY #$17 ; "file not open"
F79D 4C 7B F5 iF79D JMP YERROUT
F7A0 20 B8 F2 iF7A0 JSR SETFPAR
F7A3 A5 F1 LDA FA
F7A5 F0 0E BEQ iF7B5
F7A7 C9 03 CMP #$03
F7A9 F0 0A BEQ iF7B5
F7AB B0 0E BCS iF7BB ; IEEE488 ->
F7AD A6 F0 LDX SA ; Tape
F7AF F0 04 BEQ iF7B5
F7B1 A0 86 LDY #$86
F7B3 D0 E8 BNE iF79D
F7B5 8D 63 02 iF7B5 STA CURIDEV ; keyboard -> almost finished
F7B8 4C 77 F2 JMP iF277 ; restore registers, return
F7BB 48 iF7BB PHA
F7BC 20 B6 F0 JSR TALK
F7BF A5 F0 LDA SA
F7C1 10 06 BPL iF7C9
F7C3 20 61 F1 JSR iF161 ; NRFD, NDAC lo, ATN hi
F7C6 4C D0 F7 JMP iF7D0
F7C9 29 1F iF7C9 AND #$1F
F7CB 09 60 ORA #$60
F7CD 20 5B F1 JSR SECTALK
F7D0 AD 0C 02 iF7D0 LDA STATUS
F7D3 10 03 BPL iF7D8
F7D5 4C 7D F4 JMP iF47D ; "device not present"
F7D8 68 iF7D8 PLA
F7D9 4C B5 F7 JMP iF7B5
F7DC 48 KCKOUT PHA
F7DD 8A TXA
F7DE 48 PHA
F7DF 98 TYA
F7E0 48 PHA
F7E1 A9 00 LDA #$00
F7E3 8D 0C 02 STA STATUS
F7E6 A9 FF LDA #$FF
F7E8 8D 6A 02 STA x026A
F7EB 8A TXA
F7EC 20 AB F2 JSR SLOGFN
F7EF D0 AA BNE iF79B
F7F1 20 B8 F2 JSR SETFPAR
F7F4 A5 F1 LDA FA ; check device
F7F6 F0 A3 BEQ iF79B ; keyboard -> file not open
F7F8 C9 03 CMP #$03
F7FA F0 0A BEQ iF806 ; screen -> almost finished
F7FC 10 0E BPL iF80C ; IEEE488 ->
F7FE A6 F0 LDX SA ; Tape
F800 D0 04 BNE iF806
F802 A0 94 LDY #$94
F804 D0 97 BNE iF79D
F806 8D 64 02 iF806 STA CURODEV
F809 4C 77 F2 JMP iF277 ; restore registers, return
F80C 48 iF80C PHA
F80D 20 BA F0 JSR LISTEN
F810 A5 F0 LDA SA
F812 10 06 BPL iF81A
F814 20 32 F1 JSR iF132 ; ATN hi
F817 4C 21 F8 JMP iF821
F81A 29 1F iF81A AND #$1F
F81C 09 60 ORA #$60
F81E 20 2C F1 JSR SECOUT
F821 AD 0C 02 iF821 LDA STATUS
F824 10 03 BPL iF829
F826 4C 7D F4 JMP iF47D ; device not present
F829 68 iF829 PLA
F82A 4C 06 F8 JMP iF806
F82D 20 67 F6 iF82D JSR iF667 ; Tape
F830 A6 F1 LDX FA
F832 FE 70 02 INC x0270,X
F835 BC 70 02 LDY x0270,X
F838 C0 C0 CPY #$C0
F83A 60 RTS
F83B 20 5E F8 iF83B JSR iF85E
F83E F0 30 BEQ iF870
F840 A0 41 LDY #$41 ; "press play & record"
F842 20 DE E7 iF842 JSR KPRYMSG
F845 A0 56 LDY #$56 ; "on tape #"
F847 20 DE E7 JSR KPRYMSG
F84A A5 F1 LDA FA
F84C 09 30 ORA #$30
F84E 20 EA E3 JSR KPRCHAR
F851 20 39 F3 iF851 JSR IECABORT
F854 20 5E F8 JSR iF85E
F857 D0 F8 BNE iF851
F859 A0 AA LDY #$AA
F85B 4C DE E7 JMP KPRYMSG
F85E A9 10 iF85E LDA #$10
F860 A6 F1 LDX FA
F862 E0 01 CPX #$01
F864 F0 02 BEQ iF868
F866 A9 20 LDA #$20
F868 2C 10 E8 iF868 BIT PIA1_PA
F86B D0 03 BNE iF870
F86D 2C 10 E8 BIT PIA1_PA
F870 60 iF870 RTS
F871 20 5E F8 iF871 JSR iF85E
F874 F0 FA BEQ iF870
F876 A0 41 LDY #$41
F878 20 DE E7 JSR KPRYMSG
F87B A0 4D LDY #$4D
F87D D0 C3 BNE iF842
F87F A9 00 iF87F LDA #$00
F881 8D 0C 02 STA STATUS
F884 8D 0B 02 STA VERFL
F887 20 7D F6 JSR iF67D
F88A 20 13 F9 iF88A JSR iF913
F88D 20 3B F8 JSR iF83B
F890 78 SEI
F891 A9 00 LDA #$00
F893 8D 78 02 STA x0278
F896 85 EB STA xEB
F898 85 E7 STA xE7
F89A 8D 76 02 STA x0276
F89D 8D 77 02 STA x0277
F8A0 8D 66 02 STA x0266
F8A3 A2 0E LDX #$0E
F8A5 20 1B FD JSR SETIRQV
F8A8 A6 F1 LDX FA
F8AA CA DEX
F8AB F0 07 BEQ iF8B4
F8AD A9 90 LDA #$90
F8AF 8D 4E E8 STA VIA_IER
F8B2 D0 1E BNE iF8D2
F8B4 EE 11 E8 iF8B4 INC PIA1_CRA
F8B7 D0 19 BNE iF8D2
F8B9 20 7D F6 iF8B9 JSR iF67D
F8BC 20 13 F9 iF8BC JSR iF913
F8BF A9 14 LDA #$14
F8C1 8D 79 02 STA x0279
F8C4 20 71 F8 iF8C4 JSR iF871
F8C7 78 SEI
F8C8 A9 A0 LDA #$A0
F8CA 8D 4E E8 STA VIA_IER
F8CD A2 08 LDX #$08
F8CF 20 1B FD JSR SETIRQV
F8D2 A9 02 iF8D2 LDA #$02
F8D4 85 FD STA xFD
F8D6 20 EC FB JSR iFBEC
F8D9 CE 13 E8 DEC PIA1_CRB
F8DC A6 F1 LDX FA
F8DE CA DEX
F8DF D0 0A BNE iF8EB
F8E1 A9 34 LDA #$34
F8E3 8D 13 E8 STA PIA1_CRB
F8E6 8D 07 02 STA x0207
F8E9 D0 0B BNE iF8F6
F8EB AD 40 E8 iF8EB LDA VIA_DRB
F8EE 8E 08 02 STX x0208
F8F1 29 EF AND #$EF
F8F3 8D 40 E8 STA VIA_DRB
F8F6 8D 49 E8 iF8F6 STA VIA_T2CH
F8F9 58 CLI
F8FA A9 E6 iF8FA LDA #$E6
F8FC CD 1A 02 CMP IRQV+1
F8FF F0 11 BEQ iF912
F901 20 1E F9 JSR iF91E
F904 2C 13 E8 BIT PIA1_CRB
F907 10 F1 BPL iF8FA
F909 2C 12 E8 BIT PIA1_PB
F90C 20 36 F7 JSR iF736
F90F 4C FA F8 JMP iF8FA
F912 60 iF912 RTS
F913 20 1E F9 iF913 JSR iF91E ; check break status
F916 A9 E6 LDA #$E6
F918 CD 1A 02 CMP IRQV+1
F91B D0 F6 BNE iF913
F91D 60 RTS
F91E 20 2A F3 iF91E JSR CHKSTP ; returns z=1 if break
F921 D0 08 BNE iF92B
F923 08 PHP
F924 20 FB FC JSR CLEARIO
F927 20 99 F2 JSR iF299 ; set keyb/screen as I/O
F92A 28 PLP
F92B 4C 1C C7 iF92B JMP TSTSTOP ; Does a "BNE -> RTS, otherwise STOP"
F92E 86 E8 iF92E STX xE8
F930 A5 E7 LDA xE7
F932 0A ASL
F933 0A ASL
F934 18 CLC
F935 65 E7 ADC xE7
F937 18 CLC
F938 65 E8 ADC xE8
F93A 85 E8 STA xE8
F93C A9 00 LDA #$00
F93E 24 E7 BIT xE7
F940 30 01 BMI iF943
F942 2A ROL
F943 06 E8 iF943 ASL xE8
F945 2A ROL
F946 06 E8 ASL xE8
F948 2A ROL
F949 AA TAX
F94A AD 48 E8 iF94A LDA VIA_T2CL
F94D C9 15 CMP #$15
F94F 90 F9 BCC iF94A
F951 65 E8 ADC xE8
F953 8D 44 E8 STA VIA_T1CL
F956 8A TXA
F957 6D 49 E8 ADC VIA_T2CH
F95A 8D 45 E8 STA VIA_T1CH
F95D 58 CLI
F95E 60 RTS
F95F AE 49 E8 iF95F LDX VIA_T2CH
F962 A0 FF LDY #$FF
F964 98 TYA
F965 ED 48 E8 SBC VIA_T2CL
F968 EC 49 E8 CPX VIA_T2CH
F96B D0 F2 BNE iF95F
F96D 86 E8 STX xE8
F96F AA TAX
F970 8C 48 E8 STY VIA_T2CL
F973 8C 49 E8 STY VIA_T2CH
F976 98 TYA
F977 E5 E8 SBC xE8
F979 86 E8 STX xE8
F97B 4A LSR
F97C 66 E8 ROR xE8
F97E 4A LSR
F97F 66 E8 ROR xE8
F981 A5 E7 LDA xE7
F983 18 CLC
F984 69 3C ADC #$3C
F986 2C 40 E8 BIT VIA_DRB
F989 2C 10 E8 BIT PIA1_PA
F98C C5 E8 CMP xE8
F98E B0 55 BCS iF9E5
F990 AE 66 02 LDX x0266
F993 F0 03 BEQ iF998
F995 4C A3 FA JMP iFAA3
F998 AE 6C 02 iF998 LDX x026C
F99B 30 1B BMI iF9B8
F99D A2 00 LDX #$00
F99F 69 30 ADC #$30
F9A1 65 E7 ADC xE7
F9A3 C5 E8 CMP xE8
F9A5 B0 1E BCS iF9C5
F9A7 E8 INX
F9A8 69 26 ADC #$26
F9AA 65 E7 ADC xE7
F9AC C5 E8 CMP xE8
F9AE B0 1B BCS iF9CB
F9B0 69 2C ADC #$2C
F9B2 65 E7 ADC xE7
F9B4 C5 E8 CMP xE8
F9B6 90 03 BCC iF9BB
F9B8 4C 4A FA iF9B8 JMP iFA4A
F9BB EA iF9BB NOP
F9BC A5 EB iF9BC LDA xEB
F9BE F0 25 BEQ iF9E5
F9C0 8D 74 02 STA x0274
F9C3 D0 20 BNE iF9E5
F9C5 EE 75 02 iF9C5 INC x0275
F9C8 B0 04 BCS iF9CE
F9CA EA iF9CA NOP
F9CB CE 75 02 iF9CB DEC x0275
F9CE 38 iF9CE SEC
F9CF E9 13 SBC #$13
F9D1 E5 E8 SBC xE8
F9D3 6D 0A 02 ADC x020A
F9D6 8D 0A 02 STA x020A
F9D9 AD 6F 02 LDA x026F
F9DC 49 01 EOR #$01
F9DE 8D 6F 02 STA x026F
F9E1 F0 24 BEQ iFA07
F9E3 86 F6 STX xF6
F9E5 A5 EB iF9E5 LDA xEB
F9E7 F0 1B BEQ iFA04
F9E9 2C 4D E8 BIT VIA_IFR
F9EC 50 16 BVC iFA04
F9EE A9 00 LDA #$00
F9F0 8D 6F 02 STA x026F
F9F3 AD 6C 02 LDA x026C
F9F6 10 36 BPL iFA2E
F9F8 30 BE BMI iF9B8
F9FA A2 A6 iF9FA LDX #$A6
F9FC 20 2E F9 JSR iF92E
F9FF AD 65 02 LDA x0265
FA02 D0 B8 BNE iF9BC
FA04 4C 7E E6 iFA04 JMP iE67E
FA07 AD 0A 02 iFA07 LDA x020A
FA0A F0 08 BEQ iFA14
FA0C 30 04 BMI iFA12
FA0E C6 E7 DEC xE7
FA10 C6 E7 DEC xE7
FA12 E6 E7 iFA12 INC xE7
FA14 A9 00 iFA14 LDA #$00
FA16 8D 0A 02 STA x020A
FA19 E4 F6 CPX xF6
FA1B D0 11 BNE iFA2E
FA1D 8A TXA
FA1E D0 9C BNE iF9BC
FA20 AD 75 02 LDA x0275
FA23 30 C0 BMI iF9E5
FA25 C9 10 CMP #$10
FA27 90 BC BCC iF9E5
FA29 8D 28 02 STA x0228
FA2C B0 B7 BCS iF9E5
FA2E 8A iFA2E TXA
FA2F 4D 65 02 EOR x0265
FA32 8D 65 02 STA x0265
FA35 A5 EB LDA xEB
FA37 F0 CB BEQ iFA04
FA39 CE 6C 02 DEC x026C
FA3C 30 BC BMI iF9FA
FA3E 46 F6 LSR xF6
FA40 66 FE ROR xFE
FA42 A2 DA LDX #$DA
FA44 20 2E F9 JSR iF92E
FA47 4C 7E E6 JMP iE67E
FA4A AD 28 02 iFA4A LDA x0228
FA4D F0 04 BEQ iFA53
FA4F A5 EB LDA xEB
FA51 F0 08 BEQ iFA5B
FA53 AD 6C 02 iFA53 LDA x026C
FA56 30 03 BMI iFA5B
FA58 4C CA F9 JMP iF9CA
FA5B 46 E8 iFA5B LSR xE8
FA5D A9 93 LDA #$93
FA5F 38 SEC
FA60 E5 E8 SBC xE8
FA62 65 E7 ADC xE7
FA64 0A ASL
FA65 AA TAX
FA66 20 2E F9 JSR iF92E
FA69 EE 66 02 INC x0266
FA6C A5 EB LDA xEB
FA6E D0 14 BNE iFA84
FA70 AD 28 02 LDA x0228
FA73 F0 2B BEQ iFAA0
FA75 8D 74 02 STA x0274
FA78 A9 00 LDA #$00
FA7A 8D 28 02 STA x0228
FA7D A9 C0 LDA #$C0
FA7F 8D 4E E8 STA VIA_IER
FA82 85 EB STA xEB
FA84 AD 28 02 iFA84 LDA x0228
FA87 85 EC STA xEC
FA89 F0 09 BEQ iFA94
FA8B A9 00 LDA #$00
FA8D 85 EB STA xEB
FA8F A9 40 LDA #$40
FA91 8D 4E E8 STA VIA_IER
FA94 A5 FE iFA94 LDA xFE
FA96 85 FC STA xFC
FA98 AD 74 02 LDA x0274
FA9B 0D 75 02 ORA x0275
FA9E 85 ED STA xED
FAA0 4C 7E E6 iFAA0 JMP iE67E
FAA3 20 EC FB iFAA3 JSR iFBEC
FAA6 8D 66 02 STA x0266
FAA9 A2 DA LDX #$DA
FAAB 20 2E F9 JSR iF92E
FAAE A5 FD LDA xFD
FAB0 F0 03 BEQ iFAB5
FAB2 8D 73 02 STA x0273
FAB5 A9 0F iFAB5 LDA #$0F
FAB7 2C 78 02 BIT x0278
FABA 10 18 BPL iFAD4
FABC A5 EC LDA xEC
FABE D0 0C BNE iFACC
FAC0 A6 FD LDX xFD
FAC2 CA DEX
FAC3 D0 0C BNE iFAD1
FAC5 A9 08 LDA #$08
FAC7 20 E5 FB JSR SETST
FACA D0 05 BNE iFAD1
FACC A9 00 iFACC LDA #$00
FACE 8D 78 02 STA x0278
FAD1 4C 7E E6 iFAD1 JMP iE67E
FAD4 70 37 iFAD4 BVS iFB0D
FAD6 D0 1A BNE iFAF2
FAD8 A5 EC LDA xEC
FADA D0 F5 BNE iFAD1
FADC A5 ED LDA xED
FADE D0 F1 BNE iFAD1
FAE0 AD 73 02 LDA x0273
FAE3 4A LSR
FAE4 A5 FC LDA xFC
FAE6 30 03 BMI iFAEB
FAE8 90 1C BCC iFB06
FAEA 18 CLC
FAEB B0 19 iFAEB BCS iFB06
FAED 29 0F AND #$0F
FAEF 8D 78 02 STA x0278
FAF2 CE 78 02 iFAF2 DEC x0278
FAF5 D0 DA BNE iFAD1
FAF7 A9 40 LDA #$40
FAF9 8D 78 02 STA x0278
FAFC 20 DC FB JSR iFBDC
FAFF A9 00 LDA #$00
FB01 8D 79 02 STA x0279
FB04 F0 CB BEQ iFAD1
FB06 A9 80 iFB06 LDA #$80
FB08 8D 78 02 STA x0278
FB0B D0 C4 BNE iFAD1
FB0D A5 EC iFB0D LDA xEC
FB0F F0 0A BEQ iFB1B
FB11 A9 04 LDA #$04
FB13 20 E5 FB JSR SETST
FB16 A9 00 LDA #$00
FB18 4C A7 FB JMP iFBA7
FB1B 20 90 FD iFB1B JSR iFD90
FB1E D0 03 BNE iFB23
FB20 4C A5 FB JMP iFBA5
FB23 AE 73 02 iFB23 LDX x0273
FB26 CA DEX
FB27 F0 31 BEQ iFB5A
FB29 AD 0B 02 LDA VERFL
FB2C F0 0C BEQ iFB3A
FB2E A0 00 LDY #$00
FB30 A5 FC LDA xFC
FB32 D1 E3 CMP (SADDR),Y
FB34 F0 04 BEQ iFB3A
FB36 A9 01 LDA #$01
FB38 85 ED STA xED
FB3A A5 ED iFB3A LDA xED
FB3C F0 54 BEQ iFB92
FB3E A2 3D LDX #$3D
FB40 EC 76 02 CPX x0276
FB43 90 46 BCC iFB8B
FB45 AE 76 02 LDX x0276
FB48 A5 E4 LDA SADDR+1
FB4A 9D 01 01 STA STACK+1,X
FB4D A5 E3 LDA SADDR
FB4F 9D 00 01 STA STACK,X
FB52 E8 INX
FB53 E8 INX
FB54 8E 76 02 STX x0276
FB57 4C 92 FB JMP iFB92
FB5A AE 77 02 iFB5A LDX x0277
FB5D EC 76 02 CPX x0276
FB60 F0 3B BEQ iFB9D
FB62 A5 E3 LDA SADDR
FB64 DD 00 01 CMP STACK,X
FB67 D0 34 BNE iFB9D
FB69 A5 E4 LDA SADDR+1
FB6B DD 01 01 CMP STACK+1,X
FB6E D0 2D BNE iFB9D
FB70 EE 77 02 INC x0277
FB73 EE 77 02 INC x0277
FB76 AD 0B 02 LDA VERFL
FB79 F0 0C BEQ iFB87
FB7B A5 FC LDA xFC
FB7D A0 00 LDY #$00
FB7F D1 E3 CMP (SADDR),Y
FB81 F0 1A BEQ iFB9D
FB83 A9 01 LDA #$01
FB85 85 ED STA xED
FB87 A5 ED iFB87 LDA xED
FB89 F0 07 BEQ iFB92
FB8B A9 10 iFB8B LDA #$10
FB8D 20 E5 FB JSR SETST
FB90 D0 0B BNE iFB9D
FB92 AD 0B 02 iFB92 LDA VERFL
FB95 D0 06 BNE iFB9D
FB97 A5 FC LDA xFC
FB99 A0 00 LDY #$00
FB9B 91 E3 STA (SADDR),Y
FB9D E6 E3 iFB9D INC SADDR
FB9F D0 38 BNE iFBD9
FBA1 E6 E4 INC SADDR+1
FBA3 D0 34 BNE iFBD9
FBA5 A9 80 iFBA5 LDA #$80
FBA7 8D 78 02 iFBA7 STA x0278
FBAA A6 FD LDX xFD
FBAC CA DEX
FBAD 30 02 BMI iFBB1
FBAF 86 FD STX xFD
FBB1 CE 73 02 iFBB1 DEC x0273
FBB4 F0 09 BEQ iFBBF
FBB6 AD 76 02 LDA x0276
FBB9 D0 1E BNE iFBD9
FBBB 85 FD STA xFD
FBBD F0 1A BEQ iFBD9
FBBF 20 FB FC iFBBF JSR CLEARIO
FBC2 20 DC FB JSR iFBDC
FBC5 A0 00 LDY #$00
FBC7 8C 79 02 STY x0279
FBCA 20 7C FD JSR iFD7C
FBCD AD 79 02 LDA x0279
FBD0 45 FC EOR xFC
FBD2 F0 05 BEQ iFBD9
FBD4 A9 20 LDA #$20
FBD6 20 E5 FB JSR SETST
FBD9 4C 7E E6 iFBD9 JMP iE67E
FBDC A5 F8 iFBDC LDA LADDR+1
FBDE 85 E4 STA SADDR+1
FBE0 A5 F7 LDA LADDR
FBE2 85 E3 STA SADDR
FBE4 60 RTS
FBE5 0D 0C 02 SETST ORA STATUS
FBE8 8D 0C 02 STA STATUS
FBEB 60 RTS
FBEC A9 08 iFBEC LDA #$08
FBEE 8D 6C 02 STA x026C
FBF1 A9 00 LDA #$00
FBF3 8D 6F 02 STA x026F
FBF6 8D 74 02 STA x0274
FBF9 8D 65 02 STA x0265
FBFC 8D 75 02 STA x0275
FBFF 60 RTS
FC00 A5 FC iFC00 LDA xFC
FC02 4A LSR
FC03 A9 60 LDA #$60
FC05 90 02 BCC iFC09
FC07 A9 B0 iFC07 LDA #$B0
FC09 A2 00 iFC09 LDX #$00
FC0B 8D 48 E8 iFC0B STA VIA_T2CL
FC0E 8E 49 E8 STX VIA_T2CH
FC11 AD 40 E8 LDA VIA_DRB
FC14 49 08 EOR #$08
FC16 8D 40 E8 STA VIA_DRB
FC19 29 08 AND #$08
FC1B 60 RTS
FC1C 38 iFC1C SEC
FC1D 66 E4 ROR SADDR+1
FC1F 30 44 BMI iFC65
FC21 AD 74 02 LDA x0274
FC24 D0 13 BNE iFC39
FC26 A9 10 LDA #$10
FC28 A2 01 LDX #$01
FC2A 20 0B FC JSR iFC0B
FC2D D0 36 BNE iFC65
FC2F EE 74 02 INC x0274
FC32 A5 E4 LDA SADDR+1
FC34 10 2F BPL iFC65
FC36 4C BB FC JMP iFCBB
FC39 AD 75 02 iFC39 LDA x0275
FC3C D0 0A BNE iFC48
FC3E 20 07 FC JSR iFC07
FC41 D0 22 BNE iFC65
FC43 EE 75 02 INC x0275
FC46 D0 1D BNE iFC65
FC48 20 00 FC iFC48 JSR iFC00
FC4B D0 18 BNE iFC65
FC4D AD 6F 02 LDA x026F
FC50 49 01 EOR #$01
FC52 8D 6F 02 STA x026F
FC55 F0 11 BEQ iFC68
FC57 A5 FC LDA xFC
FC59 49 01 EOR #$01
FC5B 85 FC STA xFC
FC5D 29 01 AND #$01
FC5F 4D 65 02 EOR x0265
FC62 8D 65 02 STA x0265
FC65 4C 7E E6 iFC65 JMP iE67E
FC68 46 FC iFC68 LSR xFC
FC6A CE 6C 02 DEC x026C
FC6D AD 6C 02 LDA x026C
FC70 F0 3F BEQ iFCB1
FC72 10 F1 BPL iFC65
FC74 20 EC FB iFC74 JSR iFBEC
FC77 58 CLI
FC78 AD 70 02 LDA x0270
FC7B F0 13 BEQ iFC90
FC7D A2 00 LDX #$00
FC7F 86 F6 STX xF6
FC81 CE 70 02 DEC x0270
FC84 A6 FD LDX xFD
FC86 E0 02 CPX #$02
FC88 D0 02 BNE iFC8C
FC8A 09 80 ORA #$80
FC8C 85 FC iFC8C STA xFC
FC8E D0 D5 BNE iFC65
FC90 20 90 FD iFC90 JSR iFD90
FC93 90 0A BCC iFC9F
FC95 D0 85 BNE iFC1C
FC97 E6 E4 INC SADDR+1
FC99 A5 F6 LDA xF6
FC9B 85 FC STA xFC
FC9D B0 C6 BCS iFC65
FC9F A0 00 iFC9F LDY #$00
FCA1 B1 E3 LDA (SADDR),Y
FCA3 85 FC STA xFC
FCA5 45 F6 EOR xF6
FCA7 85 F6 STA xF6
FCA9 E6 E3 INC SADDR
FCAB D0 B8 BNE iFC65
FCAD E6 E4 INC SADDR+1
FCAF D0 B4 BNE iFC65
FCB1 AD 65 02 iFCB1 LDA x0265
FCB4 49 01 EOR #$01
FCB6 85 FC STA xFC
FCB8 4C 7E E6 iFCB8 JMP iE67E
FCBB C6 FD iFCBB DEC xFD
FCBD D0 03 BNE iFCC2
FCBF 20 ED FF JSR iFFED
FCC2 A9 50 iFCC2 LDA #$50
FCC4 8D 73 02 STA x0273
FCC7 A2 08 LDX #$08
FCC9 78 SEI
FCCA 20 1B FD JSR SETIRQV
FCCD D0 E9 BNE iFCB8
FCCF A9 78 LDA #$78
FCD1 20 09 FC JSR iFC09
FCD4 D0 E2 BNE iFCB8
FCD6 CE 73 02 DEC x0273
FCD9 D0 DD BNE iFCB8
FCDB 20 EC FB JSR iFBEC
FCDE CE 79 02 DEC x0279
FCE1 10 D5 BPL iFCB8
FCE3 A2 0A LDX #$0A
FCE5 20 1B FD JSR SETIRQV
FCE8 58 CLI
FCE9 EE 79 02 INC x0279
FCEC A5 FD LDA xFD
FCEE F0 26 BEQ iFD16
FCF0 20 DC FB JSR iFBDC
FCF3 A2 09 LDX #$09
FCF5 8E 70 02 STX x0270
FCF8 4C 74 FC JMP iFC74
FCFB 08 CLEARIO PHP
FCFC 78 SEI
FCFD 20 ED FF JSR iFFED ; Cassette #1/2 Motor ?
FD00 A9 7F LDA #$7F
FD02 8D 4E E8 STA VIA_IER ; clear all interrupts
FD05 A9 3C LDA #$3C
FD07 8D 11 E8 STA PIA1_CRA ; EOI off (unblank screen on old models!)
FD0A A9 3D LDA #$3D
FD0C 8D 13 E8 STA PIA1_CRB ; enable PIA1 CA1 IRQ (screen retrace)
FD0F A2 0C LDX #$0C
FD11 20 1B FD JSR SETIRQV ; set std IRQV
FD14 28 PLP
FD15 60 RTS
FD16 20 FB FC iFD16 JSR CLEARIO
FD19 F0 9D BEQ iFCB8
FD1B BD 28 FD SETIRQV LDA xFD28,X
FD1E 8D 19 02 STA IRQV
FD21 BD 29 FD LDA xFD29,X
FD24 8D 1A 02 STA IRQV+1
FD27 60 RTS
FD28 xFD28 .byte $C2 ;B
FD29 xFD29 .byte $FD, $80, $FE, $00, $00, $9E, $FE, $CF ;.......O
FD31 .byte $FC, $21, $FC, $85, $E6, $5F, $F9 ;.!..._.
FD38 A2 FF RESET LDX #$FF
FD3A 9A TXS
FD3B D8 CLD
FD3C 20 E1 E1 JSR iE1E1
FD3F AD 10 E8 LDA PIA1_PA
FD42 10 57 BPL iFD9B
FD44 58 CLI
FD45 4C D2 E0 JMP iE0D2
FD48 84 00 iFD48 STY USR
FD4A 84 01 STY x01
FD4C A0 03 LDY #$03
FD4E 98 iFD4E TYA
FD4F 18 CLC
FD50 65 01 ADC x01
FD52 45 02 EOR x02
FD54 91 00 STA (USR),Y
FD56 C8 INY
FD57 D0 F5 BNE iFD4E
FD59 E6 01 INC x01
FD5B E4 01 CPX x01
FD5D D0 EF BNE iFD4E
FD5F 84 00 STY USR
FD61 84 01 STY x01
FD63 A0 03 LDY #$03
FD65 98 iFD65 TYA
FD66 18 CLC
FD67 65 01 ADC x01
FD69 45 02 EOR x02
FD6B D1 00 CMP (USR),Y
; fd6d: Endless loop.
FD6D D0 FE iFD6D BNE iFD6D
FD6F C8 INY
FD70 D0 F3 BNE iFD65
FD72 E6 01 INC x01
FD74 E4 01 CPX x01
FD76 D0 ED BNE iFD65
FD78 4C 2D FE JMP iFE2D
FD7B .byte $00 ;.
FD7C B1 E3 iFD7C LDA (SADDR),Y
FD7E 4D 79 02 EOR x0279
FD81 8D 79 02 STA x0279
FD84 E6 E3 INC SADDR
FD86 D0 02 BNE iFD8A
FD88 E6 E4 INC SADDR+1
FD8A 20 90 FD iFD8A JSR iFD90
FD8D D0 ED BNE iFD7C
FD8F 60 RTS
FD90 A5 E4 iFD90 LDA SADDR+1
FD92 C5 E6 CMP EADDR+1
FD94 D0 04 BNE iFD9A
FD96 A5 E3 LDA SADDR
FD98 C5 E5 CMP EADDR
FD9A 60 iFD9A RTS
FD9B 8E 11 E8 iFD9B STX PIA1_CRA
FD9E 8E 10 E8 STX PIA1_PA
FDA1 A9 04 LDA #$04
FDA3 8D 11 E8 STA PIA1_CRA
FDA6 8D 10 E8 STA PIA1_PA
FDA9 20 1B FD JSR SETIRQV
FDAC CA DEX
FDAD 8E 44 E8 STX VIA_T1CL
FDB0 2C 12 E8 BIT PIA1_PB
FDB3 2C 13 E8 iFDB3 BIT PIA1_CRB
FDB6 10 FB BPL iFDB3
FDB8 8E 45 E8 STX VIA_T1CH
FDBB 2C 12 E8 BIT PIA1_PB
FDBE 58 CLI
FDBF 4C BF FD iFDBF JMP iFDBF
FDC2 AD 44 E8 LDA VIA_T1CL
FDC5 AC 45 E8 LDY VIA_T1CH
FDC8 2C 13 E8 BIT PIA1_CRB
; fdcb: Endless loop.
FDCB 10 FE iFDCB BPL iFDCB
FDCD 29 C0 AND #$C0
FDCF C9 C0 CMP #$C0
; fdd1: Endless loop.
FDD1 D0 FE iFDD1 BNE iFDD1
FDD3 C0 BE CPY #$BE
; fdd5: Endless loop.
FDD5 D0 FE iFDD5 BNE iFDD5
FDD7 CE 13 E8 DEC PIA1_CRB
FDDA 2C 12 E8 BIT PIA1_PB
FDDD A9 00 LDA #$00
FDDF 8D 79 02 STA x0279
FDE2 85 E3 STA SADDR
FDE4 85 E5 STA EADDR
FDE6 A8 TAY
FDE7 A2 C0 LDX #$C0
FDE9 86 E4 STX SADDR+1
FDEB A2 E8 LDX #$E8
FDED 86 E6 STX EADDR+1
FDEF 20 7C FD JSR iFD7C
FDF2 A2 F0 LDX #$F0
FDF4 86 E4 STX SADDR+1
FDF6 84 E6 STY EADDR+1
FDF8 20 7C FD JSR iFD7C
FDFB CC 79 02 CPY x0279
; fdfe: Endless loop.
FDFE D0 FE iFDFE BNE iFDFE
FE00 A0 FF LDY #$FF
FE02 84 02 STY x02
FE04 C8 INY
FE05 84 00 STY USR
FE07 A9 10 LDA #$10
FE09 85 01 STA x01
FE0B A2 20 LDX #$20
FE0D B1 00 iFE0D LDA (USR),Y
FE0F 45 02 EOR x02
FE11 91 00 STA (USR),Y
FE13 D1 00 CMP (USR),Y
FE15 F0 01 BEQ iFE18
FE17 C8 INY
FE18 E6 01 iFE18 INC x01
FE1A E4 01 CPX x01
FE1C D0 EF BNE iFE0D
FE1E C0 00 CPY #$00
FE20 F0 08 BEQ iFE2A
FE22 C0 10 CPY #$10
; fe24: Endless loop.
FE24 D0 FE iFE24 BNE iFE24
FE26 A2 10 LDX #$10
FE28 A0 00 LDY #$00
FE2A 4C 48 FD iFE2A JMP iFD48
FE2D E6 02 iFE2D INC x02
FE2F C4 02 CPY x02
FE31 F0 F7 BEQ iFE2A
FE33 8C 11 E8 STY PIA1_CRA
FE36 A9 0F LDA #$0F
FE38 8D 10 E8 STA PIA1_PA
FE3B A9 3C LDA #$3C
FE3D 8D 11 E8 STA PIA1_CRA
FE40 A9 FD LDA #$FD
FE42 A2 09 LDX #$09
FE44 8E 10 E8 iFE44 STX PIA1_PA
FE47 CD 12 E8 CMP PIA1_PB
; fe4a: Endless loop.
FE4A D0 FE iFE4A BNE iFE4A
FE4C 4A LSR
FE4D 90 02 BCC iFE51
FE4F 09 80 ORA #$80
FE51 CA iFE51 DEX
FE52 10 F0 BPL iFE44
FE54 8E 10 E8 STX PIA1_PA
FE57 EC 12 E8 CPX PIA1_PB
; fe5a: Endless loop.
FE5A D0 FE iFE5A BNE iFE5A
FE5C 8C 11 E8 STY PIA1_CRA
FE5F 8C 10 E8 STY PIA1_PA
FE62 A9 3C LDA #$3C
FE64 8D 11 E8 STA PIA1_CRA
FE67 A2 02 LDX #$02
FE69 20 1B FD JSR SETIRQV
FE6C A2 F7 LDX #$F7
FE6E 8E 40 E8 STX VIA_DRB
FE71 EE 11 E8 INC PIA1_CRA
FE74 2C 10 E8 BIT PIA1_PA
FE77 58 CLI
FE78 0E 40 E8 ASL VIA_DRB
FE7B 4E 40 E8 LSR VIA_DRB
; fe7e: Endless loop.
FE7E D0 FE iFE7E BNE iFE7E
FE80 CE 11 E8 DEC PIA1_CRA
; fe83: Endless loop.
FE83 10 FE iFE83 BPL iFE83
FE85 2C 10 E8 BIT PIA1_PA
FE88 A2 06 LDX #$06
FE8A 20 1B FD JSR SETIRQV
FE8D 2C 40 E8 BIT VIA_DRB
FE90 A9 90 LDA #$90
FE92 8D 4E E8 STA VIA_IER
FE95 58 CLI
FE96 0E 40 E8 ASL VIA_DRB
FE99 4E 40 E8 LSR VIA_DRB
; fe9c: Endless loop.
FE9C D0 FE iFE9C BNE iFE9C
FE9E 2C 4D E8 BIT VIA_IFR
; fea1: Endless loop.
FEA1 10 FE iFEA1 BPL iFEA1
FEA3 A9 7F LDA #$7F
FEA5 8D 4E E8 STA VIA_IER
FEA8 2C 40 E8 BIT VIA_DRB
FEAB 4C C3 FE JMP iFEC3
FEAE 2C 41 E8 iFEAE BIT VIA_DRA
FEB1 70 FB BVS iFEAE
FEB3 2C 4F E8 iFEB3 BIT VIA_ANH
FEB6 50 FB BVC iFEB3
FEB8 2C 4F E8 iFEB8 BIT VIA_ANH
FEBB 70 FB BVS iFEB8
FEBD AD 4D E8 LDA VIA_IFR
FEC0 29 02 AND #$02
FEC2 60 RTS
FEC3 A2 0A iFEC3 LDX #$0A
FEC5 2C 41 E8 iFEC5 BIT VIA_DRA
FEC8 10 FB BPL iFEC5
FECA 2C 41 E8 iFECA BIT VIA_DRA
FECD 30 FB BMI iFECA
FECF CA iFECF DEX
FED0 D0 FD BNE iFECF
FED2 2C 41 E8 BIT VIA_DRA
FED5 30 02 BMI iFED9
; fed7: Endless loop.
FED7 10 FE iFED7 BPL iFED7
FED9 EE FF FF iFED9 INC CPUIRQV+1
FEDC 2C 41 E8 BIT VIA_DRA
; fedf: Endless loop.
FEDF 30 FE iFEDF BMI iFEDF
FEE1 2C 41 E8 iFEE1 BIT VIA_DRA
FEE4 50 FB BVC iFEE1
FEE6 2C 41 E8 iFEE6 BIT VIA_DRA
FEE9 70 FB BVS iFEE6
FEEB 2C 41 E8 iFEEB BIT VIA_DRA
FEEE 50 FB BVC iFEEB
FEF0 2C 41 E8 iFEF0 BIT VIA_DRA
FEF3 70 FB BVS iFEF0
FEF5 20 F0 E1 JSR iE1F0
FEF8 20 AE FE JSR iFEAE
; fefb: Endless loop.
FEFB D0 FE iFEFB BNE iFEFB
FEFD A0 00 LDY #$00
FEFF A9 A0 iFEFF LDA #$A0
FF01 91 E0 STA (xE0),Y
FF03 20 AE FE JSR iFEAE
; ff06: Endless loop.
FF06 F0 FE iFF06 BEQ iFF06
FF08 A9 20 LDA #$20
FF0A 91 E0 STA (xE0),Y
FF0C 20 AE FE JSR iFEAE
; ff0f: Endless loop.
FF0F D0 FE iFF0F BNE iFF0F
FF11 C0 E7 CPY #$E7
FF13 D0 06 BNE iFF1B
FF15 A9 83 LDA #$83
FF17 C5 E1 CMP xE1
FF19 F0 09 BEQ iFF24
FF1B C8 iFF1B INY
FF1C D0 E1 BNE iFEFF
FF1E E6 E1 INC xE1
FF20 D0 DD BNE iFEFF
; ff22: Endless loop.
FF22 F0 FE iFF22 BEQ iFF22
FF24 98 iFF24 TYA
FF25 91 E0 STA (xE0),Y
FF27 88 DEY
FF28 C0 FF CPY #$FF
FF2A D0 F8 BNE iFF24
FF2C C6 E1 DEC xE1
FF2E A9 7F LDA #$7F
FF30 C5 E1 CMP xE1
FF32 D0 F0 BNE iFF24
FF34 A9 34 LDA #$34
FF36 8D 11 E8 KINCTIME STA PIA1_CRA
FF39 20 AE FE JSR iFEAE
; ff3c: Endless loop.
FF3C D0 FE iFF3C BNE iFF3C
FF3E A9 3C LDA #$3C
FF40 8D 11 E8 STA PIA1_CRA
FF43 A6 00 LDX USR
FF45 8E 22 E8 iFF45 STX PIA2_PB
FF48 EC 20 E8 CPX PIA2_PA
; ff4b: Endless loop.
FF4B D0 FE iFF4B BNE iFF4B
FF4D E8 INX
FF4E D0 F5 BNE iFF45
FF50 2C 20 E8 BIT PIA2_PA
FF53 A9 FB LDA #$FB
FF55 8D 40 E8 STA VIA_DRB
FF58 2C 21 E8 BIT PIA2_CRA
; ff5b: Endless loop.
FF5B 10 FE iFF5B BPL iFF5B
FF5D 2C 40 E8 BIT VIA_DRB
; ff60: Endless loop.
FF60 50 FE iFF60 BVC iFF60
FF62 4A LSR
FF63 8D 40 E8 STA VIA_DRB
FF66 2C 40 E8 BIT VIA_DRB
; ff69: Endless loop.
FF69 70 FE iFF69 BVS iFF69
; ff6b: Endless loop.
FF6B 10 FE iFF6B BPL iFF6B
FF6D A9 34 LDA #$34
FF6F 8D 23 E8 STA PIA2_CRB
FF72 AD 40 E8 LDA VIA_DRB
; ff75: Endless loop.
FF75 30 FE iFF75 BMI iFF75
FF77 4A LSR
; ff78: Endless loop.
FF78 90 FE iFF78 BCC iFF78
FF7A A9 34 LDA #$34
FF7C 8D 21 E8 STA PIA2_CRA
FF7F 4E 40 E8 LSR VIA_DRB
; ff82: Endless loop.
FF82 B0 FE iFF82 BCS iFF82
FF84 A9 02 LDA #$02
FF86 8D 43 E8 STA VIA_DDRA
FF89 8D 41 E8 STA VIA_DRA
FF8C 2C 10 E8 BIT PIA1_PA
; ff8f: Endless loop.
FF8F 50 FE iFF8F BVC iFF8F
FF91 8E 41 E8 STX VIA_DRA
FF94 2C 10 E8 BIT PIA1_PA
FF97 50 05 BVC iFF9E
FF99 EA NOP
FF9A EA NOP
FF9B 4C 9B FF iFF9B JMP iFF9B
FF9E 8E 11 E8 iFF9E STX PIA1_CRA
FFA1 A0 0F LDY #$0F
FFA3 8C 10 E8 STY PIA1_PA
FFA6 0A ASL
FFA7 8D 11 E8 STA PIA1_CRA
FFAA 49 FF EOR #$FF
FFAC 8D 10 E8 STA PIA1_PA
FFAF 4C AF FF iFFAF JMP iFFAF
FFB2 .byte $61, $00, $00, $00, $00, $00, $00, $00 ;A.......
FFBA .byte $00, $00, $00, $00, $00, $00 ;......
FFC0 4C 2A F5 OPEN JMP KOPEN ; Do Kernal Open
FFC3 4C C8 F2 CLOSE JMP KCLOSE ; Do Close
FFC6 4C 8B F7 CHKIN JMP KCHKIN
FFC9 4C DC F7 CKOUT JMP KCKOUT
FFCC 4C 7D F2 CLRCH JMP KCLRCH ; Do CLRCH, clear I/O
FFCF 4C DF F1 BASIN JMP KBASIN ; Do BASIN call
FFD2 4C 30 F2 BSOUT JMP KBSOUT ; Do kernel output
FFD5 4C 46 F3 LOAD JMP KLOAD
FFD8 4C 9E F6 SAVE JMP KSAVE
FFDB 4C BB F4 VERIFY JMP KVERIFY
FFDE 4C 95 F6 SYS JMP KSYS
FFE1 4C 39 F3 GETSTP JMP IECABORT
FFE4 4C CC F1 GET JMP KGET ; Do GET call
FFE7 4C A4 F2 CLALL JMP KCLALL
FFEA 4C 36 F7 INCTIME JMP iF736
FFED A9 3C iFFED LDA #$3C ; Cassette #1 Motor ?
FFEF 8D 13 E8 STA PIA1_CRB
FFF2 AD 40 E8 LDA VIA_DRB ; Cassette #2 Motor ?
FFF5 09 10 ORA #$10
FFF7 8D 40 E8 STA VIA_DRB
FFFA 60 CPUNMIV RTS
FFFB CA DEX
FFFC CPURESV .word RESET
FFFE CPUIRQV .word IRQ
xFFFF = * - 1 ; referenced;
; Misassembly source 4.07a 21 Feb 1998 Generated Sun Feb 22 17:16:33 MET 1998
Formatted to HTML by recomment 4.07a 21 Feb 1998 reassembler.
Misassembled from rom-1.bin by fachat@physik.tu-chemnitz.de using header file petrom-1.hdr in a 4-pass run at Sun Feb 22 17:16:33 MET 1998 .