ROM file: r2 Init Addr :BFF9 Run Addr :B000 Flags :0500 ( INIT&RUN BOOT ) A000 E4 D7 CPX $D7 ;FR0+3 A002 90 0B BCC $A00F A004 D0 08 BNE $A00E A006 A5 F5 LDA $F5 ;ZTEMP1 A008 C5 D6 CMP $D6 ;FR0+2 A00A 90 03 BCC $A00F A00C F0 01 BEQ $A00F A00E 60 RTS A00F 18 CLC A010 60 RTS A011 20 CB A7 JSR $A7CB A014 B0 F8 BCS $A00E A016 38 SEC A017 A5 D6 LDA $D6 ;FR0+2 A019 E5 F5 SBC $F5 ;ZTEMP1 A01B 48 PHA A01C A5 D7 LDA $D7 ;FR0+3 A01E E5 F6 SBC $F6 ;ZTEMP1+1 A020 A8 TAY A021 68 PLA A022 18 CLC A023 65 D4 ADC $D4 ;FR0 A025 85 D4 STA $D4 ;FR0 A027 98 TYA A028 65 D5 ADC $D5 ;FR0+1 A02A 85 D5 STA $D5 ;FR0+1 A02C A5 F5 LDA $F5 ;ZTEMP1 A02E 4C 59 A8 JMP $A859 A031 20 DC A3 JSR $A3DC A034 85 B0 STA $B0 A036 20 DF A7 JSR $A7DF A039 B0 BC BCS $9FF7 A03B 38 SEC A03C E9 01 SBC #$01 A03E B0 03 BCS $A043 A040 CA DEX A041 30 2D BMI $A070 A043 86 F6 STX $F6 ;ZTEMP1+1 A045 85 F5 STA $F5 ;ZTEMP1 A047 18 CLC A048 65 D4 ADC $D4 ;FR0 A04A 85 D4 STA $D4 ;FR0 A04C 8A TXA A04D 65 D5 ADC $D5 ;FR0+1 A04F 85 D5 STA $D5 ;FR0+1 A051 A5 D6 LDA $D6 ;FR0+2 A053 38 SEC A054 E5 F5 SBC $F5 ;ZTEMP1 A056 85 D6 STA $D6 ;FR0+2 A058 A5 D7 LDA $D7 ;FR0+3 A05A E5 F6 SBC $F6 ;ZTEMP1+1 A05C 85 D7 STA $D7 ;FR0+3 A05E A5 97 LDA $97 A060 85 F5 STA $F5 ;ZTEMP1 A062 A5 98 LDA $98 A064 85 F6 STA $F6 ;ZTEMP1+1 A066 05 97 ORA $97 A068 F0 8D BEQ $9FF7 A06A 20 DF A7 JSR $A7DF A06D 4C 57 A8 JMP $A857 A070 20 30 B6 JSR $B630 A073 20 CB A7 JSR $A7CB A076 B0 04 BCS $A07C A078 85 D6 STA $D6 ;FR0+2 A07A 86 D7 STX $D7 ;FR0+3 A07C 60 RTS A07D A0 00 LDY #$00 A07F A5 C3 LDA $C3 ;ERRSAVE A081 C4 D4 CPY $D4 ;FR0 A083 F0 17 BEQ $A09C A085 A4 BB LDY $BB ;STOPLN+1 A087 A5 BA LDA $BA ;STOPLN A089 90 11 BCC $A09C A08B 20 6E A2 JSR $A26E A08E A5 D6 LDA $D6 ;FR0+2 A090 A4 D7 LDY $D7 ;FR0+3 A092 4C 7D A8 JMP $A87D A095 20 B9 A3 JSR $A3B9 A098 A0 00 LDY #$00 A09A B1 D4 LDA ($D4),Y ;FR0 A09C 85 D4 STA $D4 ;FR0 A09E 84 D5 STY $D5 ;FR0+1 A0A0 20 AA D9 JSR $D9AA ;IFP A0A3 A9 00 LDA #$00 A0A5 85 D2 STA $D2 A0A7 60 RTS A0A8 38 SEC A0A9 AD E5 02 LDA $02E5 ;MEMTOP A0AC E5 90 SBC $90 ;TOPSTK A0AE AA TAX A0AF AD E6 02 LDA $02E6 ;MEMTOP+1 A0B2 E5 91 SBC $91 ;TOPSTK+1 A0B4 A8 TAY A0B5 8A TXA A0B6 4C 7D A8 JMP $A87D A0B9 20 B9 A3 JSR $A3B9 A0BC A5 D5 LDA $D5 ;FR0+1 A0BE D0 1D BNE $A0DD A0C0 A6 D4 LDX $D4 ;FR0 A0C2 F0 12 BEQ $A0D6 A0C4 E0 11 CPX #$11 A0C6 B0 15 BCS $A0DD A0C8 E0 02 CPX #$02 A0CA F0 06 BEQ $A0D2 A0CC B0 08 BCS $A0D6 A0CE A5 C9 LDA $C9 ;PTABW A0D0 90 07 BCC $A0D9 A0D2 A5 C2 LDA $C2 ;PROMPT A0D4 B0 03 BCS $A0D9 A0D6 BD 5D 05 LDA $055D,X A0D9 A0 00 LDY #$00 A0DB F0 BF BEQ $A09C A0DD 20 34 B6 JSR $B634 A0E0 20 B9 A3 JSR $A3B9 A0E3 A0 00 LDY #$00 A0E5 B1 D4 LDA ($D4),Y ;FR0 A0E7 C8 INY A0E8 AA TAX A0E9 B1 D4 LDA ($D4),Y ;FR0 A0EB A8 TAY A0EC 8A TXA A0ED 4C 7D A8 JMP $A87D A0F0 20 6C BA JSR $BA6C A0F3 A9 00 LDA #$00 A0F5 85 F2 STA $F2 ;CIX A0F7 20 13 B8 JSR $B813 A0FA 20 8C BA JSR $BA8C A0FD 90 A4 BCC $A0A3 A0FF 20 16 B6 JSR $B616 A102 20 6E A2 JSR $A26E A105 A0 00 LDY #$00 A107 B1 D4 LDA ($D4),Y ;FR0 A109 4C 7D A8 JMP $A87D A10C 20 6E A2 JSR $A26E A10F 4C 81 A8 JMP $A881 A112 20 74 BB JSR $BB74 A115 4C FC A8 JMP $A8FC A118 20 E6 D8 JSR $D8E6 ;FASC A11B A5 F3 LDA $F3 ;INBUFF A11D 85 D4 STA $D4 ;FR0 A11F A5 F4 LDA $F4 ;INBUFF+1 A121 85 D5 STA $D5 ;FR0+1 A123 A0 FF LDY #$FF A125 C8 INY A126 B1 F3 LDA ($F3),Y ;INBUFF A128 10 FB BPL $A125 A12A 29 7F AND #$7F A12C 91 F3 STA ($F3),Y ;INBUFF A12E C8 INY A12F 84 D6 STY $D6 ;FR0+2 A131 D0 14 BNE $A147 A133 20 B9 A3 JSR $A3B9 A136 A5 D4 LDA $D4 ;FR0 A138 8D C0 05 STA $05C0 A13B A9 05 LDA #$05 A13D 85 D5 STA $D5 ;FR0+1 A13F A9 C0 LDA #$C0 A141 85 D4 STA $D4 ;FR0 A143 A9 01 LDA #$01 A145 85 D6 STA $D6 ;FR0+2 A147 A9 00 LDA #$00 A149 85 D7 STA $D7 ;FR0+3 A14B 85 D3 STA $D3 A14D A9 83 LDA #$83 A14F 85 D2 STA $D2 A151 60 RTS A152 20 B9 A3 JSR $A3B9 A155 A5 D4 LDA $D4 ;FR0 A157 85 BC STA $BC A159 85 DC STA $DC ;FRE+2 A15B A5 D5 LDA $D5 ;FR0+1 A15D 85 BD STA $BD A15F 85 DD STA $DD ;FRE+3 A161 20 6B A2 JSR $A26B A164 20 B6 DD JSR $DDB6 ;FMOVE A167 20 6B A2 JSR $A26B A16A 18 CLC A16B A5 D4 LDA $D4 ;FR0 A16D 65 BC ADC $BC A16F 85 D4 STA $D4 ;FR0 A171 85 E6 STA $E6 ;FR2 A173 A5 D5 LDA $D5 ;FR0+1 A175 65 BD ADC $BD A177 85 D5 STA $D5 ;FR0+1 A179 85 E7 STA $E7 ;FR2+1 A17B B0 24 BCS $A1A1 A17D 38 SEC A17E A5 D6 LDA $D6 ;FR0+2 A180 E5 BC SBC $BC A182 85 D6 STA $D6 ;FR0+2 A184 A5 D7 LDA $D7 ;FR0+3 A186 E5 BD SBC $BD A188 85 D7 STA $D7 ;FR0+3 A18A 90 15 BCC $A1A1 A18C D0 04 BNE $A192 A18E A5 D6 LDA $D6 ;FR0+2 A190 F0 0F BEQ $A1A1 A192 38 SEC A193 A5 D6 LDA $D6 ;FR0+2 A195 E5 E2 SBC $E2 ;FR1+2 A197 85 BC STA $BC A199 A5 D7 LDA $D7 ;FR0+3 A19B E5 E3 SBC $E3 ;FR1+3 A19D 85 BD STA $BD A19F B0 03 BCS $A1A4 A1A1 4C 1B A3 JMP $A31B A1A4 A0 00 LDY #$00 A1A6 B1 E0 LDA ($E0),Y ;FR1 A1A8 D1 D4 CMP ($D4),Y ;FR0 A1AA D0 2E BNE $A1DA A1AC A5 E0 LDA $E0 ;FR1 A1AE 85 EA STA $EA ;FR2+4 A1B0 A5 E1 LDA $E1 ;FR1+1 A1B2 85 EB STA $EB ;FR2+5 A1B4 A5 D4 LDA $D4 ;FR0 A1B6 85 E8 STA $E8 ;FR2+2 A1B8 A5 D5 LDA $D5 ;FR0+1 A1BA 85 E9 STA $E9 ;FR2+3 A1BC A5 E3 LDA $E3 ;FR1+3 A1BE 85 DA STA $DA ;FRE A1C0 A6 E2 LDX $E2 ;FR1+2 A1C2 E8 INX A1C3 CA DEX A1C4 D0 04 BNE $A1CA A1C6 C6 DA DEC $DA ;FRE A1C8 30 24 BMI $A1EE A1CA B1 EA LDA ($EA),Y ;FR2+4 A1CC D1 E8 CMP ($E8),Y ;FR2+2 A1CE D0 0A BNE $A1DA A1D0 C8 INY A1D1 D0 F0 BNE $A1C3 A1D3 E6 E9 INC $E9 ;FR2+3 A1D5 E6 EB INC $EB ;FR2+5 A1D7 4C A4 A9 JMP $A9A4 A1DA E6 D4 INC $D4 ;FR0 A1DC D0 02 BNE $A1E0 A1DE E6 D5 INC $D5 ;FR0+1 A1E0 A5 BC LDA $BC A1E2 C6 BC DEC $BC A1E4 AA TAX A1E5 D0 04 BNE $A1EB A1E7 C6 BD DEC $BD A1E9 30 B6 BMI $A1A1 A1EB 4C 85 A9 JMP $A985 A1EE 38 SEC A1EF A5 D4 LDA $D4 ;FR0 A1F1 E5 E6 SBC $E6 ;FR2 A1F3 AA TAX A1F4 A5 D5 LDA $D5 ;FR0+1 A1F6 E5 E7 SBC $E7 ;FR2+1 A1F8 A8 TAY A1F9 E8 INX A1FA D0 01 BNE $A1FD A1FC C8 INY A1FD 18 CLC A1FE 8A TXA A1FF 65 DC ADC $DC ;FRE+2 A201 85 D4 STA $D4 ;FR0 A203 98 TYA A204 65 DD ADC $DD ;FRE+3 A206 85 D5 STA $D5 ;FR0+1 A208 4C 81 A8 JMP $A881 A20B A2 03 LDX #$03 A20D A0 AA LDY #$AA A20F 20 98 DD JSR $DD98 ;FLD1R A212 AC 0A D2 LDY $D20A ;RANDOM A215 84 D4 STY $D4 ;FR0 A217 AC 0A D2 LDY $D20A ;RANDOM A21A 84 D5 STY $D5 ;FR0+1 A21C 20 AA D9 JSR $D9AA ;IFP A21F 4C B0 A3 JMP $A3B0 A222 42 ??? A223 06 55 ASL $55 ;COLCRS A225 36 00 ROL $00,X A227 00 BRK A228 A5 D4 LDA $D4 ;FR0 A22A 29 7F AND #$7F A22C 85 D4 STA $D4 ;FR0 A22E 60 RTS A22F 20 62 B7 JSR $B762 A232 20 19 AA JSR $AA19 A235 4C 81 A8 JMP $A881 A238 A5 B0 LDA $B0 A23A 85 C0 STA $C0 ;IOCMD A23C 20 78 B7 JSR $B778 A23F 20 B9 A3 JSR $A3B9 A242 C6 C0 DEC $C0 ;IOCMD A244 30 09 BMI $A24F A246 A5 D4 LDA $D4 ;FR0 A248 48 PHA A249 A5 D5 LDA $D5 ;FR0+1 A24B 48 PHA A24C 4C 1D AA JMP $AA1D A24F A5 B0 LDA $B0 A251 AE 65 05 LDX $0565 A254 F0 01 BEQ $A257 A256 48 PHA A257 6C D4 00 JMP ($00D4) ;FR0 A25A A5 D4 LDA $D4 ;FR0 A25C 29 7F AND #$7F A25E 38 SEC A25F E9 3F SBC #$3F A261 10 02 BPL $A265 A263 A9 00 LDA #$00 A265 AA TAX A266 A9 00 LDA #$00 A268 A8 TAY A269 E0 05 CPX #$05 A26B B0 07 BCS $A274 A26D 15 D5 ORA $D5,X ;FR0+1 A26F 94 D5 STY $D5,X ;FR0+1 A271 E8 INX A272 D0 F5 BNE $A269 A274 A6 D4 LDX $D4 ;FR0 A276 10 13 BPL $A28B A278 AA TAX A279 F0 10 BEQ $A28B A27B A2 E0 LDX #$E0 A27D 20 46 DA JSR $DA46 ;ZF1 A280 A9 C0 LDA #$C0 A282 85 E0 STA $E0 ;FR1 A284 A9 01 LDA #$01 A286 85 E1 STA $E1 ;FR1+1 A288 4C 8C A3 JMP $A38C A28B 4C 00 DC JMP $DC00 A28E 20 75 AA JSR $AA75 A291 4C 81 A8 JMP $A881 A294 20 B9 A3 JSR $A3B9 A297 A6 B0 LDX $B0 A299 F0 46 BEQ $A2E1 A29B CA DEX A29C 86 B0 STX $B0 A29E A6 D5 LDX $D5 ;FR0+1 A2A0 A4 D4 LDY $D4 ;FR0 A2A2 C8 INY A2A3 D0 01 BNE $A2A6 A2A5 E8 INX A2A6 84 E0 STY $E0 ;FR1 A2A8 86 E1 STX $E1 ;FR1+1 A2AA 20 78 B7 JSR $B778 A2AD 20 B9 A3 JSR $A3B9 A2B0 A5 D4 LDA $D4 ;FR0 A2B2 85 E2 STA $E2 ;FR1+2 A2B4 A5 D5 LDA $D5 ;FR0+1 A2B6 85 E3 STA $E3 ;FR1+3 A2B8 38 SEC A2B9 A5 E0 LDA $E0 ;FR1 A2BB E5 E2 SBC $E2 ;FR1+2 A2BD 85 D4 STA $D4 ;FR0 A2BF A8 TAY A2C0 A5 E1 LDA $E1 ;FR1+1 A2C2 E5 E3 SBC $E3 ;FR1+3 A2C4 85 D5 STA $D5 ;FR0+1 A2C6 30 16 BMI $A2DE A2C8 D0 03 BNE $A2CD A2CA 98 TYA A2CB F0 11 BEQ $A2DE A2CD 20 C2 AA JSR $AAC2 A2D0 18 CLC A2D1 A5 D4 LDA $D4 ;FR0 A2D3 65 E2 ADC $E2 ;FR1+2 A2D5 85 D4 STA $D4 ;FR0 A2D7 A5 D5 LDA $D5 ;FR0+1 A2D9 65 E3 ADC $E3 ;FR1+3 A2DB 85 D5 STA $D5 ;FR0+1 A2DD 60 RTS A2DE 20 34 B6 JSR $B634 A2E1 A2 01 LDX #$01 A2E3 A0 07 LDY #$07 A2E5 A5 D5 LDA $D5 ;FR0+1 A2E7 D0 07 BNE $A2F0 A2E9 05 D4 ORA $D4 ;FR0 A2EB F0 24 BEQ $A311 A2ED CA DEX A2EE F0 0B BEQ $A2FB A2F0 AD 0A D2 LDA $D20A ;RANDOM A2F3 C5 D4 CMP $D4 ;FR0 A2F5 85 D4 STA $D4 ;FR0 A2F7 B0 02 BCS $A2FB A2F9 E6 D5 INC $D5 ;FR0+1 A2FB B9 F3 AA LDA $AAF3,Y A2FE D5 D4 CMP $D4,X ;FR0 A300 B0 03 BCS $A305 A302 88 DEY A303 10 F6 BPL $A2FB A305 AD 0A D2 LDA $D20A ;RANDOM A308 39 F3 AA AND $AAF3,Y A30B D5 D4 CMP $D4,X ;FR0 A30D B0 F6 BCS $A305 A30F 95 D4 STA $D4,X ;FR0 A311 60 RTS A312 07 ??? A313 FF ??? A314 7F ??? A315 03 ??? A316 3F ??? A317 0F ??? A318 1F ??? A319 01 38 ORA ($38,X) ;BUFRFL A31B 60 RTS A31C A9 04 LDA #$04 A31E 24 D4 BIT $D4 ;FR0 A320 10 05 BPL $A327 A322 4A LSR A323 90 02 BCC $A327 A325 A9 01 LDA #$01 A327 85 F0 STA $F0 ;FCHRFLG A329 A5 D4 LDA $D4 ;FR0 A32B 29 7F AND #$7F A32D 85 D4 STA $D4 ;FR0 A32F A9 B4 LDA #$B4 A331 18 CLC A332 65 FB ADC $FB ;RADFLG A334 AA TAX A335 A0 AB LDY #$AB A337 20 98 DD JSR $DD98 ;FLD1R A33A 20 28 DB JSR $DB28 ;FDIV A33D 90 01 BCC $A340 A33F 60 RTS A340 A5 D4 LDA $D4 ;FR0 A342 29 7F AND #$7F A344 38 SEC A345 E9 40 SBC #$40 A347 30 2B BMI $A374 A349 C9 04 CMP #$04 A34B 10 CD BPL $A31A A34D AA TAX A34E B5 D5 LDA $D5,X ;FR0+1 A350 85 F1 STA $F1 ;DIGRT A352 29 10 AND #$10 A354 F0 02 BEQ $A358 A356 A9 02 LDA #$02 A358 18 CLC A359 65 F1 ADC $F1 ;DIGRT A35B 29 03 AND #$03 A35D 65 F0 ADC $F0 ;FCHRFLG A35F 85 F0 STA $F0 ;FCHRFLG A361 86 F1 STX $F1 ;DIGRT A363 20 B6 DD JSR $DDB6 ;FMOVE A366 A6 F1 LDX $F1 ;DIGRT A368 A9 00 LDA #$00 A36A 95 E2 STA $E2,X ;FR1+2 A36C E8 INX A36D E0 03 CPX #$03 A36F 90 F9 BCC $A36A A371 20 60 DA JSR $DA60 ;FSUB A374 46 F0 LSR $F0 ;FCHRFLG A376 90 0D BCC $A385 A378 20 B6 DD JSR $DDB6 ;FMOVE A37B A2 C6 LDX #$C6 A37D A0 AB LDY #$AB A37F 20 89 DD JSR $DD89 ;FLD0R A382 20 60 DA JSR $DA60 ;FSUB A385 A2 E6 LDX #$E6 A387 A0 05 LDY #$05 A389 20 A7 DD JSR $DDA7 ;FST0R A38C 20 B6 DD JSR $DDB6 ;FMOVE A38F 20 DB DA JSR $DADB ;FMUL A392 B0 86 BCS $A31A A394 A9 06 LDA #$06 A396 A2 96 LDX #$96 A398 A0 AB LDY #$AB A39A 20 40 DD JSR $DD40 ;PLYEVL A39D A2 E6 LDX #$E6 A39F A0 05 LDY #$05 A3A1 20 98 DD JSR $DD98 ;FLD1R A3A4 20 DB DA JSR $DADB ;FMUL A3A7 46 F0 LSR $F0 ;FCHRFLG A3A9 90 09 BCC $A3B4 A3AB 18 CLC A3AC A5 D4 LDA $D4 ;FR0 A3AE F0 04 BEQ $A3B4 A3B0 49 80 EOR #$80 A3B2 85 D4 STA $D4 ;FR0 A3B4 60 RTS A3B5 BD 03 55 LDA $5503,X A3B8 14 ??? A3B9 99 39 3E STA $3E39,Y A3BC 01 60 ORA ($60,X) ;FKDEF A3BE 44 ??? A3BF 27 ??? A3C0 52 ??? A3C1 BE 46 81 LDX $8146,Y A3C4 75 43 ADC $43,X ;FMSZPG A3C6 55 3F EOR $3F,X ;FEOF A3C8 07 ??? A3C9 96 92 STX $92,Y ;MEOLFLG A3CB 62 ??? A3CC 39 BF 64 AND $64BF,Y A3CF 59 64 08 EOR $0864,Y A3D2 67 ??? A3D3 40 RTI A3D4 01 57 ORA ($57,X) ;DINDEX A3D6 07 ??? A3D7 96 32 STX $32,Y ;BUFRLO A3D9 40 RTI A3DA 90 00 BCC $A3DC A3DC 00 BRK A3DD 00 BRK A3DE 00 BRK A3DF 3F ??? A3E0 01 74 ORA ($74,X) ;ENDPT A3E2 53 ??? A3E3 29 25 AND #$25 A3E5 40 RTI A3E6 01 00 ORA ($00,X) A3E8 00 BRK A3E9 00 BRK A3EA 00 BRK A3EB A9 00 LDA #$00 A3ED 85 F0 STA $F0 ;FCHRFLG A3EF 85 F1 STA $F1 ;DIGRT A3F1 A5 D4 LDA $D4 ;FR0 A3F3 29 7F AND #$7F A3F5 C9 40 CMP #$40 A3F7 30 15 BMI $A40E A3F9 A5 D4 LDA $D4 ;FR0 A3FB 29 80 AND #$80 A3FD 85 F0 STA $F0 ;FCHRFLG A3FF E6 F1 INC $F1 ;DIGRT A401 A9 7F LDA #$7F A403 25 D4 AND $D4 ;FR0 A405 85 D4 STA $D4 ;FR0 A407 A2 EA LDX #$EA A409 A0 DF LDY #$DF A40B 20 95 DE JSR $DE95 A40E A2 E6 LDX #$E6 A410 A0 05 LDY #$05 A412 20 A7 DD JSR $DDA7 ;FST0R A415 20 B6 DD JSR $DDB6 ;FMOVE A418 20 DB DA JSR $DADB ;FMUL A41B B0 39 BCS $A456 A41D A9 0B LDA #$0B A41F A2 AE LDX #$AE A421 A0 DF LDY #$DF A423 20 40 DD JSR $DD40 ;PLYEVL A426 B0 2E BCS $A456 A428 A2 E6 LDX #$E6 A42A A0 05 LDY #$05 A42C 20 98 DD JSR $DD98 ;FLD1R A42F 20 DB DA JSR $DADB ;FMUL A432 B0 22 BCS $A456 A434 A5 F1 LDA $F1 ;DIGRT A436 F0 10 BEQ $A448 A438 A2 F0 LDX #$F0 A43A A0 DF LDY #$DF A43C 20 98 DD JSR $DD98 ;FLD1R A43F 20 66 DA JSR $DA66 ;FADD A442 A5 F0 LDA $F0 ;FCHRFLG A444 05 D4 ORA $D4 ;FR0 A446 85 D4 STA $D4 ;FR0 A448 A5 FB LDA $FB ;RADFLG A44A F0 0A BEQ $A456 A44C A2 C0 LDX #$C0 A44E A0 AB LDY #$AB A450 20 98 DD JSR $DD98 ;FLD1R A453 20 28 DB JSR $DB28 ;FDIV A456 60 RTS A457 38 SEC A458 60 RTS A459 A9 00 LDA #$00 A45B 85 F1 STA $F1 ;DIGRT A45D A5 D4 LDA $D4 ;FR0 A45F 30 F6 BMI $A457 A461 C9 3F CMP #$3F A463 F0 17 BEQ $A47C A465 18 CLC A466 69 01 ADC #$01 A468 85 F1 STA $F1 ;DIGRT A46A 85 E0 STA $E0 ;FR1 A46C A9 01 LDA #$01 A46E 85 E1 STA $E1 ;FR1+1 A470 A2 04 LDX #$04 A472 A9 00 LDA #$00 A474 95 E2 STA $E2,X ;FR1+2 A476 CA DEX A477 10 FB BPL $A474 A479 20 28 DB JSR $DB28 ;FDIV A47C A9 06 LDA #$06 A47E 85 EF STA $EF ;ESIGN A480 A2 E6 LDX #$E6 A482 A0 05 LDY #$05 A484 20 A7 DD JSR $DDA7 ;FST0R A487 20 B6 DD JSR $DDB6 ;FMOVE A48A A2 E8 LDX #$E8 A48C A0 AC LDY #$AC A48E 20 89 DD JSR $DD89 ;FLD0R A491 20 60 DA JSR $DA60 ;FSUB A494 A2 E6 LDX #$E6 A496 A0 05 LDY #$05 A498 20 98 DD JSR $DD98 ;FLD1R A49B 20 DB DA JSR $DADB ;FMUL A49E A2 EC LDX #$EC A4A0 A0 05 LDY #$05 A4A2 20 A7 DD JSR $DDA7 ;FST0R A4A5 20 B6 DD JSR $DDB6 ;FMOVE A4A8 A2 E6 LDX #$E6 A4AA A0 05 LDY #$05 A4AC 20 89 DD JSR $DD89 ;FLD0R A4AF 20 28 DB JSR $DB28 ;FDIV A4B2 A2 EC LDX #$EC A4B4 A0 05 LDY #$05 A4B6 20 98 DD JSR $DD98 ;FLD1R A4B9 20 60 DA JSR $DA60 ;FSUB A4BC A2 6C LDX #$6C A4BE A0 DF LDY #$DF A4C0 20 98 DD JSR $DD98 ;FLD1R A4C3 20 DB DA JSR $DADB ;FMUL A4C6 A5 D4 LDA $D4 ;FR0 A4C8 F0 0E BEQ $A4D8 A4CA A2 EC LDX #$EC A4CC A0 05 LDY #$05 A4CE 20 98 DD JSR $DD98 ;FLD1R A4D1 20 66 DA JSR $DA66 ;FADD A4D4 C6 EF DEC $EF ;ESIGN A4D6 10 C6 BPL $A49E A4D8 A2 EC LDX #$EC A4DA A0 05 LDY #$05 A4DC 20 89 DD JSR $DD89 ;FLD0R A4DF A5 F1 LDA $F1 ;DIGRT A4E1 F0 23 BEQ $A506 A4E3 38 SEC A4E4 E9 40 SBC #$40 A4E6 18 CLC A4E7 6A ROR A4E8 18 CLC A4E9 69 40 ADC #$40 A4EB 29 7F AND #$7F A4ED 85 E0 STA $E0 ;FR1 A4EF A5 F1 LDA $F1 ;DIGRT A4F1 6A ROR A4F2 A9 01 LDA #$01 A4F4 90 02 BCC $A4F8 A4F6 A9 10 LDA #$10 A4F8 85 E1 STA $E1 ;FR1+1 A4FA A2 04 LDX #$04 A4FC A9 00 LDA #$00 A4FE 95 E2 STA $E2,X ;FR1+2 A500 CA DEX A501 10 FB BPL $A4FE A503 20 DB DA JSR $DADB ;FMUL A506 60 RTS A507 40 RTI A508 02 ??? A509 00 BRK A50A 00 BRK A50B 00 BRK A50C 00 BRK A50D 20 FD AA JSR $AAFD A510 B0 25 BCS $A537 A512 60 RTS A513 20 06 AB JSR $AB06 A516 B0 1F BCS $A537 A518 60 RTS A519 20 CC AB JSR $ABCC A51C B0 19 BCS $A537 A51E 60 RTS A51F 20 CD DE JSR $DECD ;LOG A522 B0 13 BCS $A537 A524 60 RTS A525 20 D1 DE JSR $DED1 ;LOG10 A528 B0 0D BCS $A537 A52A 60 RTS A52B 20 C0 DD JSR $DDC0 ;EXP A52E B0 07 BCS $A537 A530 60 RTS A531 20 3A AC JSR $AC3A A534 B0 01 BCS $A537 A536 60 RTS A537 20 34 B6 JSR $B634 A53A 20 B6 DD JSR $DDB6 ;FMOVE A53D 20 78 B7 JSR $B778 A540 A5 D4 LDA $D4 ;FR0 A542 D0 0A BNE $A54E A544 A5 E0 LDA $E0 ;FR1 A546 F0 03 BEQ $A54B A548 30 ED BMI $A537 A54A 60 RTS A54B 4C 20 A3 JMP $A320 A54E 10 30 BPL $A580 A550 29 7F AND #$7F A552 85 D4 STA $D4 ;FR0 A554 A5 E0 LDA $E0 ;FR1 A556 29 7F AND #$7F A558 38 SEC A559 E9 40 SBC #$40 A55B 30 DA BMI $A537 A55D A2 06 LDX #$06 A55F C9 05 CMP #$05 A561 90 04 BCC $A567 A563 A0 01 LDY #$01 A565 D0 08 BNE $A56F A567 85 F5 STA $F5 ;ZTEMP1 A569 38 SEC A56A A9 05 LDA #$05 A56C E5 F5 SBC $F5 ;ZTEMP1 A56E A8 TAY A56F CA DEX A570 88 DEY A571 F0 06 BEQ $A579 A573 B5 E0 LDA $E0,X ;FR1 A575 D0 C0 BNE $A537 A577 F0 F6 BEQ $A56F A579 A0 80 LDY #$80 A57B B5 E0 LDA $E0,X ;FR1 A57D 4A LSR A57E B0 02 BCS $A582 A580 A0 00 LDY #$00 A582 98 TYA A583 48 PHA A584 A2 05 LDX #$05 A586 B5 E0 LDA $E0,X ;FR1 A588 48 PHA A589 CA DEX A58A 10 FA BPL $A586 A58C 20 D1 DE JSR $DED1 ;LOG10 A58F B0 A6 BCS $A537 A591 A2 00 LDX #$00 A593 A0 05 LDY #$05 A595 68 PLA A596 95 E0 STA $E0,X ;FR1 A598 E8 INX A599 88 DEY A59A 10 F9 BPL $A595 A59C 20 A4 A3 JSR $A3A4 A59F 20 CC DD JSR $DDCC ;EXP10 A5A2 B0 08 BCS $A5AC A5A4 68 PLA A5A5 10 8F BPL $A536 A5A7 05 D4 ORA $D4 ;FR0 A5A9 85 D4 STA $D4 ;FR0 A5AB 60 RTS A5AC 20 24 B6 JSR $B624 A5AF 20 B5 AD JSR $ADB5 A5B2 2C 34 AE BIT $AE34 A5B5 F0 15 BEQ $A5CC A5B7 2C 35 AE BIT $AE35 A5BA F0 13 BEQ $A5CF A5BC 4C 1B A3 JMP $A31B A5BF 20 B5 AD JSR $ADB5 A5C2 2C 36 AE BIT $AE36 A5C5 F0 08 BEQ $A5CF A5C7 2C 37 AE BIT $AE37 A5CA D0 F0 BNE $A5BC A5CC 4C 20 A3 JMP $A320 A5CF A9 C0 LDA #$C0 A5D1 4C 22 A3 JMP $A322 A5D4 20 B9 A3 JSR $A3B9 A5D7 A5 D4 LDA $D4 ;FR0 A5D9 29 03 AND #$03 A5DB AA TAX A5DC BD 78 02 LDA $0278,X ;STICK0 A5DF 60 RTS A5E0 A9 3C LDA #$3C A5E2 D0 0A BNE $A5EE A5E4 A9 44 LDA #$44 A5E6 D0 06 BNE $A5EE A5E8 A9 48 LDA #$48 A5EA D0 02 BNE $A5EE A5EC A9 50 LDA #$50 A5EE 48 PHA A5EF 20 B9 A3 JSR $A3B9 A5F2 A5 D5 LDA $D5 ;FR0+1 A5F4 D0 0E BNE $A604 A5F6 A5 D4 LDA $D4 ;FR0 A5F8 68 PLA A5F9 65 D4 ADC $D4 ;FR0 A5FB AA TAX A5FC BD 34 02 LDA $0234,X ;LPENH A5FF A0 00 LDY #$00 A601 4C 7D A8 JMP $A87D A604 20 34 B6 JSR $B634 A607 20 B9 A3 JSR $A3B9 A60A A5 D4 LDA $D4 ;FR0 A60C 29 01 AND #$01 A60E 90 EB BCC $A5FB A610 20 3F A3 JSR $A33F A613 A5 D4 LDA $D4 ;FR0 A615 86 D4 STX $D4 ;FR0 A617 AA TAX A618 05 D4 ORA $D4 ;FR0 A61A D0 03 BNE $A61F A61C 8D 1E D0 STA $D01E ;HITCLR A61F 8A TXA A620 29 03 AND #$03 A622 85 E0 STA $E0 ;FR1 A624 8A TXA A625 A2 04 LDX #$04 A627 29 FC AND #$FC A629 F0 02 BEQ $A62D A62B A2 00 LDX #$00 A62D 8A TXA A62E 05 E0 ORA $E0 ;FR1 A630 85 E0 STA $E0 ;FR1 A632 A5 D4 LDA $D4 ;FR0 A634 A2 08 LDX #$08 A636 29 FC AND #$FC A638 F0 02 BEQ $A63C A63A A2 00 LDX #$00 A63C A5 D4 LDA $D4 ;FR0 A63E 29 03 AND #$03 A640 A8 TAY A641 8A TXA A642 05 E0 ORA $E0 ;FR1 A644 AA TAX A645 BD 00 D0 LDA $D000,X ;M0PF A648 39 34 AE AND $AE34,Y A64B F0 03 BEQ $A650 A64D 4C 20 A3 JMP $A320 A650 4C 1B A3 JMP $A31B A653 01 02 ORA ($02,X) ;CASINI A655 04 ??? A656 08 PHP A657 20 B9 A3 JSR $A3B9 A65A A5 D4 LDA $D4 ;FR0 A65C 20 D7 B5 JSR $B5D7 A65F 84 D4 STY $D4 ;FR0 A661 85 D5 STA $D5 ;FR0+1 A663 4C 81 A8 JMP $A881 A666 A9 FF LDA #$FF A668 8D 59 05 STA $0559 A66B 20 B9 A3 JSR $A3B9 A66E 20 42 B8 JSR $B842 A671 4C 1B A3 JMP $A31B A674 A9 04 LDA #$04 A676 85 E5 STA $E5 ;FR1+5 A678 A5 88 LDA $88 ;STMTAB A67A 85 8A STA $8A ;STMCUR A67C A5 89 LDA $89 ;STMTAB+1 A67E 85 8B STA $8B ;STMCUR+1 A680 4C AC AE JMP $AEAC A683 20 5C BA JSR $BA5C A686 A4 A7 LDY $A7 A688 C4 9F CPY $9F A68A B0 3A BCS $A6C6 A68C B1 8A LDA ($8A),Y ;STMCUR A68E 85 A7 STA $A7 A690 C8 INY A691 B1 8A LDA ($8A),Y ;STMCUR A693 C9 02 CMP #$02 A695 90 2F BCC $A6C6 A697 C8 INY A698 84 A8 STY $A8 A69A B1 8A LDA ($8A),Y ;STMCUR A69C 10 3C BPL $A6DA A69E C5 E4 CMP $E4 ;FR1+4 A6A0 D0 4B BNE $A6ED A6A2 20 BE B6 JSR $B6BE A6A5 20 BE B6 JSR $B6BE A6A8 20 40 B6 JSR $B640 A6AB C6 E5 DEC $E5 ;FR1+5 A6AD D0 09 BNE $A6B8 A6AF 20 C1 B8 JSR $B8C1 A6B2 A9 04 LDA #$04 A6B4 85 E5 STA $E5 ;FR1+5 A6B6 D0 0E BNE $A6C6 A6B8 38 SEC A6B9 A9 06 LDA #$06 A6BB E5 AF SBC $AF A6BD 85 AF STA $AF A6BF 20 BE B6 JSR $B6BE A6C2 C6 AF DEC $AF A6C4 D0 F9 BNE $A6BF A6C6 A5 9F LDA $9F A6C8 20 90 B4 JSR $B490 A6CB 20 9F B4 JSR $B49F A6CE 10 B3 BPL $A683 A6D0 A9 04 LDA #$04 A6D2 C5 E5 CMP $E5 ;FR1+5 A6D4 F0 03 BEQ $A6D9 A6D6 20 C1 B8 JSR $B8C1 A6D9 60 RTS A6DA C9 0F CMP #$0F A6DC D0 07 BNE $A6E5 A6DE C8 INY A6DF 98 TYA A6E0 71 8A ADC ($8A),Y ;STMCUR A6E2 A8 TAY A6E3 D0 B5 BNE $A69A A6E5 B0 06 BCS $A6ED A6E7 98 TYA A6E8 69 07 ADC #$07 A6EA A8 TAY A6EB D0 AD BNE $A69A A6ED C8 INY A6EE C4 A7 CPY $A7 A6F0 90 A8 BCC $A69A A6F2 4C 67 AE JMP $AE67 A6F5 A9 00 LDA #$00 A6F7 85 9B STA $9B A6F9 85 9C STA $9C A6FB 86 A1 STX $A1 A6FD 84 A0 STY $A0 A6FF 20 60 B4 JSR $B460 A702 B0 27 BCS $A72B A704 24 B9 BIT $B9 A706 30 2C BMI $A734 A708 20 05 BA JSR $BA05 A70B A5 BD LDA $BD A70D 85 D5 STA $D5 ;FR0+1 A70F A5 BC LDA $BC A711 85 D4 STA $D4 ;FR0 A713 20 1E AF JSR $AF1E A716 18 CLC A717 A5 D4 LDA $D4 ;FR0 A719 65 B7 ADC $B7 ;DATALN A71B A8 TAY A71C A5 D5 LDA $D5 ;FR0+1 A71E 65 B8 ADC $B8 ;DATALN+1 A720 AA TAX A721 30 08 BMI $A72B A723 A5 D6 LDA $D6 ;FR0+2 A725 05 D7 ORA $D7 ;FR0+3 A727 D0 02 BNE $A72B A729 18 CLC A72A 60 RTS A72B 20 05 BA JSR $BA05 A72E A6 A1 LDX $A1 A730 A4 A0 LDY $A0 A732 38 SEC A733 60 RTS A734 A6 8B LDX $8B ;STMCUR+1 A736 A4 8A LDY $8A ;STMCUR A738 20 05 BA JSR $BA05 A73B 18 CLC A73C 60 RTS A73D A2 00 LDX #$00 A73F 86 D6 STX $D6 ;FR0+2 A741 86 D7 STX $D7 ;FR0+3 A743 A0 10 LDY #$10 A745 46 D7 LSR $D7 ;FR0+3 A747 66 D6 ROR $D6 ;FR0+2 A749 66 D5 ROR $D5 ;FR0+1 A74B 66 D4 ROR $D4 ;FR0 A74D 88 DEY A74E 30 10 BMI $A760 A750 90 F3 BCC $A745 A752 18 CLC A753 A2 FE LDX #$FE A755 B5 9D LDA $9D,X A757 75 D8 ADC $D8,X ;FR0+4 A759 95 D8 STA $D8,X ;FR0+4 A75B E8 INX A75C D0 F7 BNE $A755 A75E F0 E5 BEQ $A745 A760 60 RTS A761 AF ??? A762 42 ??? A763 FF ??? A764 FF ??? A765 FF ??? A766 FF ??? A767 FF ??? A768 FF ??? A769 FF ??? A76A FF ??? A76B FF ??? A76C FF ??? A76D FF ??? A76E FF ??? A76F FF ??? A770 FF ??? A771 FF ??? A772 FF ??? A773 FF ??? A774 FF ??? A775 FF ??? A776 FF ??? A777 FF ??? A778 FF ??? A779 FF ??? A77A FF ??? A77B FF ??? A77C FF ??? A77D FF ??? A77E FF ??? A77F FF ??? A780 FF ??? A781 FF ??? A782 FF ??? A783 FF ??? A784 FF ??? A785 FF ??? A786 FF ??? A787 FF ??? A788 FF ??? A789 FF ??? A78A FF ??? A78B FF ??? A78C FF ??? A78D FF ??? A78E FF ??? A78F FF ??? A790 FF ??? A791 FF ??? A792 FF ??? A793 FF ??? A794 FF ??? A795 FF ??? A796 FF ??? A797 FF ??? A798 FF ??? A799 FF ??? A79A FF ??? A79B FF ??? A79C FF ??? A79D FF ??? A79E FF ??? A79F FF ??? A7A0 FF ??? A7A1 FF ??? A7A2 FF ??? A7A3 FF ??? A7A4 FF ??? A7A5 FF ??? A7A6 FF ??? A7A7 FF ??? A7A8 FF ??? A7A9 FF ??? A7AA FF ??? A7AB FF ??? A7AC FF ??? A7AD FF ??? A7AE FF ??? A7AF FF ??? A7B0 FF ??? A7B1 FF ??? A7B2 FF ??? A7B3 FF ??? A7B4 FF ??? A7B5 FF ??? A7B6 FF ??? A7B7 FF ??? A7B8 FF ??? A7B9 FF ??? A7BA FF ??? A7BB FF ??? A7BC FF ??? A7BD FF ??? A7BE FF ??? A7BF FF ??? A7C0 FF ??? A7C1 FF ??? A7C2 FF ??? A7C3 FF ??? A7C4 FF ??? A7C5 FF ??? A7C6 FF ??? A7C7 FF ??? A7C8 FF ??? A7C9 FF ??? A7CA FF ??? A7CB FF ??? A7CC FF ??? A7CD FF ??? A7CE FF ??? A7CF FF ??? A7D0 FF ??? A7D1 FF ??? A7D2 FF ??? A7D3 FF ??? A7D4 FF ??? A7D5 FF ??? A7D6 FF ??? A7D7 FF ??? A7D8 FF ??? A7D9 FF ??? A7DA FF ??? A7DB FF ??? A7DC FF ??? A7DD FF ??? A7DE FF ??? A7DF FF ??? A7E0 FF ??? A7E1 FF ??? A7E2 FF ??? A7E3 FF ??? A7E4 FF ??? A7E5 FF ??? A7E6 FF ??? A7E7 FF ??? A7E8 FF ??? A7E9 FF ??? A7EA FF ??? A7EB FF ??? A7EC FF ??? A7ED FF ??? A7EE FF ??? A7EF FF ??? A7F0 FF ??? A7F1 FF ??? A7F2 FF ??? A7F3 FF ??? A7F4 FF ??? A7F5 FF ??? A7F6 FF ??? A7F7 FF ??? A7F8 FF ??? A7F9 FF ??? A7FA FF ??? A7FB FF ??? A7FC FF ??? A7FD FF ??? A7FE FF ??? A7FF FF ??? A800 FF ??? A801 FF ??? A802 FF ??? A803 FF ??? A804 FF ??? A805 FF ??? A806 FF ??? A807 FF ??? A808 FF ??? A809 FF ??? A80A FF ??? A80B FF ??? A80C FF ??? A80D FF ??? A80E FF ??? A80F FF ??? A810 FF ??? A811 FF ??? A812 FF ??? A813 FF ??? A814 FF ??? A815 FF ??? A816 FF ??? A817 FF ??? A818 FF ??? A819 FF ??? A81A FF ??? A81B FF ??? A81C FF ??? A81D FF ??? A81E 04 ??? A81F 4D 20 EF EOR $EF20 A822 A0 90 LDY #$90 A824 E4 4C CPX $4C ;DSTAT A826 A4 A0 LDY $A0 A828 38 SEC A829 A2 00 LDX #$00 A82B E9 C1 SBC #$C1 A82D B0 01 BCS $A830 A82F CA DEX A830 18 CLC A831 65 9D ADC $9D A833 48 PHA A834 8A TXA A835 65 9E ADC $9E A837 48 PHA A838 4C 6A A0 JMP $A06A A83B 20 E7 A0 JSR $A0E7 A83E 48 PHA A83F 20 E7 A0 JSR $A0E7 A842 48 PHA A843 90 01 BCC $A846 A845 60 RTS A846 E6 A9 INC $A9 A848 A6 A9 LDX $A9 A84A E0 31 CPX #$31 A84C B0 1C BCS $A86A A84E A5 F2 LDA $F2 ;CIX A850 9D 80 04 STA $0480,X A853 04 ??? A854 00 BRK A855 49 B6 EOR #$B6 A857 20 B2 BF JSR $BFB2 A85A A5 D4 LDA $D4 ;FR0 A85C C9 04 CMP #$04 A85E B0 F4 BCS $A854 A860 0A ASL A861 48 PHA A862 A9 00 LDA #$00 A864 8D 08 D2 STA $D208 ;ALLPOT A867 A9 03 LDA #$03 A869 8D 0F D2 STA $D20F ;SKSTAT A86C 20 A5 BF JSR $BFA5 A86F 68 PLA A870 48 PHA A871 AA TAX A872 A5 D4 LDA $D4 ;FR0 A874 9D 00 D2 STA $D200,X ;POT0 A877 20 A5 BF JSR $BFA5 A87A A5 D4 LDA $D4 ;FR0 A87C 0A ASL A87D 0A ASL A87E 0A ASL A87F 0A ASL A880 48 PHA A881 20 A5 BF JSR $BFA5 A884 68 PLA A885 A8 TAY A886 68 PLA A887 AA TAX A888 98 TYA A889 18 CLC A88A 65 D4 ADC $D4 ;FR0 A88C 9D 01 D2 STA $D201,X ;POT1 A88F 60 RTS A890 20 A5 BF JSR $BFA5 A893 A5 D4 LDA $D4 ;FR0 A895 85 55 STA $55 ;COLCRS A897 A5 D5 LDA $D5 ;FR0+1 A899 85 56 STA $56 ;COLCRS+1 A89B 20 B2 BF JSR $BFB2 A89E A5 D4 LDA $D4 ;FR0 A8A0 85 54 STA $54 ;ROWCRS A8A2 60 RTS A8A3 20 A5 BF JSR $BFA5 A8A6 A5 D4 LDA $D4 ;FR0 A8A8 85 C8 STA $C8 ;COLOUR A8AA 60 RTS A8AB 20 90 A8 JSR $A890 A8AE A5 C8 LDA $C8 ;COLOUR A8B0 8D FB 02 STA $02FB ;ATACHR A8B3 A9 11 LDA #$11 A8B5 A2 06 LDX #$06 A8B7 20 ED B6 JSR $B6ED A8BA A9 0C LDA #$0C A8BC 9D 4A 03 STA $034A,X ;B0-ICAX1 A8BF A9 00 LDA #$00 A8C1 9D 4B 03 STA $034B,X ;B0-ICAX2 A8C4 20 36 B5 JSR $B536 A8C7 4C B8 B4 JMP $B4B8 A8CA 20 A7 B5 JSR $B5A7 A8CD A2 06 LDX #$06 A8CF 8E 49 05 STX $0549 A8D2 20 03 B5 JSR $B503 A8D5 20 A5 BF JSR $BFA5 A8D8 A2 2B LDX #$2B A8DA A0 A9 LDY #$A9 A8DC 86 F3 STX $F3 ;INBUFF A8DE 84 F4 STY $F4 ;INBUFF+1 A8E0 A2 06 LDX #$06 A8E2 A5 D4 LDA $D4 ;FR0 A8E4 29 F0 AND #$F0 A8E6 49 1C EOR #$1C A8E8 A8 TAY A8E9 A5 D4 LDA $D4 ;FR0 A8EB 20 FD B6 JSR $B6FD A8EE 4C B8 B4 JMP $B4B8 A8F1 20 90 A8 JSR $A890 A8F4 A5 C8 LDA $C8 ;COLOUR A8F6 A2 06 LDX #$06 A8F8 4C C3 B6 JMP $B6C3 A8FB A9 08 LDA #$08 A8FD 20 0D A9 JSR $A90D A900 4C 55 AF JMP $AF55 A903 A9 04 LDA #$04 A905 20 0D A9 JSR $A90D A908 A9 00 LDA #$00 A90A 4C F0 AE JMP $AEF0 A90D 48 PHA A90E A2 25 LDX #$25 A910 86 F3 STX $F3 ;INBUFF A912 A2 A9 LDX #$A9 A914 86 F4 STX $F4 ;INBUFF+1 A916 A2 07 LDX #$07 A918 68 PLA A919 A8 TAY A91A A9 80 LDA #$80 A91C 20 FD B6 JSR $B6FD A91F 20 B8 B4 JSR $B4B8 A922 A9 07 LDA #$07 A924 60 RTS A925 43 ??? A926 3A ??? A927 9B ??? A928 50 3A BVC $A964 A92A 9B ??? A92B 53 ??? A92C 3A ??? A92D 9B ??? A92E A8 TAY A92F 29 03 AND #$03 A931 AA TAX A932 BD 3E BD LDA $BD3E,X A935 85 FE STA $FE ;FPTR2 A937 49 FF EOR #$FF A939 85 FF STA $FF ;FPTR2+1 A93B 98 TYA A93C 60 RTS A93D 20 B2 BF JSR $BFB2 A940 A5 D4 LDA $D4 ;FR0 A942 60 RTS A943 98 TYA A944 48 PHA A945 20 64 AB JSR $AB64 A948 A5 B7 LDA $B7 ;DATALN A94A 85 A0 STA $A0 A94C A5 B8 LDA $B8 ;DATALN+1 A94E 85 A1 STA $A1 A950 20 60 B4 JSR $B460 A953 A5 8A LDA $8A ;STMCUR A955 85 F3 STA $F3 ;INBUFF A957 A5 8B LDA $8B ;STMCUR+1 A959 85 F4 STA $F4 ;INBUFF+1 A95B 20 22 AC JSR $AC22 A95E 68 PLA A95F 85 A8 STA $A8 A961 A0 00 LDY #$00 A963 B1 F3 LDA ($F3),Y ;INBUFF A965 85 B7 STA $B7 ;DATALN A967 C8 INY A968 B1 F3 LDA ($F3),Y ;INBUFF A96A 85 B8 STA $B8 ;DATALN+1 A96C C8 INY A96D B1 F3 LDA ($F3),Y ;INBUFF A96F 85 F5 STA $F5 ;ZTEMP1 A971 C8 INY A972 B1 F3 LDA ($F3),Y ;INBUFF A974 AA TAX A975 C8 INY A976 B1 F3 LDA ($F3),Y ;INBUFF A978 C8 INY A979 C9 01 CMP #$01 A97B F0 21 BEQ $A99E A97D 8A TXA A97E A8 TAY A97F C4 F5 CPY $F5 ;ZTEMP1 A981 90 EF BCC $A972 A983 A5 B8 LDA $B8 ;DATALN+1 A985 30 14 BMI $A99B A987 A0 02 LDY #$02 A989 B1 F3 LDA ($F3),Y ;INBUFF A98B 18 CLC A98C 65 F3 ADC $F3 ;INBUFF A98E 85 F3 STA $F3 ;INBUFF A990 A9 00 LDA #$00 A992 85 B6 STA $B6 ;DATAD A994 65 F4 ADC $F4 ;INBUFF+1 A996 85 F4 STA $F4 ;INBUFF+1 A998 4C 61 A9 JMP $A961 A99B 20 2E B6 JSR $B62E A99E A9 00 LDA #$00 A9A0 85 F5 STA $F5 ;ZTEMP1 A9A2 84 F2 STY $F2 ;CIX A9A4 A5 F5 LDA $F5 ;ZTEMP1 A9A6 C5 B6 CMP $B6 ;DATAD A9A8 B0 0D BCS $A9B7 A9AA A2 22 LDX #$22 A9AC 20 68 AA JSR $AA68 A9AF B0 D2 BCS $A983 A9B1 E6 F5 INC $F5 ;ZTEMP1 A9B3 C8 INY A9B4 4C A2 A9 JMP $A9A2 A9B7 A9 22 LDA #$22 A9B9 20 9D BE JSR $BE9D A9BC B0 13 BCS $A9D1 A9BE 48 PHA A9BF E6 B6 INC $B6 ;DATAD A9C1 A4 A8 LDY $A8 A9C3 88 DEY A9C4 B1 8A LDA ($8A),Y ;STMCUR A9C6 C9 12 CMP #$12 A9C8 D0 0F BNE $A9D9 A9CA 68 PLA A9CB C9 9B CMP #$9B A9CD D0 E8 BNE $A9B7 A9CF F0 B2 BEQ $A983 A9D1 A9 00 LDA #$00 A9D3 8D 53 05 STA $0553 A9D6 20 2A B6 JSR $B62A A9D9 68 PLA A9DA 60 RTS A9DB AD 5F 05 LDA $055F A9DE 85 C2 STA $C2 ;PROMPT A9E0 B1 8A LDA ($8A),Y ;STMCUR A9E2 C9 0F CMP #$0F A9E4 F0 10 BEQ $A9F6 A9E6 C9 1C CMP #$1C A9E8 D0 2F BNE $AA19 A9EA 20 14 B5 JSR $B514 A9ED 8D 53 05 STA $0553 A9F0 A9 00 LDA #$00 A9F2 85 C2 STA $C2 ;PROMPT A9F4 F0 23 BEQ $AA19 A9F6 C8 INY A9F7 B1 8A LDA ($8A),Y ;STMCUR A9F9 C8 INY A9FA 84 A8 STY $A8 A9FC 85 E6 STA $E6 ;FR2 A9FE AA TAX A9FF F0 0D BEQ $AA0E AA01 B1 8A LDA ($8A),Y ;STMCUR AA03 20 C0 B6 JSR $B6C0 AA06 E6 A8 INC $A8 AA08 A4 A8 LDY $A8 AA0A C6 E6 DEC $E6 ;FR2 AA0C D0 F3 BNE $AA01 AA0E E6 A8 INC $A8 AA10 20 51 DA JSR $DA51 AA13 20 AE B6 JSR $B6AE AA16 4C 1F AA JMP $AA1F AA19 20 51 DA JSR $DA51 AA1C 20 A7 B6 JSR $B6A7 AA1F 20 57 AA JSR $AA57 AA22 A0 00 LDY #$00 AA24 84 F2 STY $F2 ;CIX AA26 B1 F3 LDA ($F3),Y ;INBUFF AA28 09 03 ORA #$03 AA2A F0 34 BEQ $AA60 AA2C A9 9B LDA #$9B AA2E 20 9D BE JSR $BE9D AA31 48 PHA AA32 B0 9D BCS $A9D1 AA34 20 66 BA JSR $BA66 AA37 B0 14 BCS $AA4D AA39 68 PLA AA3A C9 9B CMP #$9B AA3C D0 EE BNE $AA2C AA3E AD 61 05 LDA $0561 AA41 F0 8E BEQ $A9D1 AA43 A5 C2 LDA $C2 ;PROMPT AA45 F0 D2 BEQ $AA19 AA47 20 C0 B6 JSR $B6C0 AA4A 4C 19 AA JMP $AA19 AA4D 68 PLA AA4E 20 51 DA JSR $DA51 AA51 A9 00 LDA #$00 AA53 8D 53 05 STA $0553 AA56 60 RTS AA57 20 8C B5 JSR $B58C AA5A D0 01 BNE $AA5D AA5C 60 RTS AA5D 4C 29 BA JMP $BA29 AA60 A9 00 LDA #$00 AA62 8D 53 05 STA $0553 AA65 20 04 B6 JSR $B604 AA68 A4 F2 LDY $F2 ;CIX AA6A 8A TXA AA6B 85 BC STA $BC AA6D A2 00 LDX #$00 AA6F C9 9B CMP #$9B AA71 F0 0D BEQ $AA80 AA73 D1 F3 CMP ($F3),Y ;INBUFF AA75 F0 06 BEQ $AA7D AA77 A9 2C LDA #$2C AA79 85 BC STA $BC AA7B D0 03 BNE $AA80 AA7D C8 INY AA7E 84 F2 STY $F2 ;CIX AA80 B1 F3 LDA ($F3),Y ;INBUFF AA82 C9 9B CMP #$9B AA84 F0 14 BEQ $AA9A AA86 C5 BC CMP $BC AA88 F0 04 BEQ $AA8E AA8A C8 INY AA8B E8 INX AA8C D0 F2 BNE $AA80 AA8E C9 2C CMP #$2C AA90 18 CLC AA91 F0 07 BEQ $AA9A AA93 C8 INY AA94 B1 F3 LDA ($F3),Y ;INBUFF AA96 C9 9B CMP #$9B AA98 D0 F4 BNE $AA8E AA9A 60 RTS AA9B 84 B3 STY $B3 AA9D 20 49 BF JSR $BF49 AAA0 A5 D3 LDA $D3 AAA2 09 80 ORA #$80 AAA4 48 PHA AAA5 20 C0 BD JSR $BDC0 AAA8 A9 0C LDA #$0C AAAA 20 20 BE JSR $BE20 AAAD 20 90 BF JSR $BF90 AAB0 A0 00 LDY #$00 AAB2 20 37 BE JSR $BE37 AAB5 20 44 DA JSR $DA44 ;ZPRO AAB8 A9 01 LDA #$01 AABA 85 D5 STA $D5 ;FR0+1 AABC A9 40 LDA #$40 AABE 85 D4 STA $D4 ;FR0 AAC0 20 66 BA JSR $BA66 AAC3 B0 03 BCS $AAC8 AAC5 20 90 BF JSR $BF90 AAC8 A0 06 LDY #$06 AACA 20 37 BE JSR $BE37 AACD 68 PLA AACE 85 C1 STA $C1 ;IODVC AAD0 20 F2 AA JSR $AAF2 AAD3 AD 60 05 LDA $0560 AAD6 F0 19 BEQ $AAF1 AAD8 A9 00 LDA #$00 AADA 20 70 AB JSR $AB70 AADD 90 12 BCC $AAF1 AADF A9 09 LDA #$09 AAE1 A2 08 LDX #$08 AAE3 A0 FF LDY #$FF AAE5 20 B6 BD JSR $BDB6 AAE8 B1 8A LDA ($8A),Y ;STMCUR AAEA C5 C1 CMP $C1 ;IODVC AAEC F0 03 BEQ $AAF1 AAEE 20 02 B6 JSR $B602 AAF1 60 RTS AAF2 48 PHA AAF3 A9 04 LDA #$04 AAF5 20 20 BE JSR $BE20 AAF8 68 PLA AAF9 A0 00 LDY #$00 AAFB 91 BE STA ($BE),Y ;SAVCUR AAFD 24 B9 BIT $B9 AAFF 30 0D BMI $AB0E AB01 B1 8A LDA ($8A),Y ;STMCUR AB03 C8 INY AB04 91 BE STA ($BE),Y ;SAVCUR AB06 B1 8A LDA ($8A),Y ;STMCUR AB08 C8 INY AB09 91 BE STA ($BE),Y ;SAVCUR AB0B 4C 18 AB JMP $AB18 AB0E A5 8A LDA $8A ;STMCUR AB10 C8 INY AB11 91 BE STA ($BE),Y ;SAVCUR AB13 A5 8B LDA $8B ;STMCUR+1 AB15 C8 INY AB16 91 BE STA ($BE),Y ;SAVCUR AB18 A6 B3 LDX $B3 AB1A CA DEX AB1B 8A TXA AB1C C8 INY AB1D 91 BE STA ($BE),Y ;SAVCUR AB1F 60 RTS AB20 20 64 AB JSR $AB64 AB23 24 11 BIT $11 ;BRKKEY AB25 30 08 BMI $AB2F AB27 20 8C B5 JSR $B58C AB2A F0 03 BEQ $AB2F AB2C 4C 29 BA JMP $BA29 AB2F A4 A8 LDY $A8 AB31 B1 8A LDA ($8A),Y ;STMCUR AB33 D0 10 BNE $AB45 AB35 C8 INY AB36 B1 8A LDA ($8A),Y ;STMCUR AB38 AA TAX AB39 C8 INY AB3A B1 8A LDA ($8A),Y ;STMCUR AB3C 85 8B STA $8B ;STMCUR+1 AB3E 86 8A STX $8A ;STMCUR AB40 68 PLA AB41 68 PLA AB42 4C CB B3 JMP $B3CB AB45 20 9A BF JSR $BF9A AB48 A5 D5 LDA $D5 ;FR0+1 AB4A 85 A1 STA $A1 AB4C A5 D4 LDA $D4 ;FR0 AB4E 85 A0 STA $A0 AB50 A9 80 LDA #$80 AB52 85 BB STA $BB ;STOPLN+1 AB54 20 60 B4 JSR $B460 AB57 B0 05 BCS $AB5E AB59 68 PLA AB5A 68 PLA AB5B 4C CB B3 JMP $B3CB AB5E 20 05 BA JSR $BA05 AB61 20 22 B6 JSR $B622 AB64 20 32 BE JSR $BE32 AB67 A9 00 LDA #$00 AB69 4C F2 AA JMP $AAF2 AB6C B1 8A LDA ($8A),Y ;STMCUR AB6E 85 C1 STA $C1 ;IODVC AB70 85 BC STA $BC AB72 20 D7 AB JSR $ABD7 AB75 C5 C1 CMP $C1 ;IODVC AB77 D0 F7 BNE $AB70 AB79 A0 06 LDY #$06 AB7B 20 42 BE JSR $BE42 AB7E A5 E0 LDA $E0 ;FR1 AB80 48 PHA AB81 A5 C1 LDA $C1 ;IODVC AB83 20 3F BF JSR $BF3F AB86 A5 BC LDA $BC AB88 F0 12 BEQ $AB9C AB8A 20 66 DA JSR $DA66 ;FADD AB8D 90 03 BCC $AB92 AB8F 20 24 B6 JSR $B624 AB92 A0 07 LDY #$07 AB94 B9 D2 00 LDA $00D2,Y AB97 91 9D STA ($9D),Y AB99 88 DEY AB9A D0 F8 BNE $AB94 AB9C A0 00 LDY #$00 AB9E 20 42 BE JSR $BE42 ABA1 68 PLA ABA2 10 0B BPL $ABAF ABA4 20 60 DA JSR $DA60 ;FSUB ABA7 B0 E6 BCS $AB8F ABA9 A5 D4 LDA $D4 ;FR0 ABAB 10 0F BPL $ABBC ABAD 38 SEC ABAE 60 RTS ABAF 20 60 DA JSR $DA60 ;FSUB ABB2 B0 DB BCS $AB8F ABB4 A5 D4 LDA $D4 ;FR0 ABB6 F0 04 BEQ $ABBC ABB8 30 02 BMI $ABBC ABBA 38 SEC ABBB 60 RTS ABBC A6 BE LDX $BE ;SAVCUR ABBE 86 90 STX $90 ;TOPSTK ABC0 A5 BF LDA $BF ABC2 85 91 STA $91 ;TOPSTK+1 ABC4 86 0E STX $0E ;APPMHI ABC6 85 0F STA $0F ;APPMHI+1 ABC8 20 4D AC JSR $AC4D ABCB C9 08 CMP #$08 ABCD D0 02 BNE $ABD1 ABCF 18 CLC ABD0 60 RTS ABD1 20 6E AC JSR $AC6E ABD4 20 20 B6 JSR $B620 ABD7 A6 8F LDX $8F ;RUNSTK+1 ABD9 E4 91 CPX $91 ;TOPSTK+1 ABDB 90 06 BCC $ABE3 ABDD A5 8E LDA $8E ;RUNSTK ABDF C5 90 CMP $90 ;TOPSTK ABE1 B0 F1 BCS $ABD4 ABE3 38 SEC ABE4 A5 90 LDA $90 ;TOPSTK ABE6 85 BE STA $BE ;SAVCUR ABE8 E9 10 SBC #$10 ABEA 85 90 STA $90 ;TOPSTK ABEC 85 0E STA $0E ;APPMHI ABEE A5 91 LDA $91 ;TOPSTK+1 ABF0 85 BF STA $BF ABF2 E9 00 SBC #$00 ABF4 85 91 STA $91 ;TOPSTK+1 ABF6 85 0F STA $0F ;APPMHI+1 ABF8 A0 0F LDY #$0F ABFA B1 90 LDA ($90),Y ;TOPSTK ABFC 85 B2 STA $B2 ABFE 88 DEY ABFF B1 90 LDA ($90),Y ;TOPSTK AC01 85 A1 STA $A1 AC03 88 DEY AC04 B1 90 LDA ($90),Y ;TOPSTK AC06 85 A0 STA $A0 AC08 88 DEY AC09 B1 90 LDA ($90),Y ;TOPSTK AC0B 10 01 BPL $AC0E AC0D 60 RTS AC0E A5 BE LDA $BE ;SAVCUR AC10 38 SEC AC11 E9 04 SBC #$04 AC13 85 90 STA $90 ;TOPSTK AC15 85 0E STA $0E ;APPMHI AC17 A5 BF LDA $BF AC19 E9 00 SBC #$00 AC1B 85 91 STA $91 ;TOPSTK+1 AC1D 85 0F STA $0F ;APPMHI+1 AC1F 4C 20 B6 JMP $B620 AC22 20 DB BD JSR $BDDB AC25 B0 20 BCS $AC47 AC27 30 F9 BMI $AC22 AC29 D0 1F BNE $AC4A AC2B 20 4D AC JSR $AC4D AC2E C9 0C CMP #$0C AC30 F0 14 BEQ $AC46 AC32 C9 1E CMP #$1E AC34 F0 10 BEQ $AC46 AC36 C9 22 CMP #$22 AC38 F0 0C BEQ $AC46 AC3A C9 40 CMP #$40 AC3C F0 08 BEQ $AC46 AC3E C9 54 CMP #$54 AC40 F0 04 BEQ $AC46 AC42 C9 04 CMP #$04 AC44 D0 28 BNE $AC6E AC46 60 RTS AC47 20 1A B6 JSR $B61A AC4A 20 02 B6 JSR $B602 AC4D 24 B9 BIT $B9 AC4F 30 07 BMI $AC58 AC51 20 59 BA JSR $BA59 AC54 B0 18 BCS $AC6E AC56 90 0B BCC $AC63 AC58 A5 A0 LDA $A0 AC5A 85 8A STA $8A ;STMCUR AC5C A5 A1 LDA $A1 AC5E 85 8B STA $8B ;STMCUR+1 AC60 20 5C BA JSR $BA5C AC63 A4 B2 LDY $B2 AC65 88 DEY AC66 B1 8A LDA ($8A),Y ;STMCUR AC68 85 A7 STA $A7 AC6A C8 INY AC6B B1 8A LDA ($8A),Y ;STMCUR AC6D 60 RTS AC6E 20 05 BA JSR $BA05 AC71 20 1C B6 JSR $B61C AC74 20 90 BF JSR $BF90 AC77 20 66 BA JSR $BA66 AC7A A5 D4 LDA $D4 ;FR0 AC7C F0 06 BEQ $AC84 AC7E B0 03 BCS $AC83 AC80 4C 23 AB JMP $AB23 AC83 60 RTS AC84 B0 05 BCS $AC8B AC86 A5 9F LDA $9F AC88 85 A7 STA $A7 AC8A 60 RTS AC8B A4 A8 LDY $A8 AC8D 88 DEY AC8E B1 8A LDA ($8A),Y ;STMCUR AC90 C9 1B CMP #$1B AC92 F0 F2 BEQ $AC86 AC94 A2 07 LDX #$07 AC96 A0 3C LDY #$3C AC98 A9 3D LDA #$3D AC9A 20 B6 BD JSR $BDB6 AC9D 60 RTS AC9E C8 INY AC9F 84 A8 STY $A8 ACA1 A5 A8 LDA $A8 ACA3 85 B3 STA $B3 ACA5 20 90 BF JSR $BF90 ACA8 A5 D5 LDA $D5 ;FR0+1 ACAA D0 09 BNE $ACB5 ACAC A2 38 LDX #$38 ACAE A9 39 LDA #$39 ACB0 A0 FF LDY #$FF ACB2 4C B6 BD JMP $BDB6 ACB5 A9 38 LDA #$38 ACB7 4C F2 AA JMP $AAF2 ACBA 20 DB BD JSR $BDDB ACBD B0 10 BCS $ACCF ACBF 30 F9 BMI $ACBA ACC1 C9 38 CMP #$38 ACC3 D0 0A BNE $ACCF ACC5 20 4D AC JSR $AC4D ACC8 C9 38 CMP #$38 ACCA F0 D2 BEQ $AC9E ACCC 20 1C B6 JSR $B61C ACCF 20 02 B6 JSR $B602 ACD2 20 16 B5 JSR $B516 ACD5 4C DA AC JMP $ACDA ACD8 A9 03 LDA #$03 ACDA 20 E5 AC JSR $ACE5 ACDD 48 PHA ACDE 20 AA B4 JSR $B4AA ACE1 68 PLA ACE2 4C 11 B7 JMP $B711 ACE5 8D 48 05 STA $0548 ACE8 20 A4 B4 JSR $B4A4 ACEB 20 16 B5 JSR $B516 ACEE 48 PHA ACEF A5 D5 LDA $D5 ;FR0+1 ACF1 48 PHA ACF2 20 16 B5 JSR $B516 ACF5 68 PLA ACF6 A8 TAY ACF7 68 PLA ACF8 60 RTS ACF9 A9 20 LDA #$20 ACFB D0 0A BNE $AD07 ACFD A9 21 LDA #$21 ACFF D0 06 BNE $AD07 AD01 A9 23 LDA #$23 AD03 D0 02 BNE $AD07 AD05 A9 24 LDA #$24 AD07 8D 48 05 STA $0548 AD0A A9 07 LDA #$07 AD0C 8D 49 05 STA $0549 AD0F 4C 19 B7 JMP $B719 AD12 20 51 DA JSR $DA51 AD15 A9 06 LDA #$06 AD17 20 53 B5 JSR $B553 AD1A 8D 53 05 STA $0553 AD1D 20 AE B6 JSR $B6AE AD20 20 8C B5 JSR $B58C AD23 D0 13 BNE $AD38 AD25 A2 00 LDX #$00 AD27 A9 09 LDA #$09 AD29 20 ED B6 JSR $B6ED AD2C 20 1C B5 JSR $B51C AD2F 20 0D B5 JSR $B50D AD32 10 E9 BPL $AD1D AD34 C9 88 CMP #$88 AD36 D0 06 BNE $AD3E AD38 20 03 B5 JSR $B503 AD3B 4C FC B8 JMP $B8FC AD3E 4C BE B4 JMP $B4BE AD41 20 A4 B4 JSR $B4A4 AD44 A9 0D LDA #$0D AD46 20 39 B5 JSR $B539 AD49 20 0D B5 JSR $B50D AD4C 4C C6 B8 JMP $B8C6 AD4F A9 26 LDA #$26 AD51 20 80 B5 JSR $B580 AD54 BD 4C 03 LDA $034C,X ;B0-ICAX3 AD57 BC 4D 03 LDY $034D,X ;B0-ICAX4 AD5A 20 C8 B8 JSR $B8C8 AD5D 20 AA B4 JSR $B4AA AD60 BD 4E 03 LDA $034E,X ;B0-ICAX5 AD63 4C C6 B8 JMP $B8C6 AD66 20 A4 B4 JSR $B4A4 AD69 20 9A BF JSR $BF9A AD6C 20 AA B4 JSR $B4AA AD6F A5 D4 LDA $D4 ;FR0 AD71 9D 4C 03 STA $034C,X ;B0-ICAX3 AD74 A5 D5 LDA $D5 ;FR0+1 AD76 9D 4D 03 STA $034D,X ;B0-ICAX4 AD79 20 9A BF JSR $BF9A AD7C 20 AA B4 JSR $B4AA AD7F A5 D4 LDA $D4 ;FR0 AD81 9D 4E 03 STA $034E,X ;B0-ICAX5 AD84 A9 25 LDA #$25 AD86 8D 48 05 STA $0548 AD89 4C 86 B5 JMP $B586 AD8C 20 A4 B4 JSR $B4A4 AD8F 20 A5 BF JSR $BFA5 AD92 A5 D4 LDA $D4 ;FR0 AD94 AE 49 05 LDX $0549 AD97 4C C3 B6 JMP $B6C3 AD9A 20 A4 B4 JSR $B4A4 AD9D A9 07 LDA #$07 AD9F 8D 48 05 STA $0548 ADA2 A0 01 LDY #$01 ADA4 20 51 DA JSR $DA51 ADA7 20 22 B5 JSR $B522 ADAA 20 B8 B4 JSR $B4B8 ADAD A0 00 LDY #$00 ADAF B1 F3 LDA ($F3),Y ;INBUFF ADB1 4C C6 B8 JMP $B8C6 ADB4 20 D0 AD JSR $ADD0 ADB7 A9 07 LDA #$07 ADB9 D0 05 BNE $ADC0 ADBB 20 D0 AD JSR $ADD0 ADBE A9 0B LDA #$0B ADC0 A8 TAY ADC1 BD 49 03 LDA $0349,X ;B0-ICBLH ADC4 1D 48 03 ORA $0348,X ;B0-ICBLL ADC7 F0 2A BEQ $ADF3 ADC9 98 TYA ADCA 20 39 B5 JSR $B539 ADCD 4C B8 B4 JMP $B4B8 ADD0 20 A4 B4 JSR $B4A4 ADD3 20 A5 BF JSR $BFA5 ADD6 20 AA B4 JSR $B4AA ADD9 A5 D5 LDA $D5 ;FR0+1 ADDB 9D 45 03 STA $0345,X ;B0-ICBAH ADDE A5 D4 LDA $D4 ;FR0 ADE0 9D 44 03 STA $0344,X ;B0-ICBAL ADE3 20 A5 BF JSR $BFA5 ADE6 20 AA B4 JSR $B4AA ADE9 A5 D5 LDA $D5 ;FR0+1 ADEB 9D 49 03 STA $0349,X ;B0-ICBLH ADEE A5 D4 LDA $D4 ;FR0 ADF0 9D 48 03 STA $0348,X ;B0-ICBLL ADF3 60 RTS ADF4 20 A4 B4 JSR $B4A4 ADF7 C6 A8 DEC $A8 ADF9 A9 0B LDA #$0B ADFB 8D 48 05 STA $0548 ADFE 20 FC B7 JSR $B7FC AE01 F0 37 BEQ $AE3A AE03 20 90 BF JSR $BF90 AE06 C6 A8 DEC $A8 AE08 A5 D2 LDA $D2 AE0A 85 D3 STA $D3 AE0C 30 08 BMI $AE16 AE0E A9 07 LDA #$07 AE10 20 3B AE JSR $AE3B AE13 4C FE AD JMP $ADFE AE16 20 2B BF JSR $BF2B AE19 20 B6 DD JSR $DDB6 ;FMOVE AE1C A5 D8 LDA $D8 ;FR0+4 AE1E 85 D4 STA $D4 ;FR0 AE20 A5 D9 LDA $D9 ;FR0+5 AE22 85 D5 STA $D5 ;FR0+1 AE24 A9 05 LDA #$05 AE26 20 3B AE JSR $AE3B AE29 A5 D8 LDA $D8 ;FR0+4 AE2B A4 D9 LDY $D9 ;FR0+5 AE2D 20 4B AE JSR $AE4B AE30 A5 E1 LDA $E1 ;FR1+1 AE32 A4 E0 LDY $E0 ;FR1 AE34 20 42 AE JSR $AE42 AE37 4C FE AD JMP $ADFE AE3A 60 RTS AE3B 20 49 AE JSR $AE49 AE3E A9 00 LDA #$00 AE40 A0 D3 LDY #$D3 AE42 20 2F B5 JSR $B52F AE45 20 B8 B4 JSR $B4B8 AE48 60 RTS AE49 A0 00 LDY #$00 AE4B 48 PHA AE4C 20 AA B4 JSR $B4AA AE4F 68 PLA AE50 9D 48 03 STA $0348,X ;B0-ICBLL AE53 98 TYA AE54 9D 49 03 STA $0349,X ;B0-ICBLH AE57 60 RTS AE58 20 A4 B4 JSR $B4A4 AE5B A9 07 LDA #$07 AE5D 8D 48 05 STA $0548 AE60 A4 A8 LDY $A8 AE62 88 DEY AE63 B1 8A LDA ($8A),Y ;STMCUR AE65 C9 12 CMP #$12 AE67 D0 EE BNE $AE57 AE69 20 90 BF JSR $BF90 AE6C A5 D3 LDA $D3 AE6E 85 E6 STA $E6 ;FR2 AE70 A5 D4 LDA $D4 ;FR0 AE72 85 E7 STA $E7 ;FR2+1 AE74 A5 D5 LDA $D5 ;FR0+1 AE76 85 E8 STA $E8 ;FR2+2 AE78 A5 D2 LDA $D2 AE7A 85 E9 STA $E9 ;FR2+3 AE7C D0 0C BNE $AE8A AE7E A9 07 LDA #$07 AE80 20 3B AE JSR $AE3B AE83 A5 D3 LDA $D3 AE85 D0 4A BNE $AED1 AE87 4C C7 AE JMP $AEC7 AE8A 20 2B BF JSR $BF2B AE8D 20 B6 DD JSR $DDB6 ;FMOVE AE90 A9 05 LDA #$05 AE92 20 3B AE JSR $AE3B AE95 A4 D3 LDY $D3 AE97 F0 38 BEQ $AED1 AE99 A5 D4 LDA $D4 ;FR0 AE9B C5 D8 CMP $D8 ;FR0+4 AE9D D0 35 BNE $AED4 AE9F A5 D5 LDA $D5 ;FR0+1 AEA1 C5 D9 CMP $D9 ;FR0+5 AEA3 D0 2F BNE $AED4 AEA5 A5 E0 LDA $E0 ;FR1 AEA7 85 D4 STA $D4 ;FR0 AEA9 A5 E1 LDA $E1 ;FR1+1 AEAB 85 D5 STA $D5 ;FR0+1 AEAD A5 D8 LDA $D8 ;FR0+4 AEAF A4 D9 LDY $D9 ;FR0+5 AEB1 20 4B AE JSR $AE4B AEB4 A4 D4 LDY $D4 ;FR0 AEB6 A5 D5 LDA $D5 ;FR0+1 AEB8 20 42 AE JSR $AE42 AEBB A5 E7 LDA $E7 ;FR2+1 AEBD 85 D4 STA $D4 ;FR0 AEBF A5 E8 LDA $E8 ;FR2+2 AEC1 85 D5 STA $D5 ;FR0+1 AEC3 A5 E9 LDA $E9 ;FR2+3 AEC5 85 D2 STA $D2 AEC7 A5 E6 LDA $E6 ;FR2 AEC9 85 D3 STA $D3 AECB 20 53 BF JSR $BF53 AECE 4C 60 AE JMP $AE60 AED1 20 06 B6 JSR $B606 AED4 20 08 B6 JSR $B608 AED7 A9 FF LDA #$FF AED9 20 E9 AE JSR $AEE9 AEDC AD 1F D0 LDA $D01F ;CONSOL AEDF 29 02 AND #$02 AEE1 D0 03 BNE $AEE6 AEE3 4C 69 B9 JMP $B969 AEE6 60 RTS AEE7 A9 00 LDA #$00 AEE9 48 PHA AEEA A9 04 LDA #$04 AEEC 20 53 B5 JSR $B553 AEEF 68 PLA AEF0 48 PHA AEF1 A9 07 LDA #$07 AEF3 8D 48 05 STA $0548 AEF6 8D 57 05 STA $0557 AEF9 20 AA B4 JSR $B4AA AEFC A0 0E LDY #$0E AEFE 20 22 B5 JSR $B522 AF01 20 B8 B4 JSR $B4B8 AF04 AD 80 05 LDA $0580 AF07 0D 81 05 ORA $0581 AF0A D0 39 BNE $AF45 AF0C A2 8C LDX #$8C AF0E 18 CLC AF0F A5 80 LDA $80 ;LOMEM AF11 7D 00 05 ADC $0500,X AF14 A8 TAY AF15 A5 81 LDA $81 ;LOMEM+1 AF17 7D 01 05 ADC $0501,X AF1A CD E6 02 CMP $02E6 ;MEMTOP+1 AF1D 90 0A BCC $AF29 AF1F D0 05 BNE $AF26 AF21 CC E5 02 CPY $02E5 ;MEMTOP AF24 90 03 BCC $AF29 AF26 4C 14 B6 JMP $B614 AF29 95 01 STA $01,X ;NGFLAG AF2B 94 00 STY $00,X AF2D CA DEX AF2E CA DEX AF2F E0 82 CPX #$82 AF31 B0 DB BCS $AF0E AF33 20 7C AF JSR $AF7C AF36 20 63 BD JSR $BD63 AF39 A9 00 LDA #$00 AF3B 8D 57 05 STA $0557 AF3E 68 PLA AF3F F0 01 BEQ $AF42 AF41 60 RTS AF42 4C 8A B0 JMP $B08A AF45 A9 00 LDA #$00 AF47 8D 57 05 STA $0557 AF4A 20 10 B6 JSR $B610 AF4D 20 62 B9 JSR $B962 AF50 A9 08 LDA #$08 AF52 20 53 B5 JSR $B553 AF55 A9 0B LDA #$0B AF57 8D 48 05 STA $0548 AF5A A2 80 LDX #$80 AF5C 38 SEC AF5D B5 00 LDA $00,X AF5F E5 80 SBC $80 ;LOMEM AF61 9D 00 05 STA $0500,X AF64 E8 INX AF65 B5 00 LDA $00,X AF67 E5 81 SBC $81 ;LOMEM+1 AF69 9D 00 05 STA $0500,X AF6C E8 INX AF6D E0 8E CPX #$8E AF6F 90 EB BCC $AF5C AF71 20 AA B4 JSR $B4AA AF74 A0 0E LDY #$0E AF76 20 22 B5 JSR $B522 AF79 20 B8 B4 JSR $B4B8 AF7C 20 AA B4 JSR $B4AA AF7F A5 82 LDA $82 ;VNTP AF81 85 F3 STA $F3 ;INBUFF AF83 A5 83 LDA $83 ;VNTP+1 AF85 85 F4 STA $F4 ;INBUFF+1 AF87 AC 8D 05 LDY $058D AF8A 88 DEY AF8B 98 TYA AF8C AC 8C 05 LDY $058C AF8F 20 24 B5 JSR $B524 AF92 20 B8 B4 JSR $B4B8 AF95 4C 03 B5 JMP $B503 AF98 20 A5 BF JSR $BFA5 AF9B A5 D4 LDA $D4 ;FR0 AF9D 8D 55 05 STA $0555 AFA0 A5 D5 LDA $D5 ;FR0+1 AFA2 8D 56 05 STA $0556 AFA5 60 RTS AFA6 84 B3 STY $B3 AFA8 20 B2 BF JSR $BFB2 AFAB A5 D4 LDA $D4 ;FR0 AFAD F0 31 BEQ $AFE0 AFAF A4 A8 LDY $A8 AFB1 88 DEY AFB2 B1 8A LDA ($8A),Y ;STMCUR AFB4 C9 17 CMP #$17 AFB6 F0 03 BEQ $AFBB AFB8 20 67 AB JSR $AB67 AFBB A5 D4 LDA $D4 ;FR0 AFBD 85 B3 STA $B3 AFBF A4 A8 LDY $A8 AFC1 C8 INY AFC2 C4 A7 CPY $A7 AFC4 B0 1A BCS $AFE0 AFC6 C6 B3 DEC $B3 AFC8 F0 13 BEQ $AFDD AFCA 88 DEY AFCB B1 8A LDA ($8A),Y ;STMCUR AFCD D0 08 BNE $AFD7 AFCF 98 TYA AFD0 69 08 ADC #$08 AFD2 85 A8 STA $A8 AFD4 4C BF AF JMP $AFBF AFD7 20 9A BF JSR $BF9A AFDA 4C BF AF JMP $AFBF AFDD 4C 23 AB JMP $AB23 AFE0 60 RTS AFE1 20 E1 B8 JSR $B8E1 AFE4 4C 71 E4 JMP $E471 ;SELFSV AFE7 20 E1 B8 JSR $B8E1 AFEA 6C 0A 00 JMP ($000A) ;DOSVEC AFED AF ??? AFEE ED FF FF SBC $FFFF AFF1 FF ??? AFF2 FF ??? AFF3 FF ??? AFF4 FF ??? AFF5 FF ??? AFF6 FF ??? AFF7 FF ??? AFF8 FF ??? AFF9 FF ??? AFFA FF ??? AFFB FF ??? AFFC FF ??? AFFD FF ??? AFFE FF ??? AFFF 03 ??? B000 8D 00 D5 STA $D500 B003 A9 80 LDA #$80 B005 85 11 STA $11 ;BRKKEY B007 20 FC B8 JSR $B8FC B00A 8D 6E 05 STA $056E B00D A2 A1 LDX #$A1 B00F A0 B2 LDY #$B2 B011 20 55 B6 JSR $B655 B014 20 C1 B8 JSR $B8C1 B017 AD 57 05 LDA $0557 B01A D0 06 BNE $B022 B01C 85 93 STA $93 B01E A5 08 LDA $08 ;WARMST B020 D0 62 BNE $B084 B022 A2 00 LDX #$00 B024 86 B9 STX $B9 B026 86 93 STX $93 B028 86 C7 STX $C7 B02A 86 C5 STX $C5 B02C CA DEX B02D 8E 56 05 STX $0556 B030 9A TXS B031 D8 CLD B032 A2 10 LDX #$10 B034 BD DC B2 LDA $B2DC,X B037 9D 5D 05 STA $055D,X B03A CA DEX B03B 10 F7 BPL $B034 B03D AD 5E 05 LDA $055E B040 85 C9 STA $C9 ;PTABW B042 AE E7 02 LDX $02E7 ;MEMLO B045 AC E8 02 LDY $02E8 ;MEMLO+1 B048 86 80 STX $80 ;LOMEM B04A 84 81 STY $81 ;LOMEM+1 B04C A9 00 LDA #$00 B04E 85 92 STA $92 ;MEOLFLG B050 8D 57 05 STA $0557 B053 8D 58 05 STA $0558 B056 C8 INY B057 8A TXA B058 A2 82 LDX #$82 B05A 95 00 STA $00,X B05C E8 INX B05D 94 00 STY $00,X B05F E8 INX B060 E0 92 CPX #$92 B062 90 F6 BCC $B05A B064 A2 86 LDX #$86 B066 A0 01 LDY #$01 B068 20 E9 B2 JSR $B2E9 B06B A2 8C LDX #$8C B06D A0 03 LDY #$03 B06F 20 E9 B2 JSR $B2E9 B072 98 TYA B073 91 84 STA ($84),Y ;VNTD B075 91 8A STA ($8A),Y ;STMCUR B077 C8 INY B078 A9 80 LDA #$80 B07A 91 8A STA ($8A),Y ;STMCUR B07C 8D 56 05 STA $0556 B07F C8 INY B080 A9 03 LDA #$03 B082 91 8A STA ($8A),Y ;STMCUR B084 8D 00 D5 STA $D500 B087 20 0E BA JSR $BA0E B08A 20 E1 B8 JSR $B8E1 B08D 20 FC B8 JSR $B8FC B090 A5 92 LDA $92 ;MEOLFLG B092 F0 03 BEQ $B097 B094 20 8C BA JSR $BA8C B097 8D 00 D5 STA $D500 B09A 20 00 A0 JSR $A000 B09D 8D 00 D5 STA $D500 B0A0 AD 57 05 LDA $0557 B0A3 F0 03 BEQ $B0A8 B0A5 4C 00 B0 JMP $B000 B0A8 A2 FF LDX #$FF B0AA 9A TXS B0AB 20 51 DA JSR $DA51 B0AE A9 5D LDA #$5D B0B0 85 C2 STA $C2 ;PROMPT B0B2 20 A1 B6 JSR $B6A1 B0B5 20 51 DA JSR $DA51 B0B8 20 62 B9 JSR $B962 B0BB AD 62 05 LDA $0562 B0BE F0 2A BEQ $B0EA B0C0 A0 00 LDY #$00 B0C2 B1 F3 LDA ($F3),Y ;INBUFF B0C4 C9 9B CMP #$9B B0C6 F0 22 BEQ $B0EA B0C8 29 7F AND #$7F B0CA C9 22 CMP #$22 B0CC F0 11 BEQ $B0DF B0CE C9 61 CMP #$61 B0D0 90 06 BCC $B0D8 B0D2 C9 7B CMP #$7B B0D4 B0 02 BCS $B0D8 B0D6 29 5F AND #$5F B0D8 91 F3 STA ($F3),Y ;INBUFF B0DA C8 INY B0DB D0 E5 BNE $B0C2 B0DD F0 0B BEQ $B0EA B0DF C8 INY B0E0 B1 F3 LDA ($F3),Y ;INBUFF B0E2 29 7F AND #$7F B0E4 C9 22 CMP #$22 B0E6 D0 F7 BNE $B0DF B0E8 F0 EE BEQ $B0D8 B0EA 20 8C B5 JSR $B58C B0ED D0 AE BNE $B09D B0EF A9 00 LDA #$00 B0F1 85 F2 STA $F2 ;CIX B0F3 85 9F STA $9F B0F5 85 94 STA $94 B0F7 85 A6 STA $A6 B0F9 85 B3 STA $B3 B0FB 85 B0 STA $B0 B0FD 85 B1 STA $B1 B0FF A5 84 LDA $84 ;VNTD B101 85 AD STA $AD B103 A5 85 LDA $85 ;VNTD+1 B105 85 AE STA $AE B107 20 A1 DB JSR $DBA1 B10A 20 68 B2 JSR $B268 B10D E6 94 INC $94 B10F A5 D5 LDA $D5 ;FR0+1 B111 10 02 BPL $B115 B113 85 A6 STA $A6 B115 20 A1 DB JSR $DBA1 B118 A4 F2 LDY $F2 ;CIX B11A 84 A8 STY $A8 B11C B1 F3 LDA ($F3),Y ;INBUFF B11E C9 9B CMP #$9B B120 D0 0A BNE $B12C B122 24 A6 BIT $A6 B124 30 03 BMI $B129 B126 4C 44 B2 JMP $B244 B129 4C 9D B0 JMP $B09D B12C A5 94 LDA $94 B12E 85 A7 STA $A7 B130 E6 94 INC $94 B132 20 A1 DB JSR $DBA1 B135 A9 A3 LDA #$A3 B137 A0 5E LDY #$5E B139 A2 02 LDX #$02 B13B 20 0D A3 JSR $A30D B13E 86 F2 STX $F2 ;CIX B140 B0 0A BCS $B14C B142 A5 AF LDA $AF B144 C9 58 CMP #$58 B146 D0 26 BNE $B16E B148 A9 15 LDA #$15 B14A D0 22 BNE $B16E B14C A5 C7 LDA $C7 B14E F0 1C BEQ $B16C B150 A4 C6 LDY $C6 B152 A2 02 LDX #$02 B154 20 0D A3 JSR $A30D B157 86 F2 STX $F2 ;CIX B159 B0 09 BCS $B164 B15B A9 5A LDA #$5A B15D 20 0A A1 JSR $A10A B160 A5 AF LDA $AF B162 90 0A BCC $B16E B164 A9 A4 LDA #$A4 B166 85 96 STA $96 ;POKADR+1 B168 A0 AC LDY #$AC B16A 84 95 STY $95 ;POKADR B16C A9 36 LDA #$36 B16E 20 0A A1 JSR $A10A B171 20 A1 DB JSR $DBA1 B174 20 10 A0 JSR $A010 B177 90 35 BCC $B1AE B179 A4 9F LDY $9F B17B B1 F3 LDA ($F3),Y ;INBUFF B17D C9 9B CMP #$9B B17F D0 06 BNE $B187 B181 C8 INY B182 91 F3 STA ($F3),Y ;INBUFF B184 88 DEY B185 A9 20 LDA #$20 B187 09 80 ORA #$80 B189 91 F3 STA ($F3),Y ;INBUFF B18B A9 40 LDA #$40 B18D 05 A6 ORA $A6 B18F 85 A6 STA $A6 B191 A4 A8 LDY $A8 B193 84 F2 STY $F2 ;CIX B195 A2 03 LDX #$03 B197 86 A7 STX $A7 B199 E8 INX B19A 86 94 STX $94 B19C A9 37 LDA #$37 B19E 20 0A A1 JSR $A10A B1A1 A4 F2 LDY $F2 ;CIX B1A3 B1 F3 LDA ($F3),Y ;INBUFF B1A5 E6 F2 INC $F2 ;CIX B1A7 C9 9B CMP #$9B B1A9 D0 F3 BNE $B19E B1AB 20 0A A1 JSR $A10A B1AE A5 94 LDA $94 B1B0 A4 A7 LDY $A7 B1B2 91 80 STA ($80),Y ;LOMEM B1B4 A4 F2 LDY $F2 ;CIX B1B6 88 DEY B1B7 B1 F3 LDA ($F3),Y ;INBUFF B1B9 C9 9B CMP #$9B B1BB F0 03 BEQ $B1C0 B1BD 4C 2C B1 JMP $B12C B1C0 A0 02 LDY #$02 B1C2 A5 94 LDA $94 B1C4 91 80 STA ($80),Y ;LOMEM B1C6 20 60 B4 JSR $B460 B1C9 A9 00 LDA #$00 B1CB B0 03 BCS $B1D0 B1CD 20 9A B4 JSR $B49A B1D0 38 SEC B1D1 E5 94 SBC $94 B1D3 F0 20 BEQ $B1F5 B1D5 B0 13 BCS $B1EA B1D7 49 FF EOR #$FF B1D9 A8 TAY B1DA C8 INY B1DB A2 8A LDX #$8A B1DD 20 E9 B2 JSR $B2E9 B1E0 A5 97 LDA $97 B1E2 85 8A STA $8A ;STMCUR B1E4 A5 98 LDA $98 B1E6 85 8B STA $8B ;STMCUR+1 B1E8 D0 0B BNE $B1F5 B1EA 48 PHA B1EB 20 90 B4 JSR $B490 B1EE 68 PLA B1EF A8 TAY B1F0 A2 8A LDX #$8A B1F2 20 65 B3 JSR $B365 B1F5 A4 94 LDY $94 B1F7 88 DEY B1F8 B1 80 LDA ($80),Y ;LOMEM B1FA 91 8A STA ($8A),Y ;STMCUR B1FC 98 TYA B1FD D0 F8 BNE $B1F7 B1FF 24 A6 BIT $A6 B201 50 3C BVC $B23F B203 A5 B1 LDA $B1 B205 0A ASL B206 0A ASL B207 0A ASL B208 A8 TAY B209 A2 88 LDX #$88 B20B 20 65 B3 JSR $B365 B20E 38 SEC B20F A5 84 LDA $84 ;VNTD B211 E5 AD SBC $AD B213 A8 TAY B214 A5 85 LDA $85 ;VNTD+1 B216 E5 AE SBC $AE B218 A2 84 LDX #$84 B21A 20 67 B3 JSR $B367 B21D 24 A6 BIT $A6 B21F 10 09 BPL $B22A B221 8D 03 D5 STA $D503 B224 20 DA A6 JSR $A6DA B227 4C 9D B0 JMP $B09D B22A 8D 03 D5 STA $D503 B22D 20 B3 A6 JSR $A6B3 B230 4C 9D B0 JMP $B09D B233 24 93 BIT $93 B235 10 05 BPL $B23C B237 70 03 BVS $B23C B239 20 19 AE JSR $AE19 B23C 4C 9D B0 JMP $B09D B23F 10 F2 BPL $B233 B241 4C CB B3 JMP $B3CB B244 24 93 BIT $93 B246 30 0B BMI $B253 B248 20 60 B4 JSR $B460 B24B B0 E6 BCS $B233 B24D 20 5A B2 JSR $B25A B250 4C 9D B0 JMP $B09D B253 A9 00 LDA #$00 B255 85 93 STA $93 B257 4C 9D B0 JMP $B09D B25A 20 9A B4 JSR $B49A B25D 48 PHA B25E 20 90 B4 JSR $B490 B261 68 PLA B262 A8 TAY B263 A2 8A LDX #$8A B265 4C 65 B3 JMP $B365 B268 20 00 D8 JSR $D800 ;AFP B26B 90 08 BCC $B275 B26D A9 00 LDA #$00 B26F 85 F2 STA $F2 ;CIX B271 A0 80 LDY #$80 B273 30 1E BMI $B293 B275 24 93 BIT $93 B277 10 11 BPL $B28A B279 A5 F2 LDA $F2 ;CIX B27B 48 PHA B27C 20 00 D8 JSR $D800 ;AFP B27F 68 PLA B280 90 04 BCC $B286 B282 85 F2 STA $F2 ;CIX B284 B0 04 BCS $B28A B286 A9 C0 LDA #$C0 B288 85 93 STA $93 B28A 20 97 BA JSR $BA97 B28D A4 D5 LDY $D5 ;FR0+1 B28F 30 DC BMI $B26D B291 A5 D4 LDA $D4 ;FR0 B293 84 A1 STY $A1 B295 85 A0 STA $A0 B297 20 0A A1 JSR $A10A B29A A5 A1 LDA $A1 B29C 85 D5 STA $D5 ;FR0+1 B29E 4C 0A A1 JMP $A10A B2A1 7D 20 20 ADC $2020,X B2A4 20 20 20 JSR $2020 B2A7 20 20 20 JSR $2020 B2AA 20 20 20 JSR $2020 B2AD 20 20 20 JSR $2020 B2B0 20 20 20 JSR $2020 B2B3 20 20 20 JSR $2020 B2B6 20 20 20 JSR $2020 B2B9 20 20 20 JSR $2020 B2BC 7F ??? B2BD 7F ??? B2BE 7F ??? B2BF 41 54 EOR ($54,X) ;ROWCRS B2C1 41 52 EOR ($52,X) ;LMARGN B2C3 49 20 EOR #$20 B2C5 42 ??? B2C6 41 53 EOR ($53,X) ;RMARGN B2C8 49 43 EOR #$43 B2CA 20 58 4C JSR $4C58 B2CD 20 20 20 JSR $2020 B2D0 20 20 20 JSR $2020 B2D3 20 20 20 JSR $2020 B2D6 20 20 20 JSR $2020 B2D9 20 20 9B JSR $9B20 B2DC 00 BRK B2DD 0A ASL B2DE 3F ??? B2DF 00 BRK B2E0 01 01 ORA ($01,X) ;NGFLAG B2E2 00 BRK B2E3 00 BRK B2E4 01 00 ORA ($00,X) B2E6 00 BRK B2E7 28 PLP B2E8 01 A9 ORA ($A9,X) B2EA 00 BRK B2EB 84 A4 STY $A4 B2ED 85 A5 STA $A5 B2EF 38 SEC B2F0 A5 90 LDA $90 ;TOPSTK B2F2 65 A4 ADC $A4 B2F4 A8 TAY B2F5 A5 91 LDA $91 ;TOPSTK+1 B2F7 65 A5 ADC $A5 B2F9 CD E6 02 CMP $02E6 ;MEMTOP+1 B2FC 90 0C BCC $B30A B2FE D0 07 BNE $B307 B300 CC E5 02 CPY $02E5 ;MEMTOP B303 90 05 BCC $B30A B305 F0 03 BEQ $B30A B307 4C 36 B6 JMP $B636 B30A 38 SEC B30B A5 90 LDA $90 ;TOPSTK B30D F5 00 SBC $00,X B30F 85 A2 STA $A2 B311 A5 91 LDA $91 ;TOPSTK+1 B313 F5 01 SBC $01,X ;NGFLAG B315 85 A3 STA $A3 B317 18 CLC B318 75 01 ADC $01,X ;NGFLAG B31A 85 9A STA $9A B31C B5 00 LDA $00,X B31E 85 99 STA $99 B320 85 97 STA $97 B322 65 A4 ADC $A4 B324 85 9B STA $9B B326 B5 01 LDA $01,X ;NGFLAG B328 85 98 STA $98 B32A 65 A5 ADC $A5 B32C 65 A3 ADC $A3 B32E 85 9C STA $9C B330 B5 00 LDA $00,X B332 65 A4 ADC $A4 B334 95 00 STA $00,X B336 B5 01 LDA $01,X ;NGFLAG B338 65 A5 ADC $A5 B33A 95 01 STA $01,X ;NGFLAG B33C E8 INX B33D E8 INX B33E E0 92 CPX #$92 B340 90 EE BCC $B330 B342 85 0F STA $0F ;APPMHI+1 B344 A5 90 LDA $90 ;TOPSTK B346 85 0E STA $0E ;APPMHI B348 A6 A3 LDX $A3 B34A E8 INX B34B A4 A2 LDY $A2 B34D D0 0B BNE $B35A B34F F0 10 BEQ $B361 B351 88 DEY B352 C6 9A DEC $9A B354 C6 9C DEC $9C B356 B1 99 LDA ($99),Y B358 91 9B STA ($9B),Y B35A 88 DEY B35B D0 F9 BNE $B356 B35D B1 99 LDA ($99),Y B35F 91 9B STA ($9B),Y B361 CA DEX B362 D0 ED BNE $B351 B364 60 RTS B365 A9 00 LDA #$00 B367 84 A4 STY $A4 B369 85 A5 STA $A5 B36B 38 SEC B36C A5 90 LDA $90 ;TOPSTK B36E F5 00 SBC $00,X B370 49 FF EOR #$FF B372 A8 TAY B373 C8 INY B374 84 A2 STY $A2 B376 A5 91 LDA $91 ;TOPSTK+1 B378 F5 01 SBC $01,X ;NGFLAG B37A 85 A3 STA $A3 B37C B5 00 LDA $00,X B37E E5 A2 SBC $A2 B380 85 99 STA $99 B382 B5 01 LDA $01,X ;NGFLAG B384 E9 00 SBC #$00 B386 85 9A STA $9A B388 86 9B STX $9B B38A 38 SEC B38B B5 00 LDA $00,X B38D E5 A4 SBC $A4 B38F 95 00 STA $00,X B391 B5 01 LDA $01,X ;NGFLAG B393 E5 A5 SBC $A5 B395 95 01 STA $01,X ;NGFLAG B397 E8 INX B398 E8 INX B399 E0 92 CPX #$92 B39B 90 ED BCC $B38A B39D 85 0F STA $0F ;APPMHI+1 B39F A5 90 LDA $90 ;TOPSTK B3A1 85 0E STA $0E ;APPMHI B3A3 A6 9B LDX $9B B3A5 B5 00 LDA $00,X B3A7 E5 A2 SBC $A2 B3A9 85 9B STA $9B B3AB B5 01 LDA $01,X ;NGFLAG B3AD E9 00 SBC #$00 B3AF 85 9C STA $9C B3B1 A6 A3 LDX $A3 B3B3 E8 INX B3B4 A4 A2 LDY $A2 B3B6 D0 08 BNE $B3C0 B3B8 CA DEX B3B9 D0 05 BNE $B3C0 B3BB 60 RTS B3BC E6 9A INC $9A B3BE E6 9C INC $9C B3C0 B1 99 LDA ($99),Y B3C2 91 9B STA ($9B),Y B3C4 C8 INY B3C5 D0 F9 BNE $B3C0 B3C7 CA DEX B3C8 D0 F2 BNE $B3BC B3CA 60 RTS B3CB A0 02 LDY #$02 B3CD B1 8A LDA ($8A),Y ;STMCUR B3CF 85 9F STA $9F B3D1 C8 INY B3D2 AD 58 05 LDA $0558 B3D5 F0 21 BEQ $B3F8 B3D7 84 A7 STY $A7 B3D9 A9 5B LDA #$5B B3DB 20 C0 B6 JSR $B6C0 B3DE 20 40 B6 JSR $B640 B3E1 A9 5D LDA #$5D B3E3 20 C0 B6 JSR $B6C0 B3E6 20 BE B6 JSR $B6BE B3E9 24 11 BIT $11 ;BRKKEY B3EB 30 05 BMI $B3F2 B3ED 20 8C B5 JSR $B58C B3F0 D0 4A BNE $B43C B3F2 A4 A7 LDY $A7 B3F4 C4 9F CPY $9F B3F6 B0 21 BCS $B419 B3F8 B1 8A LDA ($8A),Y ;STMCUR B3FA 85 A7 STA $A7 B3FC C8 INY B3FD B1 8A LDA ($8A),Y ;STMCUR B3FF C8 INY B400 84 A8 STY $A8 B402 20 08 B4 JSR $B408 B405 4C E9 B3 JMP $B3E9 B408 0A ASL B409 AA TAX B40A 8D 00 D5 STA $D500 B40D BD 73 AC LDA $AC73,X B410 48 PHA B411 BD 74 AC LDA $AC74,X B414 48 PHA B415 8D 03 D5 STA $D503 B418 60 RTS B419 A0 01 LDY #$01 B41B B1 8A LDA ($8A),Y ;STMCUR B41D 30 20 BMI $B43F B41F 24 11 BIT $11 ;BRKKEY B421 30 07 BMI $B42A B423 20 8C B5 JSR $B58C B426 D0 14 BNE $B43C B428 A0 01 LDY #$01 B42A 18 CLC B42B A5 9F LDA $9F B42D 65 8A ADC $8A ;STMCUR B42F 85 8A STA $8A ;STMCUR B431 90 02 BCC $B435 B433 E6 8B INC $8B ;STMCUR+1 B435 B1 8A LDA ($8A),Y ;STMCUR B437 10 92 BPL $B3CB B439 4C 23 BA JMP $BA23 B43C 4C 29 BA JMP $BA29 B43F 4C 97 B0 JMP $B097 B442 E6 A8 INC $A8 B444 B1 8A LDA ($8A),Y ;STMCUR B446 0A ASL B447 A8 TAY B448 A5 C5 LDA $C5 B44A F0 08 BEQ $B454 B44C B1 C4 LDA ($C4),Y B44E 48 PHA B44F C8 INY B450 B1 C4 LDA ($C4),Y B452 48 PHA B453 60 RTS B454 A9 64 LDA #$64 B456 85 CA STA $CA ;LOADFLG B458 A9 FF LDA #$FF B45A 8D 56 05 STA $0556 B45D 20 3A B6 JSR $B63A B460 A2 02 LDX #$02 B462 B5 89 LDA $89,X ;STMTAB+1 B464 95 B3 STA $B3,X B466 B5 87 LDA $87,X ;VVTP+1 B468 95 89 STA $89,X ;STMTAB+1 B46A CA DEX B46B D0 F5 BNE $B462 B46D A0 01 LDY #$01 B46F B1 8A LDA ($8A),Y ;STMCUR B471 C5 A1 CMP $A1 B473 90 0C BCC $B481 B475 D0 09 BNE $B480 B477 A1 8A LDA ($8A,X) ;STMCUR B479 C5 A0 CMP $A0 B47B 90 04 BCC $B481 B47D D0 01 BNE $B480 B47F 18 CLC B480 60 RTS B481 20 9A B4 JSR $B49A B484 20 90 B4 JSR $B490 B487 E6 9B INC $9B B489 D0 E2 BNE $B46D B48B E6 9C INC $9C B48D 4C 6D B4 JMP $B46D B490 18 CLC B491 65 8A ADC $8A ;STMCUR B493 85 8A STA $8A ;STMCUR B495 90 02 BCC $B499 B497 E6 8B INC $8B ;STMCUR+1 B499 60 RTS B49A A0 02 LDY #$02 B49C B1 8A LDA ($8A),Y ;STMCUR B49E 60 RTS B49F A0 01 LDY #$01 B4A1 B1 8A LDA ($8A),Y ;STMCUR B4A3 60 RTS B4A4 20 14 B5 JSR $B514 B4A7 8D 49 05 STA $0549 B4AA AD 49 05 LDA $0549 B4AD 0A ASL B4AE 0A ASL B4AF 0A ASL B4B0 0A ASL B4B1 AA TAX B4B2 30 01 BMI $B4B5 B4B4 60 RTS B4B5 20 12 B6 JSR $B612 B4B8 20 0D B5 JSR $B50D B4BB 30 01 BMI $B4BE B4BD 60 RTS B4BE A0 00 LDY #$00 B4C0 8C FE 02 STY $02FE ;DSPFLG B4C3 C9 80 CMP #$80 B4C5 D0 0E BNE $B4D5 B4C7 84 11 STY $11 ;BRKKEY B4C9 AD 57 05 LDA $0557 B4CC F0 03 BEQ $B4D1 B4CE 4C 00 B0 JMP $B000 B4D1 8D 53 05 STA $0553 B4D4 60 RTS B4D5 AC 49 05 LDY $0549 B4D8 C9 88 CMP #$88 B4DA F0 0F BEQ $B4EB B4DC 85 CA STA $CA ;LOADFLG B4DE C0 07 CPY #$07 B4E0 D0 03 BNE $B4E5 B4E2 20 03 B5 JSR $B503 B4E5 20 FC B8 JSR $B8FC B4E8 4C 3A B6 JMP $B63A B4EB C0 07 CPY #$07 B4ED D0 ED BNE $B4DC B4EF A2 5D LDX #$5D B4F1 E4 C2 CPX $C2 ;PROMPT B4F3 D0 E7 BNE $B4DC B4F5 20 03 B5 JSR $B503 B4F8 AD 66 05 LDA $0566 B4FB F0 03 BEQ $B500 B4FD 20 FA B5 JSR $B5FA B500 4C 8D B0 JMP $B08D B503 20 AA B4 JSR $B4AA B506 F0 0B BEQ $B513 B508 A9 0C LDA #$0C B50A 4C 39 B5 JMP $B539 B50D 20 AA B4 JSR $B4AA B510 BD 43 03 LDA $0343,X ;B0-ICSTA B513 60 RTS B514 E6 A8 INC $A8 B516 20 9A BF JSR $BF9A B519 A5 D4 LDA $D4 ;FR0 B51B 60 RTS B51C A0 FF LDY #$FF B51E D0 02 BNE $B522 B520 A0 00 LDY #$00 B522 A9 00 LDA #$00 B524 9D 49 03 STA $0349,X ;B0-ICBLH B527 98 TYA B528 9D 48 03 STA $0348,X ;B0-ICBLL B52B A5 F4 LDA $F4 ;INBUFF+1 B52D A4 F3 LDY $F3 ;INBUFF B52F 9D 45 03 STA $0345,X ;B0-ICBAH B532 98 TYA B533 9D 44 03 STA $0344,X ;B0-ICBAL B536 AD 48 05 LDA $0548 B539 9D 42 03 STA $0342,X ;B0-ICCOM B53C 4C 56 E4 JMP $E456 ;CIOV B53F A9 04 LDA #$04 B541 20 53 B5 JSR $B553 B544 8D 53 05 STA $0553 B547 4C 9D B0 JMP $B09D B54A A9 08 LDA #$08 B54C 20 53 B5 JSR $B553 B54F 8D 54 05 STA $0554 B552 60 RTS B553 48 PHA B554 A0 07 LDY #$07 B556 8C 49 05 STY $0549 B559 20 AA B4 JSR $B4AA B55C A9 0C LDA #$0C B55E 20 39 B5 JSR $B539 B561 A0 03 LDY #$03 B563 8C 48 05 STY $0548 B566 20 AA B4 JSR $B4AA B569 68 PLA B56A 9D 4A 03 STA $034A,X ;B0-ICAX1 B56D A9 00 LDA #$00 B56F 9D 4B 03 STA $034B,X ;B0-ICAX2 B572 9D 4C 03 STA $034C,X ;B0-ICAX3 B575 9D 4D 03 STA $034D,X ;B0-ICAX4 B578 20 19 B7 JSR $B719 B57B A9 07 LDA #$07 B57D 60 RTS B57E A9 0C LDA #$0C B580 8D 48 05 STA $0548 B583 20 A4 B4 JSR $B4A4 B586 20 36 B5 JSR $B536 B589 4C B8 B4 JMP $B4B8 B58C A0 00 LDY #$00 B58E A5 11 LDA $11 ;BRKKEY B590 D0 10 BNE $B5A2 B592 84 93 STY $93 B594 88 DEY B595 84 11 STY $11 ;BRKKEY B597 8D FE 02 STA $02FE ;DSPFLG B59A AD 5D 05 LDA $055D B59D F0 03 BEQ $B5A2 B59F 10 03 BPL $B5A4 B5A1 C8 INY B5A2 98 TYA B5A3 60 RTS B5A4 20 38 B6 JSR $B638 B5A7 AD 6E 05 LDA $056E B5AA F0 0C BEQ $B5B8 B5AC AD 5A 05 LDA $055A B5AF 8D E5 02 STA $02E5 ;MEMTOP B5B2 AD 5B 05 LDA $055B B5B5 8D E6 02 STA $02E6 ;MEMTOP+1 B5B8 A9 22 LDA #$22 B5BA 8D 2F 02 STA $022F ;SDMCTL B5BD A9 00 LDA #$00 B5BF 8D 1D D0 STA $D01D ;GRACTL B5C2 8D 6E 05 STA $056E B5C5 A2 04 LDX #$04 B5C7 9D 0D D0 STA $D00D,X ;P1PL B5CA 9D 00 D0 STA $D000,X ;M0PF B5CD 9D 04 D0 STA $D004,X ;P0PF B5D0 CA DEX B5D1 10 F4 BPL $B5C7 B5D3 60 RTS B5D4 20 3D A9 JSR $A93D B5D7 AA TAX B5D8 E8 INX B5D9 E8 INX B5DA E8 INX B5DB E8 INX B5DC 29 FC AND #$FC B5DE F0 02 BEQ $B5E2 B5E0 A2 03 LDX #$03 B5E2 8A TXA B5E3 A0 00 LDY #$00 B5E5 AE 6E 05 LDX $056E B5E8 F0 14 BEQ $B5FE B5EA E0 01 CPX #$01 B5EC F0 05 BEQ $B5F3 B5EE 4A LSR B5EF 90 02 BCC $B5F3 B5F1 A0 80 LDY #$80 B5F3 18 CLC B5F4 6D 5C 05 ADC $055C B5F7 60 RTS B5F8 E6 CA INC $CA ;LOADFLG B5FA E6 CA INC $CA ;LOADFLG B5FC E6 CA INC $CA ;LOADFLG B5FE E6 CA INC $CA ;LOADFLG B600 E6 CA INC $CA ;LOADFLG B602 E6 CA INC $CA ;LOADFLG B604 E6 CA INC $CA ;LOADFLG B606 E6 CA INC $CA ;LOADFLG B608 E6 CA INC $CA ;LOADFLG B60A E6 CA INC $CA ;LOADFLG B60C E6 CA INC $CA ;LOADFLG B60E E6 CA INC $CA ;LOADFLG B610 E6 CA INC $CA ;LOADFLG B612 E6 CA INC $CA ;LOADFLG B614 E6 CA INC $CA ;LOADFLG B616 E6 CA INC $CA ;LOADFLG B618 E6 CA INC $CA ;LOADFLG B61A E6 CA INC $CA ;LOADFLG B61C E6 CA INC $CA ;LOADFLG B61E E6 CA INC $CA ;LOADFLG B620 E6 CA INC $CA ;LOADFLG B622 E6 CA INC $CA ;LOADFLG B624 E6 CA INC $CA ;LOADFLG B626 E6 CA INC $CA ;LOADFLG B628 E6 CA INC $CA ;LOADFLG B62A E6 CA INC $CA ;LOADFLG B62C E6 CA INC $CA ;LOADFLG B62E E6 CA INC $CA ;LOADFLG B630 E6 CA INC $CA ;LOADFLG B632 E6 CA INC $CA ;LOADFLG B634 E6 CA INC $CA ;LOADFLG B636 E6 CA INC $CA ;LOADFLG B638 E6 CA INC $CA ;LOADFLG B63A 8D 00 D5 STA $D500 B63D 4C 7F AB JMP $AB7F B640 A0 01 LDY #$01 B642 B1 8A LDA ($8A),Y ;STMCUR B644 85 D5 STA $D5 ;FR0+1 B646 88 DEY B647 B1 8A LDA ($8A),Y ;STMCUR B649 85 D4 STA $D4 ;FR0 B64B 20 AA D9 JSR $D9AA ;IFP B64E 20 E6 D8 JSR $D8E6 ;FASC B651 A6 F3 LDX $F3 ;INBUFF B653 A4 F4 LDY $F4 ;INBUFF+1 B655 86 95 STX $95 ;POKADR B657 84 96 STY $96 ;POKADR+1 B659 4C A9 B8 JMP $B8A9 B65C 85 93 STA $93 B65E 20 19 AE JSR $AE19 B661 A5 B7 LDA $B7 ;DATALN B663 85 A0 STA $A0 B665 85 D4 STA $D4 ;FR0 B667 A5 B8 LDA $B8 ;DATALN+1 B669 85 A1 STA $A1 B66B 85 D5 STA $D5 ;FR0+1 B66D 20 60 B4 JSR $B460 B670 B0 0C BCS $B67E B672 A9 80 LDA #$80 B674 24 93 BIT $93 B676 70 E4 BVS $B65C B678 0A ASL B679 85 93 STA $93 B67B 4C 84 B0 JMP $B084 B67E 20 4B B6 JSR $B64B B681 20 BE B6 JSR $B6BE B684 A4 AF LDY $AF B686 B1 95 LDA ($95),Y ;POKADR B688 29 7F AND #$7F B68A 91 95 STA ($95),Y ;POKADR B68C C8 INY B68D A9 20 LDA #$20 B68F 91 95 STA ($95),Y ;POKADR B691 84 AF STY $AF B693 38 SEC B694 98 TYA B695 65 F3 ADC $F3 ;INBUFF B697 85 F3 STA $F3 ;INBUFF B699 A9 8C LDA #$8C B69B E5 AF SBC $AF B69D A8 TAY B69E 4C B0 B6 JMP $B6B0 B6A1 24 93 BIT $93 B6A3 30 BC BMI $B661 B6A5 10 07 BPL $B6AE B6A7 A5 C2 LDA $C2 ;PROMPT B6A9 F0 03 BEQ $B6AE B6AB 20 C0 B6 JSR $B6C0 B6AE A0 FF LDY #$FF B6B0 AE 53 05 LDX $0553 B6B3 A9 05 LDA #$05 B6B5 20 ED B6 JSR $B6ED B6B8 20 22 B5 JSR $B522 B6BB 4C B8 B4 JMP $B4B8 B6BE A9 20 LDA #$20 B6C0 AE 54 05 LDX $0554 B6C3 48 PHA B6C4 20 F0 B6 JSR $B6F0 B6C7 FE 4F 03 INC $034F,X ;B0-ICAX6 B6CA BD 40 03 LDA $0340,X ;B0-ICHID B6CD 30 27 BMI $B6F6 B6CF 68 PLA B6D0 A8 TAY B6D1 C9 9B CMP #$9B B6D3 D0 05 BNE $B6DA B6D5 A9 00 LDA #$00 B6D7 9D 4F 03 STA $034F,X ;B0-ICAX6 B6DA 20 E1 B6 JSR $B6E1 B6DD 98 TYA B6DE 4C BB B4 JMP $B4BB B6E1 BD 47 03 LDA $0347,X ;B0-ICPTH B6E4 48 PHA B6E5 BD 46 03 LDA $0346,X ;B0-ICPTL B6E8 48 PHA B6E9 98 TYA B6EA A0 92 LDY #$92 B6EC 60 RTS B6ED 8D 48 05 STA $0548 B6F0 8E 49 05 STX $0549 B6F3 4C AA B4 JMP $B4AA B6F6 A9 85 LDA #$85 B6F8 85 CA STA $CA ;LOADFLG B6FA 4C 3A B6 JMP $B63A B6FD 48 PHA B6FE A9 03 LDA #$03 B700 20 ED B6 JSR $B6ED B703 68 PLA B704 9D 4B 03 STA $034B,X ;B0-ICAX2 B707 98 TYA B708 9D 4A 03 STA $034A,X ;B0-ICAX1 B70B 20 2B B5 JSR $B52B B70E 4C 51 DA JMP $DA51 B711 9D 4A 03 STA $034A,X ;B0-ICAX1 B714 A5 D4 LDA $D4 ;FR0 B716 9D 4B 03 STA $034B,X ;B0-ICAX2 B719 8D 04 D5 STA $D504 B71C A4 A8 LDY $A8 B71E C8 INY B71F C4 A7 CPY $A7 B721 90 0C BCC $B72F B723 A2 07 LDX #$07 B725 BD 47 B7 LDA $B747,X B728 95 D2 STA $D2,X B72A CA DEX B72B 10 F8 BPL $B725 B72D 30 03 BMI $B732 B72F 20 7C A1 JSR $A17C B732 20 6C BA JSR $BA6C B735 8D 03 D5 STA $D503 B738 20 AA B4 JSR $B4AA B73B 20 1C B5 JSR $B51C B73E 20 8C BA JSR $BA8C B741 20 51 DA JSR $DA51 B744 4C B8 B4 JMP $B4B8 B747 83 ??? B748 00 BRK B749 5B ??? B74A B7 ??? B74B 06 00 ASL $00 B74D 06 00 ASL $00 B74F FF ??? B750 FF ??? B751 FF ??? B752 FF ??? B753 FF ??? B754 FF ??? B755 8D 03 D5 STA $D503 B758 4C 52 BD JMP $BD52 B75B 44 ??? B75C 3A ??? B75D 2A ROL B75E 2A ROL B75F 2E 2A 9B ROL $9B2A B762 A4 AA LDY $AA B764 A2 F8 LDX #$F8 B766 B5 DA LDA $DA,X ;FRE B768 91 80 STA ($80),Y ;LOMEM B76A C8 INY B76B E8 INX B76C D0 F8 BNE $B766 B76E C4 A9 CPY $A9 B770 B0 03 BCS $B775 B772 84 AA STY $AA B774 60 RTS B775 4C 26 B6 JMP $B626 B778 A4 AA LDY $AA B77A A2 07 LDX #$07 B77C 88 DEY B77D B1 80 LDA ($80),Y ;LOMEM B77F 95 D2 STA $D2,X B781 CA DEX B782 10 F8 BPL $B77C B784 84 AA STY $AA B786 60 RTS B787 A4 AA LDY $AA B789 A2 05 LDX #$05 B78B 88 DEY B78C B1 80 LDA ($80),Y ;LOMEM B78E 95 E0 STA $E0,X ;FR1 B790 CA DEX B791 10 F8 BPL $B78B B793 88 DEY B794 88 DEY B795 84 AA STY $AA B797 60 RTS B798 A0 00 LDY #$00 B79A 84 9E STY $9E B79C 0A ASL B79D 0A ASL B79E 26 9E ROL $9E B7A0 0A ASL B7A1 26 9E ROL $9E B7A3 18 CLC B7A4 65 86 ADC $86 ;VVTP B7A6 85 9D STA $9D B7A8 A5 87 LDA $87 ;VVTP+1 B7AA 65 9E ADC $9E B7AC 85 9E STA $9E B7AE 60 RTS B7AF B5 00 LDA $00,X B7B1 D0 06 BNE $B7B9 B7B3 B5 01 LDA $01,X ;NGFLAG B7B5 F0 05 BEQ $B7BC B7B7 D6 01 DEC $01,X ;NGFLAG B7B9 D6 00 DEC $00,X B7BB A8 TAY B7BC 60 RTS B7BD 06 F5 ASL $F5 ;ZTEMP1 B7BF 26 F6 ROL $F6 ;ZTEMP1+1 B7C1 A4 F6 LDY $F6 ;ZTEMP1+1 B7C3 A5 F5 LDA $F5 ;ZTEMP1 B7C5 06 F5 ASL $F5 ;ZTEMP1 B7C7 26 F6 ROL $F6 ;ZTEMP1+1 B7C9 18 CLC B7CA 65 F5 ADC $F5 ;ZTEMP1 B7CC 85 F5 STA $F5 ;ZTEMP1 B7CE 98 TYA B7CF 65 F6 ADC $F6 ;ZTEMP1+1 B7D1 85 F6 STA $F6 ;ZTEMP1+1 B7D3 60 RTS B7D4 A9 00 LDA #$00 B7D6 85 F7 STA $F7 ;ZTEMP4 B7D8 85 F8 STA $F8 ;ZTEMP4+1 B7DA A0 10 LDY #$10 B7DC A5 F5 LDA $F5 ;ZTEMP1 B7DE 4A LSR B7DF 90 0D BCC $B7EE B7E1 18 CLC B7E2 A5 F7 LDA $F7 ;ZTEMP4 B7E4 65 D8 ADC $D8 ;FR0+4 B7E6 85 F7 STA $F7 ;ZTEMP4 B7E8 A5 F8 LDA $F8 ;ZTEMP4+1 B7EA 65 D9 ADC $D9 ;FR0+5 B7EC 85 F8 STA $F8 ;ZTEMP4+1 B7EE 66 F8 ROR $F8 ;ZTEMP4+1 B7F0 66 F7 ROR $F7 ;ZTEMP4 B7F2 66 F6 ROR $F6 ;ZTEMP1+1 B7F4 66 F5 ROR $F5 ;ZTEMP1 B7F6 88 DEY B7F7 D0 E3 BNE $B7DC B7F9 60 RTS B7FA E6 A8 INC $A8 B7FC A4 A8 LDY $A8 B7FE B1 8A LDA ($8A),Y ;STMCUR B800 C9 16 CMP #$16 B802 F0 0E BEQ $B812 B804 C9 14 CMP #$14 B806 F0 0A BEQ $B812 B808 C9 12 CMP #$12 B80A F0 EE BEQ $B7FA B80C C9 15 CMP #$15 B80E F0 EA BEQ $B7FA B810 A9 FF LDA #$FF B812 60 RTS B813 20 A1 DB JSR $DBA1 B816 B1 F3 LDA ($F3),Y ;INBUFF B818 C9 24 CMP #$24 B81A F0 03 BEQ $B81F B81C 4C 00 D8 JMP $D800 ;AFP B81F A5 AC LDA $AC B821 48 PHA B822 8D 00 D5 STA $D500 B825 20 76 A2 JSR $A276 B828 8D 04 D5 STA $D504 B82B 68 PLA B82C 85 AC STA $AC B82E 60 RTS B82F A9 00 LDA #$00 B831 8D 49 05 STA $0549 B834 A4 A8 LDY $A8 B836 B1 8A LDA ($8A),Y ;STMCUR B838 C9 1B CMP #$1B B83A D0 03 BNE $B83F B83C 20 A4 B4 JSR $B4A4 B83F 20 9A BF JSR $BF9A B842 20 AA B4 JSR $B4AA B845 A5 D4 LDA $D4 ;FR0 B847 38 SEC B848 FD 4F 03 SBC $034F,X ;B0-ICAX6 B84B 10 05 BPL $B852 B84D 20 C1 B8 JSR $B8C1 B850 A5 D4 LDA $D4 ;FR0 B852 85 D4 STA $D4 ;FR0 B854 F0 07 BEQ $B85D B856 20 BE B6 JSR $B6BE B859 C6 D4 DEC $D4 ;FR0 B85B D0 F9 BNE $B856 B85D 60 RTS B85E 8D 00 D5 STA $D500 B861 A9 00 LDA #$00 B863 AE 62 05 LDX $0562 B866 D0 02 BNE $B86A B868 A9 40 LDA #$40 B86A 85 E3 STA $E3 ;FR1+3 B86C A0 FF LDY #$FF B86E 84 AF STY $AF B870 E6 AF INC $AF B872 A4 AF LDY $AF B874 B1 95 LDA ($95),Y ;POKADR B876 48 PHA B877 C9 9B CMP #$9B B879 F0 20 BEQ $B89B B87B 29 7F AND #$7F B87D F0 1F BEQ $B89E B87F 24 E3 BIT $E3 ;FR1+3 B881 70 18 BVS $B89B B883 10 0C BPL $B891 B885 C9 41 CMP #$41 B887 90 12 BCC $B89B B889 C9 5B CMP #$5B B88B B0 0E BCS $B89B B88D 69 20 ADC #$20 B88F 90 0A BCC $B89B B891 A2 80 LDX #$80 B893 C9 41 CMP #$41 B895 B0 02 BCS $B899 B897 A2 40 LDX #$40 B899 86 E3 STX $E3 ;FR1+3 B89B 20 C0 B6 JSR $B6C0 B89E 68 PLA B89F 10 CF BPL $B870 B8A1 A9 00 LDA #$00 B8A3 85 E3 STA $E3 ;FR1+3 B8A5 8D 03 D5 STA $D503 B8A8 60 RTS B8A9 A0 FF LDY #$FF B8AB 84 AF STY $AF B8AD E6 AF INC $AF B8AF A4 AF LDY $AF B8B1 B1 95 LDA ($95),Y ;POKADR B8B3 08 PHP B8B4 C9 9B CMP #$9B B8B6 F0 02 BEQ $B8BA B8B8 29 7F AND #$7F B8BA 20 C0 B6 JSR $B6C0 B8BD 28 PLP B8BE 10 ED BPL $B8AD B8C0 60 RTS B8C1 A9 9B LDA #$9B B8C3 4C C0 B6 JMP $B6C0 B8C6 A0 00 LDY #$00 B8C8 8D 04 D5 STA $D504 B8CB 48 PHA B8CC 98 TYA B8CD 48 PHA B8CE 20 7C A1 JSR $A17C B8D1 68 PLA B8D2 85 D5 STA $D5 ;FR0+1 B8D4 68 PLA B8D5 85 D4 STA $D4 ;FR0 B8D7 20 AA D9 JSR $D9AA ;IFP B8DA 20 BA A2 JSR $A2BA B8DD 8D 03 D5 STA $D503 B8E0 60 RTS B8E1 20 A7 B5 JSR $B5A7 B8E4 A9 00 LDA #$00 B8E6 A2 07 LDX #$07 B8E8 9D 00 D2 STA $D200,X ;POT0 B8EB CA DEX B8EC D0 FA BNE $B8E8 B8EE A0 07 LDY #$07 B8F0 8C 49 05 STY $0549 B8F3 20 03 B5 JSR $B503 B8F6 CE 49 05 DEC $0549 B8F9 D0 F8 BNE $B8F3 B8FB 60 RTS B8FC A9 00 LDA #$00 B8FE 8D 53 05 STA $0553 B901 8D 54 05 STA $0554 B904 60 RTS B905 18 CLC B906 A9 00 LDA #$00 B908 85 93 STA $93 B90A F0 06 BEQ $B912 B90C 38 SEC B90D A5 B9 LDA $B9 B90F F0 01 BEQ $B912 B911 60 RTS B912 08 PHP B913 20 C0 B9 JSR $B9C0 B916 A9 0A LDA #$0A B918 85 B7 STA $B7 ;DATALN B91A 85 BC STA $BC B91C A9 00 LDA #$00 B91E 85 B8 STA $B8 ;DATALN+1 B920 85 BD STA $BD B922 A4 A8 LDY $A8 B924 B1 8A LDA ($8A),Y ;STMCUR B926 C9 12 CMP #$12 B928 D0 04 BNE $B92E B92A E6 A8 INC $A8 B92C B0 13 BCS $B941 B92E C8 INY B92F C4 A7 CPY $A7 B931 B0 17 BCS $B94A B933 A9 B7 LDA #$B7 B935 C6 93 DEC $93 B937 20 F6 B9 JSR $B9F6 B93A A4 A8 LDY $A8 B93C C8 INY B93D C4 A7 CPY $A7 B93F B0 09 BCS $B94A B941 A9 BC LDA #$BC B943 20 F6 B9 JSR $B9F6 B946 05 D4 ORA $D4 ;FR0 B948 F0 10 BEQ $B95A B94A 28 PLP B94B 90 37 BCC $B984 B94D A2 80 LDX #$80 B94F A0 00 LDY #$00 B951 84 93 STY $93 B953 20 6D BF JSR $BF6D B956 90 1C BCC $B974 B958 E6 CA INC $CA ;LOADFLG B95A E6 CA INC $CA ;LOADFLG B95C 20 C9 B9 JSR $B9C9 B95F 4C F8 B5 JMP $B5F8 B962 A9 40 LDA #$40 B964 24 B9 BIT $B9 B966 30 07 BMI $B96F B968 60 RTS B969 A9 80 LDA #$80 B96B 24 B9 BIT $B9 B96D 30 F9 BMI $B968 B96F 85 B9 STA $B9 B971 20 C0 B9 JSR $B9C0 B974 A0 02 LDY #$02 B976 A5 88 LDA $88 ;STMTAB B978 85 8A STA $8A ;STMCUR B97A A5 89 LDA $89 ;STMTAB+1 B97C 85 8B STA $8B ;STMCUR+1 B97E 8D 00 D5 STA $D500 B981 4C 5C AE JMP $AE5C B984 A9 00 LDA #$00 B986 24 93 BIT $93 B988 85 93 STA $93 B98A 30 2A BMI $B9B6 B98C 85 A0 STA $A0 B98E 85 A1 STA $A1 B990 20 60 B4 JSR $B460 B993 20 9F B4 JSR $B49F B996 30 0F BMI $B9A7 B998 85 A1 STA $A1 B99A 88 DEY B99B B1 8A LDA ($8A),Y ;STMCUR B99D 85 A0 STA $A0 B99F 20 9A B4 JSR $B49A B9A2 20 90 B4 JSR $B490 B9A5 D0 EC BNE $B993 B9A7 18 CLC B9A8 A5 A0 LDA $A0 B9AA 65 BC ADC $BC B9AC 85 B7 STA $B7 ;DATALN B9AE A5 A1 LDA $A1 B9B0 65 BD ADC $BD B9B2 85 B8 STA $B8 ;DATALN+1 B9B4 30 07 BMI $B9BD B9B6 A9 80 LDA #$80 B9B8 85 93 STA $93 B9BA 4C 97 B0 JMP $B097 B9BD 20 2C B6 JSR $B62C B9C0 A5 8A LDA $8A ;STMCUR B9C2 85 99 STA $99 B9C4 A5 8B LDA $8B ;STMCUR+1 B9C6 85 9A STA $9A B9C8 60 RTS B9C9 A5 9A LDA $9A B9CB 85 8B STA $8B ;STMCUR+1 B9CD A5 99 LDA $99 B9CF 85 8A STA $8A ;STMCUR B9D1 60 RTS B9D2 24 B9 BIT $B9 B9D4 30 02 BMI $B9D8 B9D6 50 02 BVC $B9DA B9D8 CA DEX B9D9 CA DEX B9DA DD E4 B9 CMP $B9E4,X B9DD F0 04 BEQ $B9E3 B9DF CA DEX B9E0 10 F8 BPL $B9DA B9E2 18 CLC B9E3 60 RTS B9E4 40 RTI B9E5 04 ??? B9E6 07 ??? B9E7 1E 0B 0C ASL $0C0B,X B9EA 0A ASL B9EB 23 ??? B9EC 0D 00 00 ORA $0000 B9EF FF ??? B9F0 FF ??? B9F1 00 BRK B9F2 00 BRK B9F3 00 BRK B9F4 00 BRK B9F5 00 BRK B9F6 48 PHA B9F7 20 9A BF JSR $BF9A B9FA 68 PLA B9FB AA TAX B9FC A5 D4 LDA $D4 ;FR0 B9FE 95 00 STA $00,X BA00 A5 D5 LDA $D5 ;FR0+1 BA02 95 01 STA $01,X ;NGFLAG BA04 60 RTS BA05 A5 B4 LDA $B4 BA07 85 8A STA $8A ;STMCUR BA09 A5 B5 LDA $B5 BA0B 85 8B STA $8B ;STMCUR+1 BA0D 60 RTS BA0E A0 00 LDY #$00 BA10 84 CA STY $CA ;LOADFLG BA12 84 FB STY $FB ;RADFLG BA14 84 B6 STY $B6 ;DATAD BA16 84 B7 STY $B7 ;DATALN BA18 84 B8 STY $B8 ;DATALN+1 BA1A 88 DEY BA1B 8C 56 05 STY $0556 BA1E 84 BB STY $BB ;STOPLN+1 BA20 4C E1 B8 JMP $B8E1 BA23 20 45 BA JSR $BA45 BA26 4C 8A B0 JMP $B08A BA29 A9 00 LDA #$00 BA2B 8D FE 02 STA $02FE ;DSPFLG BA2E 20 45 BA JSR $BA45 BA31 20 C1 B8 JSR $B8C1 BA34 A9 52 LDA #$52 BA36 85 95 STA $95 ;POKADR BA38 A9 BA LDA #$BA BA3A 85 96 STA $96 ;POKADR+1 BA3C 20 A9 B8 JSR $B8A9 BA3F 8D 00 D5 STA $D500 BA42 4C 10 AC JMP $AC10 BA45 A0 01 LDY #$01 BA47 B1 8A LDA ($8A),Y ;STMCUR BA49 99 BA 00 STA $00BA,Y ;STOPLN BA4C 88 DEY BA4D 10 F8 BPL $BA47 BA4F 4C FC B8 JMP $B8FC BA52 53 ??? BA53 54 ??? BA54 4F ??? BA55 50 50 BVC $BAA7 BA57 45 C4 EOR $C4 BA59 20 60 B4 JSR $B460 BA5C A0 02 LDY #$02 BA5E B1 8A LDA ($8A),Y ;STMCUR BA60 85 9F STA $9F BA62 C8 INY BA63 84 A7 STY $A7 BA65 60 RTS BA66 A6 A8 LDX $A8 BA68 E8 INX BA69 E4 A7 CPX $A7 BA6B 60 RTS BA6C 20 6E A2 JSR $A26E BA6F A5 D4 LDA $D4 ;FR0 BA71 85 F3 STA $F3 ;INBUFF BA73 A5 D5 LDA $D5 ;FR0+1 BA75 85 F4 STA $F4 ;INBUFF+1 BA77 A4 D6 LDY $D6 ;FR0+2 BA79 A6 D7 LDX $D7 ;FR0+3 BA7B F0 02 BEQ $BA7F BA7D A0 FF LDY #$FF BA7F B1 F3 LDA ($F3),Y ;INBUFF BA81 85 97 STA $97 BA83 84 98 STY $98 BA85 A9 9B LDA #$9B BA87 91 F3 STA ($F3),Y ;INBUFF BA89 85 92 STA $92 ;MEOLFLG BA8B 60 RTS BA8C A4 98 LDY $98 BA8E A5 97 LDA $97 BA90 91 F3 STA ($F3),Y ;INBUFF BA92 A9 00 LDA #$00 BA94 85 92 STA $92 ;MEOLFLG BA96 60 RTS BA97 20 A0 BA JSR $BAA0 BA9A B0 01 BCS $BA9D BA9C 60 RTS BA9D 20 34 B6 JSR $B634 BAA0 A9 00 LDA #$00 BAA2 85 F7 STA $F7 ;ZTEMP4 BAA4 85 F8 STA $F8 ;ZTEMP4+1 BAA6 A5 D4 LDA $D4 ;FR0 BAA8 30 0C BMI $BAB6 BAAA C9 42 CMP #$42 BAAC 90 0A BCC $BAB8 BAAE D0 06 BNE $BAB6 BAB0 A6 D5 LDX $D5 ;FR0+1 BAB2 E0 07 CPX #$07 BAB4 90 02 BCC $BAB8 BAB6 38 SEC BAB7 60 RTS BAB8 38 SEC BAB9 E9 3F SBC #$3F BABB 30 67 BMI $BB24 BABD AA TAX BABE B5 D5 LDA $D5,X ;FR0+1 BAC0 C9 50 CMP #$50 BAC2 90 04 BCC $BAC8 BAC4 A9 01 LDA #$01 BAC6 85 F7 STA $F7 ;ZTEMP4 BAC8 CA DEX BAC9 30 59 BMI $BB24 BACB B5 D5 LDA $D5,X ;FR0+1 BACD 4A LSR BACE 4A LSR BACF 4A LSR BAD0 4A LSR BAD1 A8 TAY BAD2 B5 D5 LDA $D5,X ;FR0+1 BAD4 29 0F AND #$0F BAD6 18 CLC BAD7 79 2E BB ADC $BB2E,Y BADA 65 F7 ADC $F7 ;ZTEMP4 BADC 85 F7 STA $F7 ;ZTEMP4 BADE CA DEX BADF 30 43 BMI $BB24 BAE1 B5 D5 LDA $D5,X ;FR0+1 BAE3 29 0F AND #$0F BAE5 A8 TAY BAE6 B9 38 BB LDA $BB38,Y BAE9 18 CLC BAEA 65 F7 ADC $F7 ;ZTEMP4 BAEC 85 F7 STA $F7 ;ZTEMP4 BAEE B9 42 BB LDA $BB42,Y BAF1 65 F8 ADC $F8 ;ZTEMP4+1 BAF3 85 F8 STA $F8 ;ZTEMP4+1 BAF5 B5 D5 LDA $D5,X ;FR0+1 BAF7 4A LSR BAF8 4A LSR BAF9 4A LSR BAFA 4A LSR BAFB A8 TAY BAFC 18 CLC BAFD B9 4C BB LDA $BB4C,Y BB00 65 F7 ADC $F7 ;ZTEMP4 BB02 85 F7 STA $F7 ;ZTEMP4 BB04 B9 56 BB LDA $BB56,Y BB07 65 F8 ADC $F8 ;ZTEMP4+1 BB09 85 F8 STA $F8 ;ZTEMP4+1 BB0B CA DEX BB0C 30 16 BMI $BB24 BB0E B5 D5 LDA $D5,X ;FR0+1 BB10 29 0F AND #$0F BB12 A8 TAY BB13 18 CLC BB14 B9 60 BB LDA $BB60,Y BB17 65 F7 ADC $F7 ;ZTEMP4 BB19 85 F7 STA $F7 ;ZTEMP4 BB1B B9 6A BB LDA $BB6A,Y BB1E 65 F8 ADC $F8 ;ZTEMP4+1 BB20 85 F8 STA $F8 ;ZTEMP4+1 BB22 B0 92 BCS $BAB6 BB24 A5 F7 LDA $F7 ;ZTEMP4 BB26 85 D4 STA $D4 ;FR0 BB28 A5 F8 LDA $F8 ;ZTEMP4+1 BB2A 85 D5 STA $D5 ;FR0+1 BB2C 18 CLC BB2D 60 RTS BB2E 00 BRK BB2F 0A ASL BB30 14 ??? BB31 1E 28 32 ASL $3228,X BB34 3C ??? BB35 46 50 LSR $50 ;TEMP BB37 5A ??? BB38 00 BRK BB39 64 ??? BB3A C8 INY BB3B 2C 90 F4 BIT $F490 BB3E 58 CLI BB3F BC 20 84 LDY $8420,X BB42 00 BRK BB43 00 BRK BB44 00 BRK BB45 01 01 ORA ($01,X) ;NGFLAG BB47 01 02 ORA ($02,X) ;CASINI BB49 02 ??? BB4A 03 ??? BB4B 03 ??? BB4C 00 BRK BB4D E8 INX BB4E D0 B8 BNE $BB08 BB50 A0 88 LDY #$88 BB52 70 58 BVS $BBAC BB54 40 RTI BB55 28 PLP BB56 00 BRK BB57 03 ??? BB58 07 ??? BB59 0B ??? BB5A 0F ??? BB5B 13 ??? BB5C 17 ??? BB5D 1B ??? BB5E 1F ??? BB5F 23 ??? BB60 00 BRK BB61 10 20 BPL $BB83 BB63 30 40 BMI $BBA5 BB65 50 60 BVC $BBC7 BB67 07 ??? BB68 08 PHP BB69 09 00 ORA #$00 BB6B 27 ??? BB6C 4E 75 9C LSR $9C75 BB6F C3 ??? BB70 EA NOP BB71 07 ??? BB72 08 PHP BB73 09 20 ORA #$20 BB75 97 ??? BB76 BA TSX BB77 20 51 DA JSR $DA51 BB7A A5 D5 LDA $D5 ;FR0+1 BB7C A2 00 LDX #$00 BB7E F0 11 BEQ $BB91 BB80 20 A0 BA JSR $BAA0 BB83 20 51 DA JSR $DA51 BB86 A9 24 LDA #$24 BB88 8D 80 05 STA $0580 BB8B A2 01 LDX #$01 BB8D A5 D5 LDA $D5 ;FR0+1 BB8F F0 03 BEQ $BB94 BB91 20 9F BB JSR $BB9F BB94 A5 D4 LDA $D4 ;FR0 BB96 20 9F BB JSR $BB9F BB99 09 80 ORA #$80 BB9B 9D 7F 05 STA $057F,X BB9E 60 RTS BB9F 48 PHA BBA0 4A LSR BBA1 4A LSR BBA2 4A LSR BBA3 4A LSR BBA4 20 AA BB JSR $BBAA BBA7 68 PLA BBA8 29 0F AND #$0F BBAA A8 TAY BBAB B9 B3 BB LDA $BBB3,Y BBAE 9D 80 05 STA $0580,X BBB1 E8 INX BBB2 60 RTS BBB3 30 31 BMI $BBE6 BBB5 32 ??? BBB6 33 ??? BBB7 34 ??? BBB8 35 36 AND $36,X ;LTEMP BBBA 37 ??? BBBB 38 SEC BBBC 39 41 42 AND $4241,Y BBBF 43 ??? BBC0 44 ??? BBC1 45 46 EOR $46 ;FMSZPG+3 BBC3 A9 00 LDA #$00 BBC5 8D 6F 05 STA $056F BBC8 8D 0C D0 STA $D00C ;P0PL BBCB 8D 1E D0 STA $D01E ;HITCLR BBCE 20 A7 B5 JSR $B5A7 BBD1 20 3D A9 JSR $A93D BBD4 C9 03 CMP #$03 BBD6 B0 58 BCS $BC30 BBD8 AA TAX BBD9 F0 55 BEQ $BC30 BBDB AD E6 02 LDA $02E6 ;MEMTOP+1 BBDE 3D 56 A1 AND $A156,X BBE1 38 SEC BBE2 FD 58 A1 SBC $A158,X BBE5 8D 5C 05 STA $055C BBE8 8D 07 D4 STA $D407 ;PMBASE BBEB 18 CLC BBEC 7D 5A A1 ADC $A15A,X BBEF A8 TAY BBF0 BD B3 BD LDA $BDB3,X BBF3 C4 0F CPY $0F ;APPMHI+1 BBF5 90 3A BCC $BC31 BBF7 D0 04 BNE $BBFD BBF9 C5 0E CMP $0E ;APPMHI BBFB 90 34 BCC $BC31 BBFD 48 PHA BBFE AD E5 02 LDA $02E5 ;MEMTOP BC01 8D 5A 05 STA $055A BC04 AD E6 02 LDA $02E6 ;MEMTOP+1 BC07 8D 5B 05 STA $055B BC0A 8E 6E 05 STX $056E BC0D 8C E6 02 STY $02E6 ;MEMTOP+1 BC10 68 PLA BC11 8D E5 02 STA $02E5 ;MEMTOP BC14 BD 54 A1 LDA $A154,X BC17 8D 2F 02 STA $022F ;SDMCTL BC1A AD 6F 02 LDA $026F ;GPRIOR BC1D 29 C0 AND #$C0 BC1F 09 01 ORA #$01 BC21 AE 67 05 LDX $0567 BC24 F0 02 BEQ $BC28 BC26 09 10 ORA #$10 BC28 8D 6F 02 STA $026F ;GPRIOR BC2B A9 03 LDA #$03 BC2D 8D 1D D0 STA $D01D ;GRACTL BC30 60 RTS BC31 20 36 B6 JSR $B636 BC34 20 3D A9 JSR $A93D BC37 20 2E A9 JSR $A92E BC3A 48 PHA BC3B 20 D7 B5 JSR $B5D7 BC3E 84 BC STY $BC BC40 85 BD STA $BD BC42 8D 04 D5 STA $D504 BC45 A4 A8 LDY $A8 BC47 88 DEY BC48 B1 8A LDA ($8A),Y ;STMCUR BC4A C9 12 CMP #$12 BC4C D0 3F BNE $BC8D BC4E 20 1F A1 JSR $A11F BC51 68 PLA BC52 48 PHA BC53 29 07 AND #$07 BC55 C9 04 CMP #$04 BC57 90 05 BCC $BC5E BC59 AC 67 05 LDY $0567 BC5C D0 09 BNE $BC67 BC5E AA TAX BC5F A5 D4 LDA $D4 ;FR0 BC61 9D 00 D0 STA $D000,X ;M0PF BC64 4C 88 BC JMP $BC88 BC67 A2 03 LDX #$03 BC69 AD 6F 05 LDA $056F BC6C 85 E0 STA $E0 ;FR1 BC6E A5 E0 LDA $E0 ;FR1 BC70 2A ROL BC71 2A ROL BC72 2A ROL BC73 85 E0 STA $E0 ;FR1 BC75 66 E0 ROR $E0 ;FR1 BC77 29 03 AND #$03 BC79 A8 TAY BC7A A5 D4 LDA $D4 ;FR0 BC7C 9D 04 D0 STA $D004,X ;P0PF BC7F 18 CLC BC80 79 AA BD ADC $BDAA,Y BC83 85 D4 STA $D4 ;FR0 BC85 CA DEX BC86 10 E6 BPL $BC6E BC88 A4 A8 LDY $A8 BC8A 88 DEY BC8B B1 8A LDA ($8A),Y ;STMCUR BC8D C9 15 CMP #$15 BC8F F0 02 BEQ $BC93 BC91 68 PLA BC92 60 RTS BC93 20 00 A0 JSR $A000 BC96 8D 00 D5 STA $D500 BC99 4C 29 AD JMP $AD29 BC9C 20 3D A9 JSR $A93D BC9F C9 04 CMP #$04 BCA1 08 PHP BCA2 48 PHA BCA3 20 3D A9 JSR $A93D BCA6 0A ASL BCA7 0A ASL BCA8 0A ASL BCA9 0A ASL BCAA 48 PHA BCAB 20 B2 BF JSR $BFB2 BCAE 68 PLA BCAF 05 D4 ORA $D4 ;FR0 BCB1 A8 TAY BCB2 68 PLA BCB3 AA TAX BCB4 98 TYA BCB5 28 PLP BCB6 90 04 BCC $BCBC BCB8 D0 06 BNE $BCC0 BCBA A2 07 LDX #$07 BCBC 9D C0 02 STA $02C0,X ;PCOLR0 BCBF 60 RTS BCC0 20 00 B6 JSR $B600 BCC3 20 D4 B5 JSR $B5D4 BCC6 84 95 STY $95 ;POKADR BCC8 85 96 STA $96 ;POKADR+1 BCCA AE 6E 05 LDX $056E BCCD BC B3 BD LDY $BDB3,X BCD0 A9 00 LDA #$00 BCD2 91 95 STA ($95),Y ;POKADR BCD4 88 DEY BCD5 D0 FB BNE $BCD2 BCD7 91 95 STA ($95),Y ;POKADR BCD9 60 RTS BCDA 20 3D A9 JSR $A93D BCDD 48 PHA BCDE 20 3D A9 JSR $A93D BCE1 A0 01 LDY #$01 BCE3 38 SEC BCE4 E9 02 SBC #$02 BCE6 F0 08 BEQ $BCF0 BCE8 30 04 BMI $BCEE BCEA A0 03 LDY #$03 BCEC D0 02 BNE $BCF0 BCEE A0 00 LDY #$00 BCF0 68 PLA BCF1 48 PHA BCF2 29 03 AND #$03 BCF4 AA TAX BCF5 68 PLA BCF6 29 FC AND #$FC BCF8 D0 05 BNE $BCFF BCFA 98 TYA BCFB 9D 08 D0 STA $D008,X ;M0PL BCFE 60 RTS BCFF 98 TYA BD00 BC 42 BD LDY $BD42,X BD03 CA DEX BD04 30 05 BMI $BD0B BD06 0A ASL BD07 0A ASL BD08 4C 03 BD JMP $BD03 BD0B 85 E0 STA $E0 ;FR1 BD0D 98 TYA BD0E 2D 6F 05 AND $056F BD11 05 E0 ORA $E0 ;FR1 BD13 8D 6F 05 STA $056F BD16 8D 0C D0 STA $D00C ;P0PL BD19 60 RTS BD1A 20 3D A9 JSR $A93D BD1D 20 2E A9 JSR $A92E BD20 09 FC ORA #$FC BD22 20 D7 B5 JSR $B5D7 BD25 84 BC STY $BC BD27 85 BD STA $BD BD29 20 3D A9 JSR $A93D BD2C 48 PHA BD2D 20 3D A9 JSR $A93D BD30 AA TAX BD31 68 PLA BD32 A8 TAY BD33 B1 BC LDA ($BC),Y BD35 45 FE EOR $FE ;FPTR2 BD37 91 BC STA ($BC),Y BD39 C8 INY BD3A CA DEX BD3B D0 F6 BNE $BD33 BD3D 60 RTS BD3E 03 ??? BD3F 0C ??? BD40 30 C0 BMI $BD02 BD42 FC ??? BD43 F3 ??? BD44 CF ??? BD45 3F ??? BD46 20 66 BA JSR $BA66 BD49 B0 07 BCS $BD52 BD4B A9 00 LDA #$00 BD4D 85 B9 STA $B9 BD4F 20 D7 AE JSR $AED7 BD52 A9 00 LDA #$00 BD54 85 A0 STA $A0 BD56 85 A1 STA $A1 BD58 20 59 BA JSR $BA59 BD5B 20 9F B4 JSR $B49F BD5E 30 12 BMI $BD72 BD60 20 0E BA JSR $BA0E BD63 20 5E BE JSR $BE5E BD66 20 4D BE JSR $BE4D BD69 A9 00 LDA #$00 BD6B 85 B7 STA $B7 ;DATALN BD6D 85 B8 STA $B8 ;DATALN+1 BD6F 85 B6 STA $B6 ;DATAD BD71 60 RTS BD72 4C 8A B0 JMP $B08A BD75 A5 BB LDA $BB ;STOPLN+1 BD77 10 03 BPL $BD7C BD79 4C FC B8 JMP $B8FC BD7C 85 A1 STA $A1 BD7E A5 BA LDA $BA ;STOPLN BD80 85 A0 STA $A0 BD82 A9 80 LDA #$80 BD84 85 BB STA $BB ;STOPLN+1 BD86 20 60 B4 JSR $B460 BD89 20 9F B4 JSR $B49F BD8C 30 20 BMI $BDAE BD8E 20 9A B4 JSR $B49A BD91 20 90 B4 JSR $B490 BD94 20 9F B4 JSR $B49F BD97 30 15 BMI $BDAE BD99 4C 5C BA JMP $BA5C BD9C FF ??? BD9D FF ??? BD9E FF ??? BD9F FF ??? BDA0 FF ??? BDA1 FF ??? BDA2 FF ??? BDA3 FF ??? BDA4 FF ??? BDA5 FF ??? BDA6 FF ??? BDA7 4C FD AA JMP $AAFD BDAA 02 ??? BDAB 04 ??? BDAC 02 ??? BDAD 08 PHP BDAE 4C 72 BD JMP $BD72 BDB1 4C 06 AB JMP $AB06 BDB4 FF ??? BDB5 7F ??? BDB6 8D 00 D5 STA $D500 BDB9 20 B3 AD JSR $ADB3 BDBC 8D 03 D5 STA $D503 BDBF 60 RTS BDC0 85 C1 STA $C1 ;IODVC BDC2 20 29 BE JSR $BE29 BDC5 20 DB BD JSR $BDDB BDC8 B0 08 BCS $BDD2 BDCA F0 06 BEQ $BDD2 BDCC C5 C1 CMP $C1 ;IODVC BDCE F0 0A BEQ $BDDA BDD0 D0 F3 BNE $BDC5 BDD2 A5 BE LDA $BE ;SAVCUR BDD4 85 90 STA $90 ;TOPSTK BDD6 A5 BF LDA $BF BDD8 85 91 STA $91 ;TOPSTK+1 BDDA 60 RTS BDDB A5 8F LDA $8F ;RUNSTK+1 BDDD C5 91 CMP $91 ;TOPSTK+1 BDDF 90 08 BCC $BDE9 BDE1 A5 8E LDA $8E ;RUNSTK BDE3 C5 90 CMP $90 ;TOPSTK BDE5 90 02 BCC $BDE9 BDE7 38 SEC BDE8 60 RTS BDE9 A9 04 LDA #$04 BDEB 20 0C BE JSR $BE0C BDEE A0 03 LDY #$03 BDF0 B1 90 LDA ($90),Y ;TOPSTK BDF2 85 B2 STA $B2 BDF4 88 DEY BDF5 B1 90 LDA ($90),Y ;TOPSTK BDF7 85 A1 STA $A1 BDF9 88 DEY BDFA B1 90 LDA ($90),Y ;TOPSTK BDFC 85 A0 STA $A0 BDFE 88 DEY BDFF B1 90 LDA ($90),Y ;TOPSTK BE01 10 07 BPL $BE0A BE03 48 PHA BE04 A9 0C LDA #$0C BE06 20 0C BE JSR $BE0C BE09 68 PLA BE0A 18 CLC BE0B 60 RTS BE0C 85 A4 STA $A4 BE0E 38 SEC BE0F A5 90 LDA $90 ;TOPSTK BE11 E5 A4 SBC $A4 BE13 85 90 STA $90 ;TOPSTK BE15 85 0E STA $0E ;APPMHI BE17 A5 91 LDA $91 ;TOPSTK+1 BE19 E9 00 SBC #$00 BE1B 85 91 STA $91 ;TOPSTK+1 BE1D 85 0F STA $0F ;APPMHI+1 BE1F 60 RTS BE20 20 29 BE JSR $BE29 BE23 A8 TAY BE24 A2 90 LDX #$90 BE26 4C E9 B2 JMP $B2E9 BE29 A6 90 LDX $90 ;TOPSTK BE2B 86 BE STX $BE ;SAVCUR BE2D A6 91 LDX $91 ;TOPSTK+1 BE2F 86 BF STX $BF BE31 60 RTS BE32 A4 A8 LDY $A8 BE34 84 B3 STY $B3 BE36 60 RTS BE37 A2 FA LDX #$FA BE39 B5 DA LDA $DA,X ;FRE BE3B 91 BE STA ($BE),Y ;SAVCUR BE3D C8 INY BE3E E8 INX BE3F D0 F8 BNE $BE39 BE41 60 RTS BE42 A2 FA LDX #$FA BE44 B1 90 LDA ($90),Y ;TOPSTK BE46 95 E6 STA $E6,X ;FR2 BE48 C8 INY BE49 E8 INX BE4A D0 F8 BNE $BE44 BE4C 60 RTS BE4D A5 8C LDA $8C ;STARP BE4F 85 8E STA $8E ;RUNSTK BE51 85 90 STA $90 ;TOPSTK BE53 85 0E STA $0E ;APPMHI BE55 A5 8D LDA $8D ;STARP+1 BE57 85 8F STA $8F ;RUNSTK+1 BE59 85 91 STA $91 ;TOPSTK+1 BE5B 85 0F STA $0F ;APPMHI+1 BE5D 60 RTS BE5E A6 86 LDX $86 ;VVTP BE60 86 F5 STX $F5 ;ZTEMP1 BE62 A4 87 LDY $87 ;VVTP+1 BE64 84 F6 STY $F6 ;ZTEMP1+1 BE66 A6 F6 LDX $F6 ;ZTEMP1+1 BE68 E4 89 CPX $89 ;STMTAB+1 BE6A 90 0E BCC $BE7A BE6C A6 F5 LDX $F5 ;ZTEMP1 BE6E E4 88 CPX $88 ;STMTAB BE70 90 08 BCC $BE7A BE72 60 RTS BE73 FF ??? BE74 FF ??? BE75 FF ??? BE76 FF ??? BE77 4C CC AB JMP $ABCC BE7A A0 00 LDY #$00 BE7C B1 F5 LDA ($F5),Y ;ZTEMP1 BE7E 29 FE AND #$FE BE80 91 F5 STA ($F5),Y ;ZTEMP1 BE82 A0 02 LDY #$02 BE84 A2 06 LDX #$06 BE86 A9 00 LDA #$00 BE88 91 F5 STA ($F5),Y ;ZTEMP1 BE8A C8 INY BE8B CA DEX BE8C D0 FA BNE $BE88 BE8E A5 F5 LDA $F5 ;ZTEMP1 BE90 18 CLC BE91 69 08 ADC #$08 BE93 85 F5 STA $F5 ;ZTEMP1 BE95 A5 F6 LDA $F6 ;ZTEMP1+1 BE97 69 00 ADC #$00 BE99 85 F6 STA $F6 ;ZTEMP1+1 BE9B D0 C9 BNE $BE66 BE9D 8D 04 D5 STA $D504 BEA0 48 PHA BEA1 A5 F2 LDA $F2 ;CIX BEA3 48 PHA BEA4 A5 F3 LDA $F3 ;INBUFF BEA6 48 PHA BEA7 A5 F4 LDA $F4 ;INBUFF+1 BEA9 48 PHA BEAA 20 0E A6 JSR $A60E BEAD 48 PHA BEAE 20 62 B7 JSR $B762 BEB1 68 PLA BEB2 A8 TAY BEB3 68 PLA BEB4 85 F4 STA $F4 ;INBUFF+1 BEB6 68 PLA BEB7 85 F3 STA $F3 ;INBUFF BEB9 68 PLA BEBA 85 F2 STA $F2 ;CIX BEBC 68 PLA BEBD AA TAX BEBE 98 TYA BEBF 30 27 BMI $BEE8 BEC1 20 13 B8 JSR $B813 BEC4 B0 56 BCS $BF1C BEC6 20 A1 DB JSR $DBA1 BEC9 A9 00 LDA #$00 BECB 85 D2 STA $D2 BECD 85 D3 STA $D3 BECF 20 21 A6 JSR $A621 BED2 4C 09 BF JMP $BF09 BED5 FF ??? BED6 FF ??? BED7 FF ??? BED8 FF ??? BED9 FF ??? BEDA FF ??? BEDB FF ??? BEDC FF ??? BEDD FF ??? BEDE FF ??? BEDF FF ??? BEE0 FF ??? BEE1 FF ??? BEE2 FF ??? BEE3 FF ??? BEE4 FF ??? BEE5 4C 3A AC JMP $AC3A BEE8 A5 A8 LDA $A8 BEEA 48 PHA BEEB 8D 03 D5 STA $D503 BEEE 20 68 AA JSR $AA68 BEF1 8D 04 D5 STA $D504 BEF4 84 BC STY $BC BEF6 A4 F2 LDY $F2 ;CIX BEF8 88 DEY BEF9 8A TXA BEFA A2 F3 LDX #$F3 BEFC 20 35 A2 JSR $A235 BEFF 68 PLA BF00 85 A8 STA $A8 BF02 20 21 A6 JSR $A621 BF05 A4 BC LDY $BC BF07 84 F2 STY $F2 ;CIX BF09 8D 03 D5 STA $D503 BF0C A4 F2 LDY $F2 ;CIX BF0E E6 F2 INC $F2 ;CIX BF10 B1 F3 LDA ($F3),Y ;INBUFF BF12 C9 9B CMP #$9B BF14 F0 04 BEQ $BF1A BF16 C9 2C CMP #$2C BF18 D0 02 BNE $BF1C BF1A 18 CLC BF1B 60 RTS BF1C 38 SEC BF1D 8D 03 D5 STA $D503 BF20 60 RTS BF21 8D 04 D5 STA $D504 BF24 20 55 AE JSR $AE55 BF27 8D 03 D5 STA $D503 BF2A 60 RTS BF2B 8D 04 D5 STA $D504 BF2E 20 6E A2 JSR $A26E BF31 8D 03 D5 STA $D503 BF34 60 RTS BF35 8D 04 D5 STA $D504 BF38 20 22 A2 JSR $A222 BF3B 8D 03 D5 STA $D503 BF3E 60 RTS BF3F 8D 04 D5 STA $D504 BF42 20 5A A2 JSR $A25A BF45 8D 03 D5 STA $D503 BF48 60 RTS BF49 8D 04 D5 STA $D504 BF4C 20 D0 A5 JSR $A5D0 BF4F 8D 03 D5 STA $D503 BF52 60 RTS BF53 8D 04 D5 STA $D504 BF56 20 BA A2 JSR $A2BA BF59 8D 03 D5 STA $D503 BF5C 60 RTS BF5D 8D 00 D5 STA $D500 BF60 20 41 AC JSR $AC41 BF63 8D 03 D5 STA $D503 BF66 60 RTS BF67 8D 03 D5 STA $D503 BF6A 4C 54 AB JMP $AB54 BF6D 8D 04 D5 STA $D504 BF70 20 D6 AE JSR $AED6 BF73 8D 00 D5 STA $D500 BF76 60 RTS BF77 8D 00 D5 STA $D500 BF7A A2 FF LDX #$FF BF7C E8 INX BF7D DD 22 A9 CMP $A922,X BF80 D0 FA BNE $BF7C BF82 8D 03 D5 STA $D503 BF85 60 RTS BF86 8D 03 D5 STA $D503 BF89 20 86 A0 JSR $A086 BF8C 8D 04 D5 STA $D504 BF8F 60 RTS BF90 8D 04 D5 STA $D504 BF93 20 7C A1 JSR $A17C BF96 8D 03 D5 STA $D503 BF99 60 RTS BF9A 20 A5 BF JSR $BFA5 BF9D A5 D5 LDA $D5 ;FR0+1 BF9F 30 01 BMI $BFA2 BFA1 60 RTS BFA2 20 2C B6 JSR $B62C BFA5 8D 04 D5 STA $D504 BFA8 20 7C A1 JSR $A17C BFAB 20 B9 A3 JSR $A3B9 BFAE 8D 03 D5 STA $D503 BFB1 60 RTS BFB2 20 9A BF JSR $BF9A BFB5 D0 01 BNE $BFB8 BFB7 60 RTS BFB8 20 34 B6 JSR $B634 BFBB 20 A5 BF JSR $BFA5 BFBE A5 D4 LDA $D4 ;FR0 BFC0 A4 D5 LDY $D5 ;FR0+1 BFC2 60 RTS BFC3 8D 04 D5 STA $D504 BFC6 20 7C A1 JSR $A17C BFC9 A5 D4 LDA $D4 ;FR0 BFCB 48 PHA BFCC 29 7F AND #$7F BFCE 85 D4 STA $D4 ;FR0 BFD0 20 B9 A3 JSR $A3B9 BFD3 68 PLA BFD4 8D 03 D5 STA $D503 BFD7 60 RTS BFD8 BF ??? BFD9 D8 CLD BFDA FF ??? BFDB FF ??? BFDC FF ??? BFDD 20 69 B9 JSR $B969 BFE0 20 52 BD JSR $BD52 BFE3 4C CB B3 JMP $B3CB BFE6 4C 90 BF JMP $BF90 BFE9 01 36 ORA ($36,X) ;LTEMP BFEB A6 03 LDX $03 ;CASINI+1 BFED 01 F0 ORA ($F0,X) ;FCHRFLG BFEF A5 03 LDA $03 ;CASINI+1 BFF1 00 BRK BFF2 00 BRK BFF3 00 BRK BFF4 00 BRK BFF5 01 47 ORA ($47,X) ;FMSZPG+4 BFF7 A6 03 LDX $03 ;CASINI+1 BFF9 60 RTS Ok!