ARCADE BOARD AMPERCADE INTERPRETER COPYRIGHT (C) 1983 THIRD MILLENNIUM ENGINEERING CORPORATION UNCOMMENTED DISASSEMBLY * APPLESOFT AND MONITOR AMPER EQU $03F5 ERROR EQU $D412 FRMNUM EQU $DD67 CHKNUM EQU $DD6A CHKCOM EQU $DEBE PTRGET EQU $DFE3 GIVAYF EQU $E2F2 COMBYTE EQU $E74C GETADR EQU $E752 MOVMF EQU $EB2B HOME EQU $FC58 COUT1 EQU $FDF0 * PAGE ZERO Z06 EQU $06 Z07 EQU $07 Z08 EQU $08 Z09 EQU $09 Z19 EQU $19 Z1A EQU $1A Z1B EQU $1B Z1C EQU $1C Z1D EQU $1D Z1E EQU $1E Z1F EQU $1F Z3A EQU $3A Z50 EQU $50 Z51 EQU $51 Z73 EQU $73 Z74 EQU $74 ZB8 EQU $B8 ZB9 EQU $B9 ZD6 EQU $D6 ZD7 EQU $D7 ORG $8800 * COPY AMPERSAND JUMP TO PAGE 3 8800 A0 02 H8800 LDY #2 8802 B9 8B 88 H8802 LDA H888B,Y 8805 99 F5 03 STA AMPER,Y 8808 88 DEY 8809 10 F7 BPL H8802 ;=> 880B 20 8E 88 JSR H888E 880E A9 E4 LDA #H88E4 8810 85 73 STA Z73 8812 A9 88 LDA #H88E4/256 8814 85 74 STA Z74 * DISPLAY MESSAGE 8816 20 58 FC JSR HOME 8819 A2 00 LDX #0 881B BD 27 88 H881B LDA H8827,X 881E 20 F0 FD JSR COUT1 8821 E8 INX 8822 E0 62 CPX #$62 8824 D0 F5 BNE H881B ;=> 8826 60 RTS CR EQU $8D ;CARRIAGE RETURN LF EQU $8A ;LINE FEED 8827 8D H8827 .DB CR,LF .DB "ARCADE BOARD AMPERCADE INTERPRETER" .DB CR,LF .DB "COPYRIGHT (C) 1983" .DB CR,LF .DB "THIRD MILLENNIUM ENGINEERING CORPORATION" .DB CR,LF * AMPERSAND VECTOR 888B 4C E4 88 H888B JMP H88E4 ;==> 888E A2 07 H888E LDX #$07 8890 A9 00 H8890 LDA #0 8892 20 A2 8A JSR H8AA2 8895 A9 40 LDA #$40 8897 20 A2 8A JSR H8AA2 889A A9 55 LDA #$55 889C 20 A6 8A JSR H8AA6 889F A9 AA LDA #$AA 88A1 20 A6 8A JSR H8AA6 88A4 A9 00 LDA #0 88A6 20 A2 8A JSR H8AA2 88A9 20 A2 8A JSR H8AA2 88AC 20 9E 8A JSR H8A9E 88AF C9 55 CMP #$55 88B1 D0 0B BNE H88BE ;=> 88B3 20 9E 8A JSR H8A9E 88B6 C9 AA CMP #$AA 88B8 D0 04 BNE H88BE ;=> 88BA 20 0D 93 JSR SOFF 88BD 60 RTS * FIX SLOT NUMBER? 88BE AD AF 8A H88BE LDA H8AAE+1 88C1 38 SEC 88C2 E9 10 SBC #$10 88C4 8D AF 8A STA H8AAE+1 88C7 E9 01 SBC #1 88C9 8D AB 8A STA H8AAA+1 88CC E9 02 SBC #2 88CE 8D A3 8A STA H8AA2+1 88D1 E9 01 SBC #1 88D3 8D A7 8A STA H8AA6+1 88D6 E9 01 SBC #1 88D8 8D 9B 8A STA H8A9A+1 88DB E9 01 SBC #1 88DD 8D 9F 8A STA H8A9E+1 88E0 CA DEX 88E1 D0 AD BNE H8890 ;=> 88E3 00 BRK 88E4 A2 00 H88E4 LDX #0 88E6 A0 00 LDY #0 88E8 84 19 STY Z19 88EA B1 B8 H88EA LDA (ZB8),Y 88EC 85 1A STA Z1A 88EE BD 2E 89 LDA H892E,X 88F1 F0 1C BEQ H890F ;=> 88F3 C5 1A CMP Z1A 88F5 D0 04 BNE H88FB ;=> 88F7 C8 INY 88F8 E8 H88F8 INX 88F9 D0 EF BNE H88EA ;=> 88FB 29 7F H88FB AND #$7F 88FD C5 1A CMP Z1A 88FF F0 13 BEQ H8914 ;=> 8901 E6 19 INC Z19 8903 A0 00 LDY #0 8905 A9 80 H8905 LDA #$80 8907 3D 2E 89 AND H892E,X 890A D0 EC BNE H88F8 ;=> 890C E8 INX 890D D0 F6 BNE H8905 ;=> 890F A2 10 H890F LDX #$10 8911 4C 12 D4 JMP ERROR ;==> 8914 18 H8914 CLC 8915 C8 INY 8916 98 TYA 8917 65 B8 ADC ZB8 8919 85 B8 STA ZB8 891B 90 02 BCC H891F ;=> 891D E6 B9 INC ZB9 * DISPATCHER 891F 06 19 H891F ASL Z19 8921 A6 19 LDX Z19 8923 E8 INX 8924 BD 16 8A LDA H8A16,X 8927 48 PHA 8928 CA DEX 8929 BD 16 8A LDA H8A16,X 892C 48 PHA 892D 60 RTS * COMMANDS 892E 535350D2 H892E .DCI 'SSPR' .DCI 'GSPR' .DCI 'SX' .DCI 'SY' .DCI 'GX' .DCI 'GY' .DCI 'STIL' .DCI 'GTIL' .DCI 'HROW' .DCI 'VCOL' .DCI 'HTIL' .DCI 'VTIL' .DCI 'FILL' .DCI 'CSET' .DCI 'TCOL' .DCI 'RCST' .DCI 'RTCL' .DCI 'TNA' .DCI 'TNB' .DCI 'TNC' .DCI 'NSA' .DCI 'NSB' .DCI 'NSC' .DCI 'ETNA' .DCI 'ETNB' .DCI 'ETNC' .DCI 'ENSA' .DCI 'ENSB' .DCI 'ENSC' .DCI 'VOLA' .DCI 'VOLB' .DCI 'VOLC' .DCI 'MXR' .DCI 'ENVP' .DCI 'ENVT' .DCI 'FILT' .DCI 'SOFF' .DCI 'PLT' .DCI 'SCN' .DCI 'HLN' .DCI 'VLN' .DCI 'COL' .DCI 'DTIL' .DCI 'RTIL' .DCI 'DSPR' .DCI 'RSPR' .DCI 'RSTA' .DCI 'SP' .DCI 'SC' .DCI 'GP' .DCI 'GC' .DCI 'BCOL' .DCI 'VREG' .DCI 'MAG' .DCI 'GM1A' .DCI 'GM1B' .DCI 'GM1C' .DCI 'GM1D' .DCI 'GM2' .DCI 'GM3A' .DCI 'GM3B' .DCI 'GM3C' .DCI 'GM3D' .DCI 'APVD' .DCI 'LD' .DCI 'ULD' * COMMAND ADDRESSES 8A16 3A 90 H8A16 .DA SSPR-1 8A18 71 91 .DA GSPR-1 8A1A AB 90 .DA SX-1 8A1C 71 90 .DA SY-1 8A1E C5 90 .DA GX-1 8A20 89 90 .DA GY-1 8A22 AE 8C .DA STIL-1 8A24 18 8D .DA GTIL-1 8A26 44 8D .DA HROW-1 8A28 6D 8D .DA VCOL-1 8A2A FA 8C .DA HTIL-1 8A2C CC 8C .DA VTIL-1 8A2E C9 8D .DA FILL-1 8A30 70 8E .DA CSET-1 8A32 1B 8E .DA TCOL-1 8A34 88 8E .DA RCST-1 8A36 42 8E .DA RTCL-1 8A38 2F 92 .DA TNA-1 8A3A 77 92 .DA TNB-1 8A3C BF 92 .DA TNC-1 8A3E 38 93 .DA NSA-1 8A40 7B 93 .DA NSB-1 8A42 8C 93 .DA NSC-1 8A44 D8 93 .DA ETNA-1 8A46 EB 93 .DA ETNB-1 8A48 FE 93 .DA ETNC-1 8A4A 4F 94 .DA ENSA-1 8A4C 70 94 .DA ENSB-1 8A4E 91 94 .DA ENSC-1 8A50 6A 92 .DA VOLA-1 8A52 B2 92 .DA VOLB-1 8A54 FD 92 .DA VOLC-1 8A56 1D 92 .DA MXR-1 8A58 AD 93 .DA ENVP-1 8A5A 9D 93 .DA ENVT-1 8A5C CB 93 .DA FILT-1 8A5E 0C 93 .DA SOFF-1 8A60 3B 8F .DA PLT-1 8A62 8A 8F .DA SCN-1 8A64 E4 8F .DA HLN-1 H8A65 EQU *-1 8A66 04 90 .DA VLN-1 8A68 C2 94 .DA COL-1 8A6A C6 8E .DA DTIL-1 8A6C F3 8E .DA RTIL-1 8A6E CE 91 .DA DSPR-1 8A70 EF 91 .DA RSPR-1 8A72 18 8C .DA RSTA-1 8A74 E9 90 .DA SP-1 8A76 2B 91 .DA SC-1 8A78 05 91 .DA GP-1 8A7A 49 91 .DA GC-1 8A7C 2F 8C .DA BCOL-1 8A7E 44 8C .DA VREG-1 8A80 EC 8A .DA MAG-1 8A82 01 8B .DA GM1A-1 8A84 20 8B .DA GM1B-1 8A86 3F 8B .DA GM1C-1 8A88 5E 8B .DA GM1D-1 8A8A F9 8B .DA GM2-1 8A8C 7D 8B .DA GM3A-1 8A8E 9C 8B .DA GM3B-1 8A90 BB 8B .DA GM3C-1 8A92 DA 8B .DA GM3D-1 8A94 6C 8C .DA APVD-1 8A96 EF 94 .DA LD-1 8A98 31 95 .DA ULD-1 8A9A AD F1 C0 H8A9A LDA $C0F1 8A9D 60 RTS 8A9E AD F0 C0 H8A9E LDA $C0F0 8AA1 60 RTS 8AA2 8D F3 C0 H8AA2 STA $C0F3 8AA5 60 RTS 8AA6 8D F2 C0 H8AA6 STA $C0F2 8AA9 60 RTS 8AAA 8D F5 C0 H8AAA STA $C0F5 8AAD 60 RTS 8AAE 8D F6 C0 H8AAE STA $C0F6 8AB1 60 RTS 8AB2 20 9A 8A H8AB2 JSR H8A9A 8AB5 A5 08 LDA Z08 8AB7 20 A2 8A JSR H8AA2 8ABA A5 09 LDA Z09 8ABC 20 A2 8A JSR H8AA2 8ABF 60 RTS 8AC0 20 9A 8A H8AC0 JSR H8A9A 8AC3 A5 08 LDA Z08 8AC5 20 A2 8A JSR H8AA2 8AC8 A5 09 LDA Z09 8ACA 09 40 ORA #$40 8ACC 20 A2 8A JSR H8AA2 8ACF 60 RTS 8AD0 20 9A 8A H8AD0 JSR H8A9A 8AD3 10 FB BPL H8AD0 ;=> 8AD5 A2 87 LDX #$87 8AD7 BD 65 8A H8AD7 LDA H8A65,X 8ADA 20 A2 8A JSR H8AA2 8ADD 8A TXA 8ADE 20 A2 8A JSR H8AA2 8AE1 CA DEX 8AE2 30 F3 BMI H8AD7 ;=> 8AE4 60 RTS 8AE5 00 H8AE5 .DB $00 8AE6 C0 H8AE6 .DB $C0 8AE7 00 H8AE7 .DB $00 8AE8 0C H8AE8 .DB $0C 8AE9 01 H8AE9 .DB $01 8AEA 07 H8AEA .DB $07 8AEB 02 H8AEB .DB $02 8AEC 00 H8AEC .DB $00 8AED 20 4C E7 MAG JSR COMBYTE 8AF0 8A TXA 8AF1 29 03 AND #$03 8AF3 85 1A STA Z1A 8AF5 AD E6 8A LDA H8AE6 8AF8 29 FC AND #$FC 8AFA 05 1A ORA Z1A 8AFC 8D E6 8A STA H8AE6 8AFF 4C D0 8A JMP H8AD0 ;==> 8B02 AD E6 8A GM1A LDA H8AE6 8B05 29 03 AND #$03 8B07 09 C0 ORA #$C0 8B09 8D 1B 8B STA H8B1B 8B0C A2 06 LDX #$06 8B0E BD 1A 8B H8B0E LDA H8B1A,X 8B11 9D E5 8A STA H8AE5,X 8B14 CA DEX 8B15 10 F7 BPL H8B0E ;=> 8B17 4C D0 8A JMP H8AD0 ;==> 8B1A 00 H8B1A .DB $00 8B1B C0 H8B1B .DB $C0 8B1C 01 .DB $01 8B1D 1E .DB $1E 8B1E 01 .DB $01 8B1F 0E .DB $0E 8B20 00 .DB $00 8B21 AD E6 8A GM1B LDA H8AE6 8B24 29 03 AND #$03 8B26 09 C0 ORA #$C0 8B28 8D 3A 8B STA H8B3A 8B2B A2 06 LDX #$06 8B2D BD 39 8B H8B2D LDA H8B39,X 8B30 9D E5 8A STA H8AE5,X 8B33 CA DEX 8B34 10 F7 BPL H8B2D ;=> 8B36 4C D0 8A JMP H8AD0 ;==> 8B39 00 H8B39 .DB $00 8B3A C0 H8B3A .DB $C0 8B3B 05 .DB $05 8B3C 5E .DB $5E 8B3D 03 .DB $03 8B3E 2E .DB $2E 8B3F 02 .DB $02 8B40 AD E6 8A GM1C LDA H8AE6 8B43 29 03 AND #$03 8B45 09 C0 ORA #$C0 8B47 8D 59 8B STA H8B59 8B4A A2 06 LDX #$06 8B4C BD 58 8B H8B4C LDA H8B58,X 8B4F 9D E5 8A STA H8AE5,X 8B52 CA DEX 8B53 10 F7 BPL H8B4C ;=> 8B55 4C D0 8A JMP H8AD0 ;==> 8B58 00 H8B58 .DB $00 8B59 C0 H8B59 .DB $C0 8B5A 09 .DB $09 8B5B 9E .DB $9E 8B5C 05 .DB $05 8B5D 4E .DB $4E 8B5E 04 .DB $04 8B5F AD E6 8A GM1D LDA H8AE6 8B62 29 03 AND #$03 8B64 09 C0 ORA #$C0 8B66 8D 78 8B STA H8B78 8B69 A2 06 LDX #$06 8B6B BD 77 8B H8B6B LDA H8B77,X 8B6E 9D E5 8A STA H8AE5,X 8B71 CA DEX 8B72 10 F7 BPL H8B6B ;=> 8B74 4C D0 8A JMP H8AD0 ;==> 8B77 00 H8B77 .DB $00 8B78 C0 H8B78 .DB $C0 8B79 0D .DB $0D 8B7A DE .DB $DE 8B7B 07 .DB $07 8B7C 6E .DB $6E 8B7D 06 .DB $06 8B7E AD E6 8A GM3A LDA H8AE6 8B81 29 03 AND #$03 8B83 09 C8 ORA #$C8 8B85 8D 97 8B STA H8B97 8B88 A2 06 LDX #$06 8B8A BD 96 8B H8B8A LDA H8B96,X 8B8D 9D E5 8A STA H8AE5,X 8B90 CA DEX 8B91 10 F7 BPL H8B8A ;=> 8B93 4C B3 94 JMP H94B3 ;==> 8B96 00 H8B96 .DB $00 8B97 C8 H8B97 .DB $C8 8B98 01 .DB $01 8B99 3F .DB $3F 8B9A 01 .DB $01 8B9B 1C .DB $1C 8B9C 00 .DB $00 8B9D AD E6 8A GM3B LDA H8AE6 8BA0 29 03 AND #$03 8BA2 09 C8 ORA #$C8 8BA4 8D B6 8B STA H8BB6 8BA7 A2 06 LDX #$06 8BA9 BD B5 8B H8BA9 LDA H8BB5,X 8BAC 9D E5 8A STA H8AE5,X 8BAF CA DEX 8BB0 10 F7 BPL H8BA9 ;=> 8BB2 4C B3 94 JMP H94B3 ;==> 8BB5 00 H8BB5 .DB $00 8BB6 C8 H8BB6 .DB $C8 8BB7 05 .DB $05 8BB8 7F .DB $7F 8BB9 03 .DB $03 8BBA 3C .DB $3C 8BBB 02 .DB $02 8BBC AD E6 8A GM3C LDA H8AE6 8BBF 29 03 AND #$03 8BC1 09 C8 ORA #$C8 8BC3 8D D5 8B STA H8BD5 8BC6 A2 06 LDX #$06 8BC8 BD D4 8B H8BC8 LDA H8BD4,X 8BCB 9D E5 8A STA H8AE5,X 8BCE CA DEX 8BCF 10 F7 BPL H8BC8 ;=> 8BD1 4C B3 94 JMP H94B3 ;==> 8BD4 00 H8BD4 .DB $00 8BD5 C8 H8BD5 .DB $C8 8BD6 09 .DB $09 8BD7 BF .DB $BF 8BD8 05 .DB $05 8BD9 5C .DB $5C 8BDA 04 .DB $04 8BDB AD E6 8A GM3D LDA H8AE6 8BDE 29 03 AND #$03 8BE0 09 C8 ORA #$C8 8BE2 8D F4 8B STA H8BF4 8BE5 A2 06 LDX #$06 8BE7 BD F3 8B H8BE7 LDA H8BF3,X 8BEA 9D E5 8A STA H8AE5,X 8BED CA DEX 8BEE 10 F7 BPL H8BE7 ;=> 8BF0 4C B3 94 JMP H94B3 ;==> 8BF3 00 H8BF3 .DB $00 8BF4 C8 H8BF4 .DB $C8 8BF5 0D .DB $0D 8BF6 FF .DB $FF 8BF7 07 .DB $07 8BF8 7C .DB $7C 8BF9 06 .DB $06 8BFA AD E6 8A GM2 LDA H8AE6 8BFD 29 03 AND #$03 8BFF 09 C0 ORA #$C0 8C01 8D 13 8C STA H8C13 8C04 A2 06 LDX #$06 8C06 BD 12 8C H8C06 LDA H8C12,X 8C09 9D E5 8A STA H8AE5,X 8C0C CA DEX 8C0D 10 F7 BPL H8C06 ;=> 8C0F 4C D0 8A JMP H8AD0 ;==> 8C12 02 H8C12 .DB $02 8C13 C0 H8C13 .DB $C0 8C14 06 .DB $06 8C15 FF .DB $FF 8C16 03 .DB $03 8C17 36 .DB $36 8C18 07 .DB $07 8C19 20 BE DE RSTA JSR CHKCOM 8C1C 20 9A 8A JSR H8A9A 8C1F A8 TAY 8C20 A9 00 LDA #0 8C22 20 F2 E2 JSR GIVAYF 8C25 20 E3 DF JSR PTRGET 8C28 20 6A DD JSR CHKNUM 8C2B AA TAX 8C2C 20 2B EB JSR MOVMF 8C2F 60 RTS 8C30 20 4C E7 BCOL JSR COMBYTE 8C33 20 9A 8A H8C33 JSR H8A9A 8C36 10 FB BPL H8C33 ;=> 8C38 8A TXA 8C39 8D EC 8A STA H8AEC 8C3C 20 A2 8A JSR H8AA2 8C3F A9 87 LDA #$87 8C41 20 A2 8A JSR H8AA2 8C44 60 RTS 8C45 20 4C E7 VREG JSR COMBYTE 8C48 E0 08 CPX #$08 8C4A B0 19 BCS H8C65 ;=> 8C4C 86 1A STX Z1A 8C4E 20 4C E7 H8C4E JSR COMBYTE 8C51 8A TXA 8C52 A6 1A LDX Z1A 8C54 9D E5 8A STA H8AE5,X 8C57 20 D2 94 JSR H94D2 8C5A D0 0E BNE H8C6A ;=> 8C5C E8 INX 8C5D E0 08 CPX #$08 8C5F B0 04 BCS H8C65 ;=> 8C61 86 1A STX Z1A 8C63 90 E9 BCC H8C4E ;=> 8C65 A2 10 H8C65 LDX #$10 8C67 4C 12 D4 JMP ERROR ;==> 8C6A 4C D0 8A H8C6A JMP H8AD0 ;==> 8C6D 20 9A 8A APVD JSR H8A9A 8C70 A9 01 LDA #1 8C72 20 A2 8A JSR H8AA2 8C75 A9 80 LDA #$80 8C77 20 A2 8A JSR H8AA2 8C7A 20 A2 8A JSR H8AA2 8C7D A9 81 LDA #$81 8C7F 20 A2 8A JSR H8AA2 8C82 A9 00 LDA #0 8C84 20 A2 8A JSR H8AA2 8C87 A9 87 LDA #$87 8C89 20 A2 8A JSR H8AA2 8C8C 60 RTS 8C8D A9 00 H8C8D LDA #0 8C8F 85 07 STA Z07 8C91 A5 3A LDA Z3A 8C93 0A ASL 8C94 0A ASL 8C95 0A ASL 8C96 0A ASL 8C97 26 07 ROL Z07 8C99 0A ASL 8C9A 26 07 ROL Z07 8C9C 65 1F ADC Z1F 8C9E 85 06 STA Z06 8CA0 AD E7 8A H8CA0 LDA H8AE7 8CA3 0A ASL 8CA4 0A ASL 8CA5 18 CLC 8CA6 65 07 ADC Z07 8CA8 85 09 STA Z09 8CAA A5 06 LDA Z06 8CAC 85 08 STA Z08 8CAE 60 RTS 8CAF 20 4C E7 STIL JSR COMBYTE 8CB2 86 1F STX Z1F 8CB4 20 4C E7 JSR COMBYTE 8CB7 86 3A STX Z3A 8CB9 20 8D 8C JSR H8C8D 8CBC 20 C0 8A JSR H8AC0 8CBF 20 D9 94 JSR H94D9 8CC2 A5 50 LDA Z50 8CC4 20 A6 8A JSR H8AA6 8CC7 20 D2 94 JSR H94D2 8CCA F0 E3 BEQ STIL ;=> 8CCC 60 RTS 8CCD 20 4C E7 VTIL JSR COMBYTE 8CD0 86 1F STX Z1F 8CD2 20 4C E7 JSR COMBYTE 8CD5 86 3A STX Z3A 8CD7 20 8D 8C JSR H8C8D 8CDA 20 C0 8A H8CDA JSR H8AC0 8CDD 20 D9 94 JSR H94D9 8CE0 A5 50 LDA Z50 8CE2 20 A6 8A JSR H8AA6 8CE5 20 D2 94 JSR H94D2 8CE8 D0 10 BNE H8CFA ;=>RTS 8CEA A5 08 LDA Z08 8CEC 18 CLC 8CED 69 20 ADC #$20 8CEF 85 08 STA Z08 8CF1 A9 00 LDA #0 8CF3 65 09 ADC Z09 8CF5 85 09 STA Z09 8CF7 4C DA 8C JMP H8CDA ;==> 8CFA 60 H8CFA RTS 8CFB 20 4C E7 HTIL JSR COMBYTE 8CFE 86 1F STX Z1F 8D00 20 4C E7 JSR COMBYTE 8D03 86 3A STX Z3A 8D05 20 8D 8C JSR H8C8D 8D08 20 C0 8A JSR H8AC0 8D0B 20 D9 94 H8D0B JSR H94D9 8D0E A5 50 LDA Z50 8D10 20 A6 8A JSR H8AA6 8D13 20 D2 94 JSR H94D2 8D16 F0 F3 BEQ H8D0B ;=> 8D18 60 RTS 8D19 20 4C E7 GTIL JSR COMBYTE 8D1C 86 1F STX Z1F 8D1E 20 4C E7 JSR COMBYTE 8D21 86 3A STX Z3A 8D23 20 8D 8C JSR H8C8D 8D26 20 B2 8A JSR H8AB2 8D29 20 BE DE JSR CHKCOM 8D2C 20 9E 8A JSR H8A9E 8D2F A8 TAY 8D30 AD E5 8A LDA H8AE5 8D33 29 02 AND #$02 8D35 F0 05 BEQ H8D3C ;=> 8D37 A5 3A LDA Z3A 8D39 4A LSR 8D3A 4A LSR 8D3B 4A LSR 8D3C 20 E2 94 H8D3C JSR H94E2 8D3F 20 D2 94 JSR H94D2 8D42 F0 D5 BEQ GTIL ;=> 8D44 60 RTS 8D45 20 4C E7 HROW JSR COMBYTE 8D48 86 1F STX Z1F 8D4A 20 4C E7 JSR COMBYTE 8D4D 86 3A STX Z3A 8D4F 20 8D 8C JSR H8C8D 8D52 20 C0 8A JSR H8AC0 8D55 20 D9 94 JSR H94D9 8D58 A5 50 LDA Z50 8D5A 48 PHA 8D5B 20 A6 8A JSR H8AA6 8D5E 20 4C E7 JSR COMBYTE 8D61 CA DEX 8D62 F0 08 BEQ H8D6C ;=> 8D64 68 PLA 8D65 20 A6 8A H8D65 JSR H8AA6 8D68 CA DEX 8D69 D0 FA BNE H8D65 ;=> 8D6B 48 PHA 8D6C 68 H8D6C PLA 8D6D 60 RTS 8D6E 20 4C E7 VCOL JSR COMBYTE 8D71 86 1F STX Z1F 8D73 20 4C E7 JSR COMBYTE 8D76 86 3A STX Z3A 8D78 20 8D 8C JSR H8C8D 8D7B 20 C0 8A JSR H8AC0 8D7E 20 D9 94 JSR H94D9 8D81 A5 50 LDA Z50 8D83 48 PHA 8D84 20 A6 8A JSR H8AA6 8D87 20 4C E7 JSR COMBYTE 8D8A CA DEX 8D8B F0 16 BEQ H8DA3 ;=> 8D8D A9 20 H8D8D LDA #$20 8D8F 18 CLC 8D90 65 08 ADC Z08 8D92 85 08 STA Z08 8D94 90 02 BCC H8D98 ;=> 8D96 E6 09 INC Z09 8D98 20 C0 8A H8D98 JSR H8AC0 8D9B 68 PLA 8D9C 20 A6 8A JSR H8AA6 8D9F CA DEX 8DA0 48 PHA 8DA1 D0 EA BNE H8D8D ;=> 8DA3 68 H8DA3 PLA 8DA4 60 RTS 8DA5 A9 00 H8DA5 LDA #0 8DA7 85 06 STA Z06 8DA9 85 07 STA Z07 8DAB 20 A0 8C JSR H8CA0 8DAE 20 C0 8A JSR H8AC0 8DB1 A0 00 LDY #0 8DB3 A2 20 H8DB3 LDX #$20 8DB5 98 TYA 8DB6 29 FC AND #$FC 8DB8 0A ASL 8DB9 0A ASL 8DBA 0A ASL 8DBB 20 A6 8A H8DBB JSR H8AA6 8DBE 18 CLC 8DBF 69 01 ADC #1 8DC1 CA DEX 8DC2 D0 F7 BNE H8DBB ;=> 8DC4 C8 INY 8DC5 C0 18 CPY #$18 8DC7 D0 EA BNE H8DB3 ;=> 8DC9 60 RTS 8DCA A9 00 FILL LDA #0 8DCC 85 06 STA Z06 8DCE 85 07 STA Z07 8DD0 20 A0 8C JSR H8CA0 8DD3 20 C0 8A JSR H8AC0 8DD6 20 D9 94 JSR H94D9 8DD9 A5 50 LDA Z50 8DDB A2 03 LDX #$03 8DDD A0 00 LDY #0 8DDF 20 A6 8A H8DDF JSR H8AA6 8DE2 88 DEY 8DE3 D0 FA BNE H8DDF ;=> 8DE5 CA DEX 8DE6 D0 F7 BNE H8DDF ;=> 8DE8 60 RTS 8DE9 A9 00 H8DE9 LDA #0 8DEB 85 08 STA Z08 8DED AD E8 8A LDA H8AE8 8DF0 4A LSR 8DF1 66 08 ROR Z08 8DF3 4A LSR 8DF4 66 08 ROR Z08 8DF6 85 09 STA Z09 8DF8 A5 06 LDA Z06 8DFA 18 CLC 8DFB 65 08 ADC Z08 8DFD 85 08 STA Z08 8DFF 60 RTS 8E00 AD E8 8A H8E00 LDA H8AE8 8E03 29 80 AND #$80 8E05 F0 02 BEQ H8E09 ;=> 8E07 A9 04 LDA #$04 8E09 18 H8E09 CLC 8E0A 65 07 ADC Z07 8E0C 85 09 STA Z09 8E0E A5 06 LDA Z06 8E10 0A ASL 8E11 26 09 ROL Z09 8E13 0A ASL 8E14 26 09 ROL Z09 8E16 0A ASL 8E17 26 09 ROL Z09 8E19 85 08 STA Z08 8E1B 60 RTS 8E1C 20 D9 94 TCOL JSR H94D9 8E1F A5 50 LDA Z50 8E21 85 06 STA Z06 8E23 A5 51 LDA Z51 8E25 85 07 STA Z07 8E27 20 00 8E JSR H8E00 8E2A 20 C0 8A JSR H8AC0 8E2D A2 08 LDX #$08 8E2F 8A H8E2F TXA 8E30 48 PHA 8E31 20 4C E7 JSR COMBYTE 8E34 8A TXA 8E35 20 A6 8A JSR H8AA6 8E38 68 PLA 8E39 AA TAX 8E3A CA DEX 8E3B D0 F2 BNE H8E2F ;=> 8E3D 20 D2 94 JSR H94D2 8E40 F0 DA BEQ TCOL ;=> 8E42 60 RTS 8E43 20 D9 94 RTCL JSR H94D9 8E46 A5 50 LDA Z50 8E48 85 06 STA Z06 8E4A A5 51 LDA Z51 8E4C 85 07 STA Z07 8E4E 20 00 8E JSR H8E00 8E51 20 B2 8A JSR H8AB2 8E54 A2 08 LDX #$08 8E56 86 1C STX Z1C 8E58 20 9E 8A H8E58 JSR H8A9E 8E5B 85 19 STA Z19 8E5D 20 BE DE JSR CHKCOM 8E60 A4 19 LDY Z19 8E62 A9 00 LDA #0 8E64 20 E2 94 JSR H94E2 8E67 C6 1C DEC Z1C 8E69 D0 ED BNE H8E58 ;=> 8E6B 20 D2 94 JSR H94D2 8E6E F0 D3 BEQ RTCL ;=> 8E70 60 RTS 8E71 20 4C E7 CSET JSR COMBYTE 8E74 86 06 STX Z06 8E76 20 E9 8D JSR H8DE9 8E79 20 C0 8A JSR H8AC0 8E7C 20 4C E7 JSR COMBYTE 8E7F 8A TXA 8E80 20 A6 8A JSR H8AA6 8E83 20 D2 94 JSR H94D2 8E86 F0 E9 BEQ CSET ;=> 8E88 60 RTS 8E89 20 4C E7 RCST JSR COMBYTE 8E8C 86 06 STX Z06 8E8E 20 E9 8D JSR H8DE9 8E91 20 B2 8A JSR H8AB2 8E94 20 BE DE JSR CHKCOM 8E97 20 9E 8A JSR H8A9E 8E9A A8 TAY 8E9B A9 00 LDA #0 8E9D 20 E2 94 JSR H94E2 8EA0 20 D2 94 JSR H94D2 8EA3 F0 E4 BEQ RCST ;=> 8EA5 60 RTS 8EA6 AD E5 8A H8EA6 LDA H8AE5 8EA9 29 02 AND #$02 8EAB 08 PHP 8EAC AD E9 8A LDA H8AE9 8EAF 28 PLP 8EB0 F0 05 BEQ H8EB7 ;=> 8EB2 29 04 AND #$04 8EB4 18 CLC 8EB5 65 07 ADC Z07 8EB7 85 09 H8EB7 STA Z09 8EB9 A5 06 LDA Z06 8EBB 0A ASL 8EBC 26 09 ROL Z09 8EBE 0A ASL 8EBF 26 09 ROL Z09 8EC1 0A ASL 8EC2 26 09 ROL Z09 8EC4 85 08 STA Z08 8EC6 60 RTS 8EC7 20 BE DE DTIL JSR CHKCOM 8ECA 20 67 DD JSR FRMNUM 8ECD 20 52 E7 JSR GETADR 8ED0 A5 50 LDA Z50 8ED2 85 06 STA Z06 8ED4 A5 51 LDA Z51 8ED6 85 07 STA Z07 8ED8 20 A6 8E JSR H8EA6 8EDB 20 C0 8A JSR H8AC0 8EDE A2 08 LDX #$08 8EE0 8A H8EE0 TXA 8EE1 48 PHA 8EE2 20 4C E7 JSR COMBYTE 8EE5 8A TXA 8EE6 20 A6 8A JSR H8AA6 8EE9 68 PLA 8EEA AA TAX 8EEB CA DEX 8EEC D0 F2 BNE H8EE0 ;=> 8EEE 20 D2 94 JSR H94D2 8EF1 F0 D4 BEQ DTIL ;=> 8EF3 60 RTS 8EF4 20 D9 94 RTIL JSR H94D9 8EF7 A5 50 LDA Z50 8EF9 85 06 STA Z06 8EFB A5 51 LDA Z51 8EFD 85 07 STA Z07 8EFF 20 A6 8E JSR H8EA6 8F02 20 B2 8A JSR H8AB2 8F05 A2 08 LDX #$08 8F07 86 1C STX Z1C 8F09 20 9E 8A H8F09 JSR H8A9E 8F0C 85 19 STA Z19 8F0E 20 BE DE JSR CHKCOM 8F11 A4 19 LDY Z19 8F13 A9 00 LDA #0 8F15 20 E2 94 JSR H94E2 8F18 C6 1C DEC Z1C 8F1A D0 ED BNE H8F09 ;=> 8F1C 20 D2 94 JSR H94D2 8F1F F0 D3 BEQ RTIL ;=> 8F21 60 RTS 8F22 48 H8F22 PHA 8F23 A9 00 LDA #0 8F25 85 06 STA Z06 8F27 20 A6 8E JSR H8EA6 8F2A 20 C0 8A JSR H8AC0 8F2D A2 00 LDX #0 8F2F A0 08 LDY #$08 8F31 68 PLA 8F32 20 A6 8A H8F32 JSR H8AA6 8F35 CA DEX 8F36 D0 FA BNE H8F32 ;=> 8F38 88 DEY 8F39 D0 F7 BNE H8F32 ;=> 8F3B 60 RTS 8F3C 20 4C E7 PLT JSR COMBYTE 8F3F 8A TXA 8F40 29 3F AND #$3F 8F42 85 1F STA Z1F 8F44 20 4C E7 JSR COMBYTE 8F47 8A TXA 8F48 85 3A STA Z3A 8F4A A5 3A H8F4A LDA Z3A 8F4C 29 38 AND #$38 8F4E 0A ASL 8F4F 0A ASL 8F50 85 1A STA Z1A 8F52 A5 1F LDA Z1F 8F54 4A LSR 8F55 08 PHP 8F56 18 CLC 8F57 65 1A ADC Z1A 8F59 85 06 STA Z06 8F5B A9 00 LDA #0 8F5D 85 07 STA Z07 8F5F 20 A6 8E JSR H8EA6 8F62 A5 3A LDA Z3A 8F64 29 07 AND #$07 8F66 18 CLC 8F67 65 08 ADC Z08 8F69 85 08 STA Z08 8F6B 90 02 BCC H8F6F ;=> 8F6D E6 09 INC Z09 8F6F 20 B2 8A H8F6F JSR H8AB2 8F72 20 9E 8A JSR H8A9E 8F75 28 PLP 8F76 90 06 BCC H8F7E ;=> 8F78 29 F0 AND #$F0 8F7A 05 D6 ORA ZD6 8F7C B0 04 BCS H8F82 ;=> 8F7E 29 0F H8F7E AND #$0F 8F80 05 D7 ORA ZD7 8F82 48 H8F82 PHA 8F83 20 C0 8A JSR H8AC0 8F86 68 PLA 8F87 20 A6 8A JSR H8AA6 8F8A 60 RTS 8F8B 20 4C E7 SCN JSR COMBYTE 8F8E 8A TXA 8F8F 29 3F AND #$3F 8F91 85 1F STA Z1F 8F93 20 4C E7 JSR COMBYTE 8F96 8A TXA 8F97 85 3A STA Z3A 8F99 A5 3A LDA Z3A 8F9B 29 38 AND #$38 8F9D 0A ASL 8F9E 0A ASL 8F9F 85 1A STA Z1A 8FA1 A5 1F LDA Z1F 8FA3 4A LSR 8FA4 08 PHP 8FA5 18 CLC 8FA6 65 1A ADC Z1A 8FA8 85 06 STA Z06 8FAA A9 00 LDA #0 8FAC 85 07 STA Z07 8FAE 20 A6 8E JSR H8EA6 8FB1 A5 3A LDA Z3A 8FB3 29 07 AND #$07 8FB5 18 CLC 8FB6 65 08 ADC Z08 8FB8 85 08 STA Z08 8FBA 90 02 BCC H8FBE ;=> 8FBC E6 09 INC Z09 8FBE 20 B2 8A H8FBE JSR H8AB2 8FC1 20 9E 8A JSR H8A9E 8FC4 28 PLP 8FC5 90 04 BCC H8FCB ;=> 8FC7 29 0F AND #$0F 8FC9 B0 04 BCS H8FCF ;=> 8FCB 4A H8FCB LSR 8FCC 4A LSR 8FCD 4A LSR 8FCE 4A LSR 8FCF 48 H8FCF PHA 8FD0 20 BE DE JSR CHKCOM 8FD3 68 PLA 8FD4 A8 TAY 8FD5 A9 00 LDA #0 8FD7 20 F2 E2 JSR GIVAYF 8FDA 20 E3 DF JSR PTRGET 8FDD 20 6A DD JSR CHKNUM 8FE0 AA TAX 8FE1 20 2B EB JSR MOVMF 8FE4 60 RTS 8FE5 20 4C E7 HLN JSR COMBYTE 8FE8 86 1F STX Z1F 8FEA 20 4C E7 JSR COMBYTE 8FED E8 INX 8FEE 8A TXA 8FEF 38 SEC 8FF0 E5 1F SBC Z1F 8FF2 85 1B STA Z1B 8FF4 20 4C E7 JSR COMBYTE 8FF7 86 3A STX Z3A 8FF9 20 4A 8F H8FF9 JSR H8F4A 8FFC C6 1B DEC Z1B 8FFE F0 04 BEQ H9004 ;=>RTS 9000 E6 1F INC Z1F 9002 D0 F5 BNE H8FF9 ;=> 9004 60 H9004 RTS 9005 20 4C E7 VLN JSR COMBYTE 9008 86 3A STX Z3A 900A 20 4C E7 JSR COMBYTE 900D E8 INX 900E 8A TXA 900F 38 SEC 9010 E5 3A SBC Z3A 9012 85 1B STA Z1B 9014 20 4C E7 JSR COMBYTE 9017 8A TXA 9018 85 1F STA Z1F 901A 20 4A 8F H901A JSR H8F4A 901D C6 1B DEC Z1B 901F F0 04 BEQ H9025 ;=>RTS 9021 E6 3A INC Z3A 9023 D0 F5 BNE H901A ;=> 9025 60 H9025 RTS 9026 A9 00 H9026 LDA #0 9028 85 08 STA Z08 902A AD EA 8A LDA H8AEA 902D 4A LSR 902E 66 08 ROR Z08 9030 85 09 STA Z09 9032 A5 06 LDA Z06 9034 0A ASL 9035 0A ASL 9036 65 08 ADC Z08 9038 85 08 STA Z08 903A 60 RTS 903B 20 4C E7 SSPR JSR COMBYTE 903E 86 06 STX Z06 9040 20 26 90 JSR H9026 9043 20 C0 8A JSR H8AC0 9046 20 4C E7 JSR COMBYTE 9049 8A TXA 904A 20 A6 8A JSR H8AA6 904D 20 4C E7 JSR COMBYTE 9050 8A TXA 9051 20 A6 8A JSR H8AA6 9054 20 D2 94 JSR H94D2 9057 D0 18 BNE H9071 ;=>RTS 9059 20 4C E7 JSR COMBYTE 905C 8A TXA 905D 20 A6 8A JSR H8AA6 9060 20 D2 94 JSR H94D2 9063 D0 0C BNE H9071 ;=> 9065 20 4C E7 JSR COMBYTE 9068 8A TXA 9069 20 A6 8A JSR H8AA6 906C 20 D2 94 JSR H94D2 906F F0 CA BEQ SSPR ;=> 9071 60 H9071 RTS 9072 20 4C E7 SY JSR COMBYTE 9075 86 06 STX Z06 9077 20 26 90 JSR H9026 907A 20 C0 8A JSR H8AC0 907D 20 4C E7 JSR COMBYTE 9080 8A TXA 9081 20 A6 8A JSR H8AA6 9084 20 D2 94 JSR H94D2 9087 F0 E9 BEQ SY ;=> 9089 60 RTS 908A 20 4C E7 GY JSR COMBYTE 908D 86 06 STX Z06 908F 20 26 90 JSR H9026 9092 20 B2 8A JSR H8AB2 9095 20 BE DE JSR CHKCOM 9098 20 9E 8A JSR H8A9E 909B A8 TAY 909C A9 00 LDA #0 909E 20 F2 E2 JSR GIVAYF 90A1 20 E3 DF JSR PTRGET 90A4 20 6A DD JSR CHKNUM 90A7 AA TAX 90A8 20 2B EB JSR MOVMF 90AB 60 RTS 90AC 20 4C E7 SX JSR COMBYTE 90AF 86 06 STX Z06 90B1 20 26 90 JSR H9026 90B4 E6 08 INC Z08 90B6 20 C0 8A JSR H8AC0 90B9 20 4C E7 JSR COMBYTE 90BC 8A TXA 90BD 20 A6 8A JSR H8AA6 90C0 20 D2 94 JSR H94D2 90C3 F0 E7 BEQ SX ;=> 90C5 60 RTS 90C6 20 4C E7 GX JSR COMBYTE 90C9 86 06 STX Z06 90CB 20 26 90 JSR H9026 90CE E6 08 INC Z08 90D0 20 B2 8A JSR H8AB2 90D3 20 BE DE JSR CHKCOM 90D6 20 9E 8A JSR H8A9E 90D9 A8 TAY 90DA A9 00 LDA #0 90DC 20 F2 E2 JSR GIVAYF 90DF 20 E3 DF JSR PTRGET 90E2 20 6A DD JSR CHKNUM 90E5 AA TAX 90E6 20 2B EB JSR MOVMF 90E9 60 RTS 90EA 20 4C E7 SP JSR COMBYTE 90ED 86 06 STX Z06 90EF 20 26 90 JSR H9026 90F2 E6 08 INC Z08 90F4 E6 08 INC Z08 90F6 20 C0 8A JSR H8AC0 90F9 20 4C E7 JSR COMBYTE 90FC 8A TXA 90FD 20 A6 8A JSR H8AA6 9100 20 D2 94 JSR H94D2 9103 F0 E5 BEQ SP ;=> 9105 60 RTS 9106 20 4C E7 GP JSR COMBYTE 9109 86 06 STX Z06 910B 20 26 90 JSR H9026 910E E6 08 INC Z08 9110 E6 08 INC Z08 9112 20 B2 8A JSR H8AB2 9115 20 BE DE JSR CHKCOM 9118 20 9E 8A JSR H8A9E 911B A8 TAY 911C A9 00 LDA #0 911E 20 F2 E2 JSR GIVAYF 9121 20 E3 DF JSR PTRGET 9124 20 6A DD JSR CHKNUM 9127 AA TAX 9128 20 2B EB JSR MOVMF 912B 60 RTS 912C 20 4C E7 SC JSR COMBYTE 912F 86 06 STX Z06 9131 20 26 90 JSR H9026 9134 E6 08 INC Z08 9136 E6 08 INC Z08 9138 E6 08 INC Z08 913A 20 C0 8A JSR H8AC0 913D 20 4C E7 JSR COMBYTE 9140 8A TXA 9141 20 A6 8A JSR H8AA6 9144 20 D2 94 JSR H94D2 9147 F0 E3 BEQ SC ;=> 9149 60 RTS 914A 20 4C E7 GC JSR COMBYTE 914D 86 06 STX Z06 914F 20 26 90 JSR H9026 9152 E6 08 INC Z08 9154 E6 08 INC Z08 9156 E6 08 INC Z08 9158 20 B2 8A JSR H8AB2 915B 20 BE DE JSR CHKCOM 915E 20 9E 8A JSR H8A9E 9161 A8 TAY 9162 A9 00 LDA #0 9164 20 F2 E2 JSR GIVAYF 9167 20 E3 DF JSR PTRGET 916A 20 6A DD JSR CHKNUM 916D AA TAX 916E 20 2B EB JSR MOVMF 9171 60 RTS 9172 20 4C E7 GSPR JSR COMBYTE 9175 86 06 STX Z06 9177 20 26 90 JSR H9026 917A 20 B2 8A JSR H8AB2 917D 20 9E 8A JSR H8A9E 9180 85 1A STA Z1A 9182 20 BE DE JSR CHKCOM 9185 A4 1A LDY Z1A 9187 A9 00 LDA #0 9189 20 E2 94 JSR H94E2 918C 20 9E 8A JSR H8A9E 918F 85 1A STA Z1A 9191 20 BE DE JSR CHKCOM 9194 A4 1A LDY Z1A 9196 A9 00 LDA #0 9198 20 E2 94 JSR H94E2 919B 20 D2 94 JSR H94D2 919E D0 28 BNE H91C8 ;=>RTS 91A0 20 9E 8A JSR H8A9E 91A3 85 1A STA Z1A 91A5 20 BE DE JSR CHKCOM 91A8 A4 1A LDY Z1A 91AA A9 00 LDA #0 91AC 20 E2 94 JSR H94E2 91AF 20 D2 94 JSR H94D2 91B2 D0 14 BNE H91C8 ;=>RTS 91B4 20 9E 8A JSR H8A9E 91B7 85 1A STA Z1A 91B9 20 BE DE JSR CHKCOM 91BC A4 1A LDY Z1A 91BE A9 00 LDA #0 91C0 20 E2 94 JSR H94E2 91C3 20 D2 94 JSR H94D2 91C6 F0 AA BEQ GSPR ;=> 91C8 60 H91C8 RTS 91C9 AD EB 8A H91C9 LDA H8AEB 91CC 4C B7 8E JMP H8EB7 ;==> 91CF 20 4C E7 DSPR JSR COMBYTE 91D2 86 06 STX Z06 91D4 20 C9 91 JSR H91C9 91D7 20 C0 8A JSR H8AC0 91DA A2 08 LDX #$08 91DC 8A H91DC TXA 91DD 48 PHA 91DE 20 4C E7 JSR COMBYTE 91E1 8A TXA 91E2 20 A6 8A JSR H8AA6 91E5 68 PLA 91E6 AA TAX 91E7 CA DEX 91E8 D0 F2 BNE H91DC ;=> 91EA 20 D2 94 JSR H94D2 91ED F0 E0 BEQ DSPR ;=> 91EF 60 RTS 91F0 20 D9 94 RSPR JSR H94D9 91F3 A5 50 LDA Z50 91F5 85 06 STA Z06 91F7 A5 51 LDA Z51 91F9 85 07 STA Z07 91FB 20 C9 91 JSR H91C9 91FE 20 B2 8A JSR H8AB2 9201 A2 08 LDX #$08 9203 86 1C STX Z1C 9205 20 9E 8A H9205 JSR H8A9E 9208 85 19 STA Z19 920A 20 BE DE JSR CHKCOM 920D A4 19 LDY Z19 920F A9 00 LDA #0 9211 20 E2 94 JSR H94E2 9214 C6 1C DEC Z1C 9216 D0 ED BNE H9205 ;=> 9218 20 D2 94 JSR H94D2 921B F0 D3 BEQ RSPR ;=> 921D 60 RTS 921E A9 07 MXR LDA #$07 9220 20 AA 8A JSR H8AAA 9223 20 4C E7 JSR COMBYTE 9226 8A TXA 9227 09 C0 ORA #$C0 9229 8D 0B 93 STA H930B 922C 20 AE 8A JSR H8AAE 922F 60 RTS 9230 20 BE DE TNA JSR CHKCOM 9233 20 67 DD JSR FRMNUM 9236 20 52 E7 JSR GETADR 9239 A9 00 LDA #0 923B 20 AA 8A JSR H8AAA 923E A5 50 LDA Z50 9240 20 AE 8A JSR H8AAE 9243 A9 01 LDA #1 9245 20 AA 8A JSR H8AAA 9248 A5 51 LDA Z51 924A 20 AE 8A JSR H8AAE 924D A9 07 LDA #$07 924F 20 AA 8A JSR H8AAA 9252 AD 0B 93 LDA H930B 9255 29 FE AND #$FE 9257 8D 0B 93 STA H930B 925A 20 AE 8A JSR H8AAE 925D 20 D2 94 JSR H94D2 9260 D0 08 BNE H926A ;=>RTS 9262 20 6B 92 JSR VOLA 9265 20 D2 94 JSR H94D2 9268 F0 0E BEQ TNB ;=> 926A 60 H926A RTS 926B A9 08 VOLA LDA #$08 926D 20 AA 8A JSR H8AAA 9270 20 4C E7 JSR COMBYTE 9273 8A TXA 9274 20 AE 8A JSR H8AAE 9277 60 RTS 9278 20 BE DE TNB JSR CHKCOM 927B 20 67 DD JSR FRMNUM 927E 20 52 E7 JSR GETADR 9281 A9 02 LDA #$02 9283 20 AA 8A JSR H8AAA 9286 A5 50 LDA Z50 9288 20 AE 8A JSR H8AAE 928B A9 03 LDA #$03 928D 20 AA 8A JSR H8AAA 9290 A5 51 LDA Z51 9292 20 AE 8A JSR H8AAE 9295 A9 07 LDA #$07 9297 20 AA 8A JSR H8AAA 929A AD 0B 93 LDA H930B 929D 29 FD AND #$FD 929F 8D 0B 93 STA H930B 92A2 20 AE 8A JSR H8AAE 92A5 20 D2 94 JSR H94D2 92A8 D0 08 BNE H92B2 ;=>RTS 92AA 20 B3 92 JSR VOLB 92AD 20 D2 94 JSR H94D2 92B0 F0 0E BEQ TNC ;=> 92B2 60 H92B2 RTS 92B3 A9 09 VOLB LDA #$09 92B5 20 AA 8A JSR H8AAA 92B8 20 4C E7 JSR COMBYTE 92BB 8A TXA 92BC 20 AE 8A JSR H8AAE 92BF 60 RTS 92C0 20 BE DE TNC JSR CHKCOM 92C3 20 67 DD JSR FRMNUM 92C6 20 52 E7 JSR GETADR 92C9 A9 04 LDA #$04 92CB 20 AA 8A JSR H8AAA 92CE A5 50 LDA Z50 92D0 20 AE 8A JSR H8AAE 92D3 A9 05 LDA #$05 92D5 20 AA 8A JSR H8AAA 92D8 A5 51 LDA Z51 92DA 20 AE 8A JSR H8AAE 92DD A9 07 LDA #$07 92DF 20 AA 8A JSR H8AAA 92E2 AD 0B 93 LDA H930B 92E5 29 FB AND #$FB 92E7 8D 0B 93 STA H930B 92EA 20 AE 8A JSR H8AAE 92ED 20 D2 94 JSR H94D2 92F0 D0 0B BNE H92FD ;=>RTS 92F2 20 FE 92 JSR VOLC 92F5 20 D2 94 JSR H94D2 92F8 D0 03 BNE H92FD ;=>RTS 92FA 4C 30 92 JMP TNA ;==> 92FD 60 H92FD RTS 92FE A9 0A VOLC LDA #$0A 9300 20 AA 8A JSR H8AAA 9303 20 4C E7 JSR COMBYTE 9306 8A TXA 9307 20 AE 8A JSR H8AAE 930A 60 RTS 930B FF H930B .DB $FF ; 930C 00 H930C .DB $00 ; 930D A9 07 SOFF LDA #$07 930F 20 AA 8A JSR H8AAA 9312 A9 FF LDA #$FF 9314 8D 0B 93 STA H930B 9317 20 AE 8A JSR H8AAE 931A A9 08 LDA #$08 931C 20 AA 8A JSR H8AAA 931F A9 00 LDA #0 9321 20 AE 8A JSR H8AAE 9324 A9 09 LDA #$09 9326 20 AA 8A JSR H8AAA 9329 A9 00 LDA #0 932B 20 AE 8A JSR H8AAE 932E A9 0A LDA #$0A 9330 20 AA 8A JSR H8AAA 9333 A9 00 LDA #0 9335 20 AE 8A JSR H8AAE 9338 60 RTS 9339 A9 07 NSA LDA #$07 933B 20 AA 8A JSR H8AAA 933E A9 08 LDA #$08 9340 85 1A STA Z1A 9342 AD 0B 93 LDA H930B 9345 29 F7 AND #$F7 9347 8D 0B 93 H9347 STA H930B 934A 20 AE 8A JSR H8AAE 934D A9 06 LDA #$06 934F 20 AA 8A JSR H8AAA 9352 20 4C E7 JSR COMBYTE 9355 8A TXA 9356 20 AE 8A JSR H8AAE 9359 20 D2 94 JSR H94D2 935C D0 1D BNE H937B ;=>RTS 935E A5 1A LDA Z1A 9360 20 AA 8A JSR H8AAA 9363 20 4C E7 JSR COMBYTE 9366 8A TXA 9367 20 AE 8A JSR H8AAE 936A 20 D2 94 JSR H94D2 936D D0 0C BNE H937B ;=>RTS 936F A9 0E LDA #$0E 9371 20 AA 8A JSR H8AAA 9374 20 4C E7 JSR COMBYTE 9377 8A TXA 9378 20 AE 8A JSR H8AAE 937B 60 H937B RTS 937C A9 07 NSB LDA #$07 937E 20 AA 8A JSR H8AAA 9381 A9 09 LDA #$09 9383 85 1A STA Z1A 9385 AD 0B 93 LDA H930B 9388 29 EF AND #$EF 938A 4C 47 93 JMP H9347 ;==> 938D A9 07 NSC LDA #$07 938F 20 AA 8A JSR H8AAA 9392 A9 0A LDA #$0A 9394 85 1A STA Z1A 9396 AD 0B 93 LDA H930B 9399 29 DF AND #$DF 939B 4C 47 93 JMP H9347 ;==> 939E A9 0D ENVT LDA #$0D 93A0 20 AA 8A JSR H8AAA 93A3 20 4C E7 JSR COMBYTE 93A6 8A TXA 93A7 8D 0C 93 STA H930C 93AA 20 AE 8A JSR H8AAE 93AD 60 RTS 93AE A9 0B ENVP LDA #$0B 93B0 20 AA 8A JSR H8AAA 93B3 20 BE DE JSR CHKCOM 93B6 20 67 DD JSR FRMNUM 93B9 20 52 E7 JSR GETADR 93BC A5 50 LDA Z50 93BE 20 AE 8A JSR H8AAE 93C1 A9 0C LDA #$0C 93C3 20 AA 8A JSR H8AAA 93C6 A5 51 LDA Z51 93C8 20 AE 8A JSR H8AAE 93CB 60 RTS 93CC A9 0E FILT LDA #$0E 93CE 20 AA 8A JSR H8AAA 93D1 20 4C E7 JSR COMBYTE 93D4 8A TXA 93D5 20 AE 8A JSR H8AAE 93D8 60 RTS 93D9 AD 0B 93 ETNA LDA H930B 93DC 29 FE AND #$FE 93DE 8D 0B 93 STA H930B 93E1 A9 00 LDA #0 93E3 85 1C STA Z1C 93E5 A9 01 LDA #1 93E7 85 1B STA Z1B 93E9 20 14 94 JSR H9414 93EC AD 0B 93 ETNB LDA H930B 93EF 29 FD AND #$FD 93F1 8D 0B 93 STA H930B 93F4 A9 02 LDA #$02 93F6 85 1C STA Z1C 93F8 A9 03 LDA #$03 93FA 85 1B STA Z1B 93FC 20 14 94 JSR H9414 93FF AD 0B 93 ETNC LDA H930B 9402 29 FB AND #$FB 9404 8D 0B 93 STA H930B 9407 A9 04 LDA #$04 9409 85 1C STA Z1C 940B A9 05 LDA #$05 940D 85 1B STA Z1B 940F 20 14 94 JSR H9414 9412 F0 C5 BEQ ETNA ;=> 9414 20 BE DE H9414 JSR CHKCOM 9417 20 67 DD JSR FRMNUM 941A 20 52 E7 JSR GETADR 941D A5 1C LDA Z1C 941F 20 AA 8A JSR H8AAA 9422 A5 50 LDA Z50 9424 20 AE 8A JSR H8AAE 9427 A5 1B LDA Z1B 9429 20 AA 8A JSR H8AAA 942C A5 51 LDA Z51 942E 20 AE 8A JSR H8AAE 9431 A9 07 LDA #$07 9433 20 AA 8A JSR H8AAA 9436 AD 0B 93 LDA H930B 9439 20 AE 8A JSR H8AAE 943C 20 D2 94 JSR H94D2 943F D0 01 BNE H9442 ;=> 9441 60 RTS 9442 A9 0D H9442 LDA #$0D 9444 20 AA 8A JSR H8AAA 9447 AD 0C 93 LDA H930C 944A 20 AE 8A JSR H8AAE 944D 68 PLA 944E 68 PLA 944F 60 RTS 9450 A9 06 ENSA LDA #$06 9452 20 AA 8A JSR H8AAA 9455 20 4C E7 JSR COMBYTE 9458 8A TXA 9459 20 AE 8A JSR H8AAE 945C A9 07 LDA #$07 945E 20 AA 8A JSR H8AAA 9461 AD 0B 93 LDA H930B 9464 29 F7 AND #$F7 9466 8D 0B 93 STA H930B 9469 20 AE 8A JSR H8AAE 946C 48 PHA 946D 48 PHA 946E 4C 42 94 JMP H9442 ;==> 9471 A9 06 ENSB LDA #$06 9473 20 AA 8A JSR H8AAA 9476 20 4C E7 JSR COMBYTE 9479 8A TXA 947A 20 AE 8A JSR H8AAE 947D A9 07 LDA #$07 947F 20 AA 8A JSR H8AAA 9482 AD 0B 93 LDA H930B 9485 29 EF AND #$EF 9487 8D 0B 93 STA H930B 948A 20 AE 8A JSR H8AAE 948D 48 PHA 948E 48 PHA 948F 4C 42 94 JMP H9442 ;==> 9492 A9 06 ENSC LDA #$06 9494 20 AA 8A JSR H8AAA 9497 20 4C E7 JSR COMBYTE 949A 8A TXA 949B 20 AE 8A JSR H8AAE 949E A9 07 LDA #$07 94A0 20 AA 8A JSR H8AAA 94A3 AD 0B 93 LDA H930B 94A6 29 DF AND #$DF 94A8 8D 0B 93 STA H930B 94AB 20 AE 8A JSR H8AAE 94AE 48 PHA 94AF 48 PHA 94B0 4C 42 94 JMP H9442 ;==> 94B3 20 D0 8A H94B3 JSR H8AD0 94B6 A9 00 LDA #0 94B8 85 D6 STA ZD6 94BA 85 D7 STA ZD7 94BC 20 22 8F JSR H8F22 94BF 20 A5 8D JSR H8DA5 94C2 60 RTS 94C3 20 4C E7 COL JSR COMBYTE 94C6 8A TXA 94C7 29 0F AND #$0F 94C9 85 D6 STA ZD6 94CB 0A ASL 94CC 0A ASL 94CD 0A ASL 94CE 0A ASL 94CF 85 D7 STA ZD7 94D1 60 RTS 94D2 A0 00 H94D2 LDY #0 94D4 B1 B8 LDA (ZB8),Y 94D6 C9 2C CMP #$2C 94D8 60 RTS 94D9 20 BE DE H94D9 JSR CHKCOM 94DC 20 67 DD JSR FRMNUM 94DF 4C 52 E7 JMP GETADR ;==> 94E2 20 F2 E2 H94E2 JSR GIVAYF 94E5 20 E3 DF JSR PTRGET 94E8 20 6A DD JSR CHKNUM 94EB AA TAX 94EC 20 2B EB JSR MOVMF 94EF 60 RTS 94F0 20 D9 94 LD JSR H94D9 94F3 A5 50 LDA Z50 94F5 85 1D STA Z1D 94F7 A5 51 LDA Z51 94F9 85 1E STA Z1E 94FB 20 D9 94 JSR H94D9 94FE A5 50 LDA Z50 9500 85 08 STA Z08 9502 A5 51 LDA Z51 9504 85 09 STA Z09 9506 20 C0 8A JSR H8AC0 9509 20 D9 94 JSR H94D9 950C A5 50 LDA Z50 950E 85 19 STA Z19 9510 A5 51 LDA Z51 9512 85 1A STA Z1A 9514 A0 00 LDY #0 9516 B1 1D H9516 LDA (Z1D),Y 9518 20 A6 8A JSR H8AA6 951B A5 19 LDA Z19 951D D0 02 BNE H9521 ;=> 951F C6 1A DEC Z1A 9521 C6 19 H9521 DEC Z19 9523 A5 19 LDA Z19 9525 05 1A ORA Z1A 9527 F0 08 BEQ H9531 ;=>RTS 9529 C8 INY 952A D0 EA BNE H9516 ;=> 952C E6 1E INC Z1E 952E 4C 16 95 JMP H9516 ;==> 9531 60 H9531 RTS 9532 20 D9 94 ULD JSR H94D9 9535 A5 50 LDA Z50 9537 85 08 STA Z08 9539 A5 51 LDA Z51 953B 85 09 STA Z09 953D 20 B2 8A JSR H8AB2 9540 20 D9 94 JSR H94D9 9543 A5 50 LDA Z50 9545 85 1B STA Z1B 9547 A5 51 LDA Z51 9549 85 1C STA Z1C 954B 20 D9 94 JSR H94D9 954E A5 50 LDA Z50 9550 85 19 STA Z19 9552 A5 51 LDA Z51 9554 85 1A STA Z1A 9556 A0 00 LDY #0 9558 20 9E 8A H9558 JSR H8A9E 955B 91 1B STA (Z1B),Y 955D A5 19 LDA Z19 955F D0 02 BNE H9563 ;=> 9561 C6 1A DEC Z1A 9563 C6 19 H9563 DEC Z19 9565 A5 19 LDA Z19 9567 05 1A ORA Z1A 9569 F0 08 BEQ H9573 ;=>RTS 956B C8 INY 956C D0 EA BNE H9558 ;=> 956E E6 1C INC Z1C 9570 4C 58 95 JMP H9558 ;==> 9573 60 H9573 RTS