1 *************************** 2 * * 3 * APPLE II * 4 * SYSTEM MONITOR * 5 * * 6 * COPYRIGHT 1977 BY * 7 * APPLE COMPUTER, INC. * 8 * * 9 * ALL RIGHTS RESERVED * 10 * * 11 * S. WOZNIAK * 12 * A. BAUM * 13 * * 14 *************************** 15 ; TITLE "APPLE II SYSTEM MONITOR" 16 LOC0 EQU $00 17 LOC1 EQU $01 18 WNDLFT EQU $20 19 WNDWDTH EQU $21 20 WNDTOP EQU $22 21 WNDBTM EQU $23 22 CH EQU $24 23 CV EQU $25 24 GBASL EQU $26 25 GBASH EQU $27 26 BASL EQU $28 27 BASH EQU $29 28 BAS2L EQU $2A 29 BAS2H EQU $2B 30 H2 EQU $2C 31 LMNEM EQU $2C 32 RTNL EQU $2C 33 V2 EQU $2D 34 RMNEM EQU $2D 35 RTNH EQU $2D 36 MASK EQU $2E 37 CHKSUM EQU $2E 38 FORMAT EQU $2E 39 LASTIN EQU $2F 40 LENGTH EQU $2F 41 SIGN EQU $2F 42 COLOR EQU $30 43 MODE EQU $31 44 INVFLG EQU $32 45 PROMPT EQU $33 46 YSAV EQU $34 47 YSAV1 EQU $35 48 CSWL EQU $36 49 CSWH EQU $37 50 KSWL EQU $38 51 KSWH EQU $39 52 PCL EQU $3A 53 PCH EQU $3B 54 XQT EQU $3C 55 A1L EQU $3C 56 A1H EQU $3D 57 A2L EQU $3E 58 A2H EQU $3F 59 A3L EQU $40 60 A3H EQU $41 61 A4L EQU $42 62 A4H EQU $43 63 A5L EQU $44 64 A5H EQU $45 65 ACC EQU $45 66 XREG EQU $46 67 YREG EQU $47 68 STATUS EQU $48 69 SPNT EQU $49 70 RNDL EQU $4E 71 RNDH EQU $4F 72 ACL EQU $50 73 ACH EQU $51 74 XTNDL EQU $52 75 XTNDH EQU $53 76 AUXL EQU $54 77 AUXH EQU $55 78 PICK EQU $95 79 IN EQU $0200 80 USRADR EQU $03F8 81 NMI EQU $03FB 82 IRQLOC EQU $03FE 83 IOADR EQU $C000 84 KBD EQU $C000 85 KBDSTRB EQU $C010 86 TAPEOUT EQU $C020 87 SPKR EQU $C030 88 TXTCLR EQU $C050 89 TXTSET EQU $C051 90 MIXCLR EQU $C052 91 MIXSET EQU $C053 92 LOWSCR EQU $C054 93 HISCR EQU $C055 94 LORES EQU $C056 95 HIRES EQU $C057 96 TAPEIN EQU $C060 97 PADDL0 EQU $C064 98 PTRIG EQU $C070 99 BASIC EQU $E000 100 BASIC2 EQU $E003 101 ORG $F800 ;ROM START ADDRESS F800: 4A 102 PLOT LSR ;Y-COORD/2 F801: 08 103 PHP ;SAVE LSB IN CARRY F802: 20 47 F8 104 JSR GBASCALC ;CALC BASE ADR IN GBASL,H F805: 28 105 PLP ;RESTORE LSB FROM CARRY F806: A9 0F 106 LDA #$0F ;MASK $0F IF EVEN F808: 90 02 107 BCC RTMASK F80A: 69 E0 108 ADC #$E0 ;MASK $F0 IF ODD F80C: 85 2E 109 RTMASK STA MASK F80E: B1 26 110 PLOT1 LDA (GBASL),Y ;DATA F810: 45 30 111 EOR COLOR ; EOR COLOR F812: 25 2E 112 AND MASK ; AND MASK F814: 51 26 113 EOR (GBASL),Y ; EOR DATA F816: 91 26 114 STA (GBASL),Y ; TO DATA F818: 60 115 RTS F819: 20 00 F8 116 HLINE JSR PLOT ;PLOT SQUARE F81C: C4 2C 117 HLINE1 CPY H2 ;DONE? F81E: B0 11 118 BCS RTS1 ; YES, RETURN F820: C8 119 INY ; NO, INC INDEX (X-COORD) F821: 20 0E F8 120 JSR PLOT1 ;PLOT NEXT SQUARE F824: 90 F6 121 BCC HLINE1 ;ALWAYS TAKEN F826: 69 01 122 VLINEZ ADC #$01 ;NEXT Y-COORD F828: 48 123 VLINE PHA ; SAVE ON STACK F829: 20 00 F8 124 JSR PLOT ; PLOT SQUARE F82C: 68 125 PLA F82D: C5 2D 126 CMP V2 ;DONE? F82F: 90 F5 127 BCC VLINEZ ; NO, LOOP F831: 60 128 RTS1 RTS F832: A0 2F 129 CLRSCR LDY #$2F ;MAX Y, FULL SCRN CLR F834: D0 02 130 BNE CLRSC2 ;ALWAYS TAKEN F836: A0 27 131 CLRTOP LDY #$27 ;MAX Y, TOP SCREEN CLR F838: 84 2D 132 CLRSC2 STY V2 ;STORE AS BOTTOM COORD 133 ; FOR VLINE CALLS F83A: A0 27 134 LDY #$27 ;RIGHTMOST X-COORD (COLUMN) F83C: A9 00 135 CLRSC3 LDA #$00 ;TOP COORD FOR VLINE CALLS F83E: 85 30 136 STA COLOR ;CLEAR COLOR (BLACK) F840: 20 28 F8 137 JSR VLINE ;DRAW VLINE F843: 88 138 DEY ;NEXT LEFTMOST X-COORD F844: 10 F6 139 BPL CLRSC3 ;LOOP UNTIL DONE F846: 60 140 RTS F847: 48 141 GBASCALC PHA ;FOR INPUT 000DEFGH F848: 4A 142 LSR F849: 29 03 143 AND #$03 F84B: 09 04 144 ORA #$04 ; GENERATE GBASH=000001FG F84D: 85 27 145 STA GBASH F84F: 68 146 PLA ; AND GBASL=HDEDE000 F850: 29 18 147 AND #$18 F852: 90 02 148 BCC GBCALC F854: 69 7F 149 ADC #$7F F856: 85 26 150 GBCALC STA GBASL F858: 0A 151 ASL F859: 0A 152 ASL F85A: 05 26 153 ORA GBASL F85C: 85 26 154 STA GBASL F85E: 60 155 RTS F85F: A5 30 156 NXTCOL LDA COLOR ;INCREMENT COLOR BY 3 F861: 18 157 CLC F862: 69 03 158 ADC #$03 F864: 29 0F 159 SETCOL AND #$0F ;SETS COLOR=17*A MOD 16 F866: 85 30 160 STA COLOR F868: 0A 161 ASL ;BOTH HALF BYTES OF COLOR EQUAL F869: 0A 162 ASL F86A: 0A 163 ASL F86B: 0A 164 ASL F86C: 05 30 165 ORA COLOR F86E: 85 30 166 STA COLOR F870: 60 167 RTS F871: 4A 168 SCRN LSR ;READ SCREEN Y-COORD/2 F872: 08 169 PHP ;SAVE LSB (CARRY) F873: 20 47 F8 170 JSR GBASCALC ;CALC BASE ADDRESS F876: B1 26 171 LDA (GBASL),Y ;GET BYTE F878: 28 172 PLP ;RESTORE LSB FROM CARRY F879: 90 04 173 SCRN2 BCC RTMSKZ ;IF EVEN, USE LO H F87B: 4A 174 LSR F87C: 4A 175 LSR F87D: 4A 176 LSR ;SHIFT HIGH HALF BYTE DOWN F87E: 4A 177 LSR F87F: 29 0F 178 RTMSKZ AND #$0F ;MASK 4-BITS F881: 60 179 RTS F882: A6 3A 180 INSDS1 LDX PCL ;PRINT PCL,H F884: A4 3B 181 LDY PCH F886: 20 96 FD 182 JSR PRYX2 F889: 20 48 F9 183 JSR PRBLNK ;FOLLOWED BY A BLANK F88C: A1 3A 184 LDA (PCL,X) ;GET OP CODE F88E: A8 185 INSDS2 TAY F88F: 4A 186 LSR ;EVEN/ODD TEST F890: 90 09 187 BCC IEVEN F892: 6A 188 ROR ;BIT 1 TEST F893: B0 10 189 BCS ERR ;XXXXXX11 INVALID OP F895: C9 A2 190 CMP #$A2 F897: F0 0C 191 BEQ ERR ;OPCODE $89 INVALID F899: 29 87 192 AND #$87 ;MASK BITS F89B: 4A 193 IEVEN LSR ;LSB INTO CARRY FOR L/R TEST F89C: AA 194 TAX F89D: BD 62 F9 195 LDA FMT1,X ;GET FORMAT INDEX BYTE F8A0: 20 79 F8 196 JSR SCRN2 ;R/L H-BYTE ON CARRY F8A3: D0 04 197 BNE GETFMT F8A5: A0 80 198 ERR LDY #$80 ;SUBSTITUTE $80 FOR INVALID OPS F8A7: A9 00 199 LDA #$00 ;SET PRINT FORMAT INDEX TO 0 F8A9: AA 200 GETFMT TAX F8AA: BD A6 F9 201 LDA FMT2,X ;INDEX INTO PRINT FORMAT TABLE F8AD: 85 2E 202 STA FORMAT ;SAVE FOR ADR FIELD FORMATTING F8AF: 29 03 203 AND #$03 ;MASK FOR 2-BIT LENGTH 204 ; (P=1 BYTE, 1=2 BYTE, 2=3 BYTE) F8B1: 85 2F 205 STA LENGTH F8B3: 98 206 TYA ;OPCODE F8B4: 29 8F 207 AND #$8F ;MASK FOR 1XXX1010 TEST F8B6: AA 208 TAX ; SAVE IT F8B7: 98 209 TYA ;OPCODE TO A AGAIN F8B8: A0 03 210 LDY #$03 F8BA: E0 8A 211 CPX #$8A F8BC: F0 0B 212 BEQ MNNDX3 F8BE: 4A 213 MNNDX1 LSR F8BF: 90 08 214 BCC MNNDX3 ;FORM INDEX INTO MNEMONIC TABLE F8C1: 4A 215 LSR F8C2: 4A 216 MNNDX2 LSR ;1) 1XXX1010->00101XXX F8C3: 09 20 217 ORA #$20 ;2) XXXYYY01->00111XXX F8C5: 88 218 DEY ;3) XXXYYY10->00110XXX F8C6: D0 FA 219 BNE MNNDX2 ;4) XXXYY100->00100XXX F8C8: C8 220 INY ;5) XXXXX000->000XXXXX F8C9: 88 221 MNNDX3 DEY F8CA: D0 F2 222 BNE MNNDX1 F8CC: 60 223 RTS F8CD: FF FF FF 224 DFB $FF,$FF,$FF F8D0: 20 82 F8 225 INSTDSP JSR INSDS1 ;GEN FMT, LEN BYTES F8D3: 48 226 PHA ;SAVE MNEMONIC TABLE INDEX F8D4: B1 3A 227 PRNTOP LDA (PCL),Y F8D6: 20 DA FD 228 JSR PRBYTE F8D9: A2 01 229 LDX #$01 ;PRINT 2 BLANKS F8DB: 20 4A F9 230 PRNTBL JSR PRBL2 F8DE: C4 2F 231 CPY LENGTH ;PRINT INST (1-3 BYTES) F8E0: C8 232 INY ;IN A 12 CHR FIELD F8E1: 90 F1 233 BCC PRNTOP F8E3: A2 03 234 LDX #$03 ;CHAR COUNT FOR MNEMONIC PRINT F8E5: C0 04 235 CPY #$04 F8E7: 90 F2 236 BCC PRNTBL F8E9: 68 237 PLA ;RECOVER MNEMONIC INDEX F8EA: A8 238 TAY F8EB: B9 C0 F9 239 LDA MNEML,Y F8EE: 85 2C 240 STA LMNEM ;FETCH 3-CHAR MNEMONIC F8F0: B9 00 FA 241 LDA MNEMR,Y ; (PACKED IN 2-BYTES) F8F3: 85 2D 242 STA RMNEM F8F5: A9 00 243 PRMN1 LDA #$00 F8F7: A0 05 244 LDY #$05 F8F9: 06 2D 245 PRMN2 ASL RMNEM ;SHIFT 5 BITS OF F8FB: 26 2C 246 ROL LMNEM ; CHARACTER INTO A F8FD: 2A 247 ROL ; (CLEARS CARRY) F8FE: 88 248 DEY F8FF: D0 F8 249 BNE PRMN2 F901: 69 BF 250 ADC #$BF ;ADD "?" OFFSET F903: 20 ED FD 251 JSR COUT ;OUTPUT A CHAR OF MNEM F906: CA 252 DEX F907: D0 EC 253 BNE PRMN1 F909: 20 48 F9 254 JSR PRBLNK ;OUTPUT 3 BLANKS F90C: A4 2F 255 LDY LENGTH F90E: A2 06 256 LDX #$06 ;CNT FOR 6 FORMAT BITS F910: E0 03 257 PRADR1 CPX #$03 F912: F0 1C 258 BEQ PRADR5 ;IF X=3 THEN ADDR. F914: 06 2E 259 PRADR2 ASL FORMAT F916: 90 0E 260 BCC PRADR3 F918: BD B3 F9 261 LDA CHAR1-1,X F91B: 20 ED FD 262 JSR COUT F91E: BD B9 F9 263 LDA CHAR2-1,X F921: F0 03 264 BEQ PRADR3 F923: 20 ED FD 265 JSR COUT F926: CA 266 PRADR3 DEX F927: D0 E7 267 BNE PRADR1 F929: 60 268 RTS F92A: 88 269 PRADR4 DEY F92B: 30 E7 270 BMI PRADR2 F92D: 20 DA FD 271 JSR PRBYTE F930: A5 2E 272 PRADR5 LDA FORMAT F932: C9 E8 273 CMP #$E8 ;HANDLE REL ADR MODE F934: B1 3A 274 LDA (PCL),Y ;SPECIAL (PRINT TARGET, F936: 90 F2 275 BCC PRADR4 ; NOT OFFSET) F938: 20 56 F9 276 RELADR JSR PCADJ3 F93B: AA 277 TAX ;PCL,PCH+OFFSET+1 TO A,Y F93C: E8 278 INX F93D: D0 01 279 BNE PRNTYX ;+1 TO Y,X F93F: C8 280 INY F940: 98 281 PRNTYX TYA F941: 20 DA FD 282 PRNTAX JSR PRBYTE ;OUTPUT TARGET ADR F944: 8A 283 PRNTX TXA ; OF BRANCH AND RETURN F945: 4C DA FD 284 JMP PRBYTE F948: A2 03 285 PRBLNK LDX #$03 ;BLANK COUNT F94A: A9 A0 286 PRBL2 LDA #$A0 ;LOAD A SPACE F94C: 20 ED FD 287 PRBL3 JSR COUT ;OUTPUT A BLANK F94F: CA 288 DEX F950: D0 F8 289 BNE PRBL2 ;LOOP UNTIL COUNT=0 F952: 60 290 RTS F953: 38 291 PCADJ SEC ;0=1-BYTE, 1=2-BYTE F954: A5 2F 292 PCADJ2 LDA LENGTH ; 2=3-BYTE F956: A4 3B 293 PCADJ3 LDY PCH F958: AA 294 TAX ;TEST DISPLACEMENT SIGN F959: 10 01 295 BPL PCADJ4 ; (FOR REL BRANCH) F95B: 88 296 DEY ;EXTEND NEG BY DEC PCH F95C: 65 3A 297 PCADJ4 ADC PCL F95E: 90 01 298 BCC RTS2 ;PCL+LENGTH(OR DISPL)+1 TO A F960: C8 299 INY ; CARRY INTO Y (PCH) F961: 60 300 RTS2 RTS 301 * FMT1 BYTES: XXXXXXY0 INSTRS 302 * IF Y=0 THEN LEFT HALF BYTE 303 * IF Y=1 THEN RIGHT HALF BYTE 304 * (X=INDEX) F962: 04 20 54 305 FMT1 DFB $04,$20,$54,$30,$0D F965: 30 0D F967: 80 04 90 306 DFB $80,$04,$90,$03,$22 F96A: 03 22 F96C: 54 33 0D 307 DFB $54,$33,$0D,$80,$04 F96F: 80 04 F971: 90 04 20 308 DFB $90,$04,$20,$54,$33 F974: 54 33 F976: 0D 80 04 309 DFB $0D,$80,$04,$90,$04 F979: 90 04 F97B: 20 54 3B 310 DFB $20,$54,$3B,$0D,$80 F97E: 0D 80 F980: 04 90 00 311 DFB $04,$90,$00,$22,$44 F983: 22 44 F985: 33 0D C8 312 DFB $33,$0D,$C8,$44,$00 F988: 44 00 F98A: 11 22 44 313 DFB $11,$22,$44,$33,$0D F98D: 33 0D F98F: C8 44 A9 314 DFB $C8,$44,$A9,$01,$22 F992: 01 22 F994: 44 33 0D 315 DFB $44,$33,$0D,$80,$04 F997: 80 04 F999: 90 01 22 316 DFB $90,$01,$22,$44,$33 F99C: 44 33 F99E: 0D 80 04 317 DFB $0D,$80,$04,$90 F9A1: 90 F9A2: 26 31 87 318 DFB $26,$31,$87,$9A ;$ZZXXXY01 INSTR'S F9A5: 9A F9A6: 00 319 FMT2 DFB $00 ;ERR F9A7: 21 320 DFB $21 ;IMM F9A8: 81 321 DFB $81 ;Z-PAGE F9A9: 82 322 DFB $82 ;ABS F9AA: 00 323 DFB $00 ;IMPLIED F9AB: 00 324 DFB $00 ;ACCUMULATOR F9AC: 59 325 DFB $59 ;(ZPAG,X) F9AD: 4D 326 DFB $4D ;(ZPAG),Y F9AE: 91 327 DFB $91 ;ZPAG,X F9AF: 92 328 DFB $92 ;ABS,X F9B0: 86 329 DFB $86 ;ABS,Y F9B1: 4A 330 DFB $4A ;(ABS) F9B2: 85 331 DFB $85 ;ZPAG,Y F9B3: 9D 332 DFB $9D ;RELATIVE F9B4: AC A9 AC 333 CHAR1 ASC ",),#($" F9B7: A3 A8 A4 F9BA: D9 00 D8 334 CHAR2 DFB $D9,$00,$D8,$A4,$A4,$00 F9BD: A4 A4 00 335 *CHAR2: "Y",0,"X$$",0 336 * MNEML IS OF FORM: 337 * (A) XXXXX000 338 * (B) XXXYY100 339 * (C) 1XXX1010 340 * (D) XXXYYY10 341 * (E) XXXYYY01 342 * (X=INDEX) F9C0: 1C 8A 1C 343 MNEML DFB $1C,$8A,$1C,$23,$5D,$8B F9C3: 23 5D 8B F9C6: 1B A1 9D 344 DFB $1B,$A1,$9D,$8A,$1D,$23 F9C9: 8A 1D 23 F9CC: 9D 8B 1D 345 DFB $9D,$8B,$1D,$A1,$00,$29 F9CF: A1 00 29 F9D2: 19 AE 69 346 DFB $19,$AE,$69,$A8,$19,$23 F9D5: A8 19 23 F9D8: 24 53 1B 347 DFB $24,$53,$1B,$23,$24,$53 F9DB: 23 24 53 F9DE: 19 A1 348 DFB $19,$A1 ;(A) FORMAT ABOVE F9E0: 00 1A 5B 349 DFB $00,$1A,$5B,$5B,$A5,$69 F9E3: 5B A5 69 F9E6: 24 24 350 DFB $24,$24 ;(B) FORMAT F9E8: AE AE A8 351 DFB $AE,$AE,$A8,$AD,$29,$00 F9EB: AD 29 00 F9EE: 7C 00 352 DFB $7C,$00 ;(C) FORMAT F9F0: 15 9C 6D 353 DFB $15,$9C,$6D,$9C,$A5,$69 F9F3: 9C A5 69 F9F6: 29 53 354 DFB $29,$53 ;(D) FORMAT F9F8: 84 13 34 355 DFB $84,$13,$34,$11,$A5,$69 F9FB: 11 A5 69 F9FE: 23 A0 356 DFB $23,$A0 ;(E) FORMAT FA00: D8 62 5A 357 MNEMR DFB $D8,$62,$5A,$48,$26,$62 FA03: 48 26 62 FA06: 94 88 54 358 DFB $94,$88,$54,$44,$C8,$54 FA09: 44 C8 54 FA0C: 68 44 E8 359 DFB $68,$44,$E8,$94,$00,$B4 FA0F: 94 00 B4 FA12: 08 84 74 360 DFB $08,$84,$74,$B4,$28,$6E FA15: B4 28 6E FA18: 74 F4 CC 361 DFB $74,$F4,$CC,$4A,$72,$F2 FA1B: 4A 72 F2 FA1E: A4 8A 362 DFB $A4,$8A ;(A) FORMAT FA20: 00 AA A2 363 DFB $00,$AA,$A2,$A2,$74,$74 FA23: A2 74 74 FA26: 74 72 364 DFB $74,$72 ;(B) FORMAT FA28: 44 68 B2 365 DFB $44,$68,$B2,$32,$B2,$00 FA2B: 32 B2 00 FA2E: 22 00 366 DFB $22,$00 ;(C) FORMAT FA30: 1A 1A 26 367 DFB $1A,$1A,$26,$26,$72,$72 FA33: 26 72 72 FA36: 88 C8 368 DFB $88,$C8 ;(D) FORMAT FA38: C4 CA 26 369 DFB $C4,$CA,$26,$48,$44,$44 FA3B: 48 44 44 FA3E: A2 C8 370 DFB $A2,$C8 ;(E) FORMAT FA40: FF FF FF 371 DFB $FF,$FF,$FF FA43: 20 D0 F8 372 STEP JSR INSTDSP ;DISASSEMBLE ONE INST FA46: 68 373 PLA ; AT (PCL,H) FA47: 85 2C 374 STA RTNL ;ADJUST TO USER FA49: 68 375 PLA ; STACK. SAVE FA4A: 85 2D 376 STA RTNH ; RTN ADR. FA4C: A2 08 377 LDX #$08 FA4E: BD 10 FB 378 XQINIT LDA INITBL-1,X ;INIT XEQ AREA FA51: 95 3C 379 STA XQT,X FA53: CA 380 DEX FA54: D0 F8 381 BNE XQINIT FA56: A1 3A 382 LDA (PCL,X) ;USER OPCODE BYTE FA58: F0 42 383 BEQ XBRK ;SPECIAL IF BREAK FA5A: A4 2F 384 LDY LENGTH ;LEN FROM DISASSEMBLY FA5C: C9 20 385 CMP #$20 FA5E: F0 59 386 BEQ XJSR ;HANDLE JSR, RTS, JMP, FA60: C9 60 387 CMP #$60 ; JMP (), RTI SPECIAL FA62: F0 45 388 BEQ XRTS FA64: C9 4C 389 CMP #$4C FA66: F0 5C 390 BEQ XJMP FA68: C9 6C 391 CMP #$6C FA6A: F0 59 392 BEQ XJMPAT FA6C: C9 40 393 CMP #$40 FA6E: F0 35 394 BEQ XRTI FA70: 29 1F 395 AND #$1F FA72: 49 14 396 EOR #$14 FA74: C9 04 397 CMP #$04 ;COPY USER INST TO XEQ AREA FA76: F0 02 398 BEQ XQ2 ; WITH TRAILING NOPS FA78: B1 3A 399 XQ1 LDA (PCL),Y ;CHANGE REL BRANCH FA7A: 99 3C 00 400 XQ2 STA XQT,Y ; DISP TO 4 FOR FA7D: 88 401 DEY ; JMP TO BRANCH OR FA7E: 10 F8 402 BPL XQ1 ; NBRANCH FROM XEQ. FA80: 20 3F FF 403 JSR RESTORE ;RESTORE USER REG CONTENTS. FA83: 4C 3C 00 404 JMP XQT ;XEQ USER OP FROM RAM FA86: 85 45 405 IRQ STA ACC ; (RETURN TO NBRANCH) FA88: 68 406 PLA FA89: 48 407 PHA ;**IRQ HANDLER FA8A: 0A 408 ASL FA8B: 0A 409 ASL FA8C: 0A 410 ASL FA8D: 30 03 411 BMI BREAK ;TEST FOR BREAK FA8F: 6C FE 03 412 JMP (IRQLOC) ;USER ROUTINE VECTOR IN RAM FA92: 28 413 BREAK PLP FA93: 20 4C FF 414 JSR SAV1 ;SAVE REG'S ON BREAK FA96: 68 415 PLA ; INCLUDING PC FA97: 85 3A 416 STA PCL FA99: 68 417 PLA FA9A: 85 3B 418 STA PCH FA9C: 20 82 F8 419 XBRK JSR INSDS1 ;PRINT USER PC. FA9F: 20 DA FA 420 JSR RGDSP1 ; AND REG'S FAA2: 4C 65 FF 421 JMP MON ;GO TO MONITOR FAA5: 18 422 XRTI CLC FAA6: 68 423 PLA ;SIMULATE RTI BY EXPECTING FAA7: 85 48 424 STA STATUS ; STATUS FROM STACK, THEN RTS FAA9: 68 425 XRTS PLA ;RTS SIMULATION FAAA: 85 3A 426 STA PCL ; EXTRACT PC FROM STACK FAAC: 68 427 PLA ; AND UPDATE PC BY 1 (LEN=0) FAAD: 85 3B 428 PCINC2 STA PCH FAAF: A5 2F 429 PCINC3 LDA LENGTH ;UPDATE PC BY LEN FAB1: 20 56 F9 430 JSR PCADJ3 FAB4: 84 3B 431 STY PCH FAB6: 18 432 CLC FAB7: 90 14 433 BCC NEWPCL FAB9: 18 434 XJSR CLC FABA: 20 54 F9 435 JSR PCADJ2 ;UPDATE PC AND PUSH FABD: AA 436 TAX ; ONTO STACH FOR FABE: 98 437 TYA ; JSR SIMULATE FABF: 48 438 PHA FAC0: 8A 439 TXA FAC1: 48 440 PHA FAC2: A0 02 441 LDY #$02 FAC4: 18 442 XJMP CLC FAC5: B1 3A 443 XJMPAT LDA (PCL),Y FAC7: AA 444 TAX ;LOAD PC FOR JMP, FAC8: 88 445 DEY ; (JMP) SIMULATE. FAC9: B1 3A 446 LDA (PCL),Y FACB: 86 3B 447 STX PCH FACD: 85 3A 448 NEWPCL STA PCL FACF: B0 F3 449 BCS XJMP FAD1: A5 2D 450 RTNJMP LDA RTNH FAD3: 48 451 PHA FAD4: A5 2C 452 LDA RTNL FAD6: 48 453 PHA FAD7: 20 8E FD 454 REGDSP JSR CROUT ;DISPLAY USER REG FADA: A9 45 455 RGDSP1 LDA #ACC ; CONTENTS WITH FADC: 85 40 456 STA A3L ; LABELS FADE: A9 00 457 LDA #ACC/256 FAE0: 85 41 458 STA A3H FAE2: A2 FB 459 LDX #$FB FAE4: A9 A0 460 RDSP1 LDA #$A0 FAE6: 20 ED FD 461 JSR COUT FAE9: BD 1E FA 462 LDA RTBL-$FB,X FAEC: 20 ED FD 463 JSR COUT FAEF: A9 BD 464 LDA #$BD FAF1: 20 ED FD 465 JSR COUT FAF4: B5 4A 466 LDA ACC+5,X FAF6: 20 DA FD 467 JSR PRBYTE FAF9: E8 468 INX FAFA: 30 E8 469 BMI RDSP1 FAFC: 60 470 RTS FAFD: 18 471 BRANCH CLC ;BRANCH TAKEN, FAFE: A0 01 472 LDY #$01 ; ADD LEN+2 TO PC FB00: B1 3A 473 LDA (PCL),Y FB02: 20 56 F9 474 JSR PCADJ3 FB05: 85 3A 475 STA PCL FB07: 98 476 TYA FB08: 38 477 SEC FB09: B0 A2 478 BCS PCINC2 FB0B: 20 4A FF 479 NBRNCH JSR SAVE ;NORMAL RETURN AFTER FB0E: 38 480 SEC ; XEQ USER OF FB0F: B0 9E 481 BCS PCINC3 ;GO UPDATE PC FB11: EA 482 INITBL NOP FB12: EA 483 NOP ;DUMMY FILL FOR FB13: 4C 0B FB 484 JMP NBRNCH ; XEQ AREA FB16: 4C FD FA 485 JMP BRANCH FB19: C1 486 RTBL DFB $C1 FB1A: D8 487 DFB $D8 FB1B: D9 488 DFB $D9 FB1C: D0 489 DFB $D0 FB1D: D3 490 DFB $D3 FB1E: AD 70 C0 491 PREAD LDA PTRIG ;TRIGGER PADDLES FB21: A0 00 492 LDY #$00 ;INIT COUNT FB23: EA 493 NOP ;COMPENSATE FOR 1ST COUNT FB24: EA 494 NOP FB25: BD 64 C0 495 PREAD2 LDA PADDL0,X ;COUNT Y-REG EVERY FB28: 10 04 496 BPL RTS2D ; 12 USEC FB2A: C8 497 INY FB2B: D0 F8 498 BNE PREAD2 ; EXIT AT 255 MAX FB2D: 88 499 DEY FB2E: 60 500 RTS2D RTS FB2F: A9 00 501 INIT LDA #$00 ;CLR STATUS FOR DEBUG FB31: 85 48 502 STA STATUS ; SOFTWARE FB33: AD 56 C0 503 LDA LORES FB36: AD 54 C0 504 LDA LOWSCR ;INIT VIDEO MODE FB39: AD 51 C0 505 SETTXT LDA TXTSET ;SET FOR TEXT MODE FB3C: A9 00 506 LDA #$00 ; FULL SCREEN WINDOW FB3E: F0 0B 507 BEQ SETWND FB40: AD 50 C0 508 SETGR LDA TXTCLR ;SET FOR GRAPHICS MODE FB43: AD 53 C0 509 LDA MIXSET ; LOWER 4 LINES AS FB46: 20 36 F8 510 JSR CLRTOP ; TEXT WINDOW FB49: A9 14 511 LDA #$14 FB4B: 85 22 512 SETWND STA WNDTOP ;SET FOR 40 COL WINDOW FB4D: A9 00 513 LDA #$00 ; TOP IN A-REG, FB4F: 85 20 514 STA WNDLFT ; BTTM AT LINE 24 FB51: A9 28 515 LDA #$28 FB53: 85 21 516 STA WNDWDTH FB55: A9 18 517 LDA #$18 FB57: 85 23 518 STA WNDBTM ; VTAB TO ROW 23 FB59: A9 17 519 LDA #$17 FB5B: 85 25 520 TABV STA CV ;VTABS TO ROW IN A-REG FB5D: 4C 22 FC 521 JMP VTAB FB60: 20 A4 FB 522 MULPM JSR MD1 ;ABS VAL OF AC AUX FB63: A0 10 523 MUL LDY #$10 ;INDEX FOR 16 BITS FB65: A5 50 524 MUL2 LDA ACL ;ACX * AUX + XTND FB67: 4A 525 LSR ; TO AC, XTND FB68: 90 0C 526 BCC MUL4 ;IF NO CARRY, FB6A: 18 527 CLC ; NO PARTIAL PROD. FB6B: A2 FE 528 LDX #$FE FB6D: B5 54 529 MUL3 LDA XTNDL+2,X ;ADD MPLCND (AUX) FB6F: 75 56 530 ADC AUXL+2,X ; TO PARTIAL PROD FB71: 95 54 531 STA XTNDL+2,X ; (XTND) FB73: E8 532 INX FB74: D0 F7 533 BNE MUL3 FB76: A2 03 534 MUL4 LDX #$03 FB78: 76 535 MUL5 DFB $76 FB79: 50 536 DFB $50 FB7A: CA 537 DEX FB7B: 10 FB 538 BPL MUL5 FB7D: 88 539 DEY FB7E: D0 E5 540 BNE MUL2 FB80: 60 541 RTS FB81: 20 A4 FB 542 DIVPM JSR MD1 ;ABS VAL OF AC, AUX. FB84: A0 10 543 DIV LDY #$10 ;INDEX FOR 16 BITS FB86: 06 50 544 DIV2 ASL ACL FB88: 26 51 545 ROL ACH FB8A: 26 52 546 ROL XTNDL ;XTND/AUX FB8C: 26 53 547 ROL XTNDH ; TO AC. FB8E: 38 548 SEC FB8F: A5 52 549 LDA XTNDL FB91: E5 54 550 SBC AUXL ;MOD TO XTND. FB93: AA 551 TAX FB94: A5 53 552 LDA XTNDH FB96: E5 55 553 SBC AUXH FB98: 90 06 554 BCC DIV3 FB9A: 86 52 555 STX XTNDL FB9C: 85 53 556 STA XTNDH FB9E: E6 50 557 INC ACL FBA0: 88 558 DIV3 DEY FBA1: D0 E3 559 BNE DIV2 FBA3: 60 560 RTS FBA4: A0 00 561 MD1 LDY #$00 ;ABS VAL OF AC, AUX FBA6: 84 2F 562 STY SIGN ; WITH RESULT SIGN FBA8: A2 54 563 LDX #AUXL ; IN LSB OF SIGN. FBAA: 20 AF FB 564 JSR MD3 FBAD: A2 50 565 LDX #ACL FBAF: B5 01 566 MD3 LDA LOC1,X ;X SPECIFIES AC OR AUX FBB1: 10 0D 567 BPL MDRTS FBB3: 38 568 SEC FBB4: 98 569 TYA FBB5: F5 00 570 SBC LOC0,X ;COMPL SPECIFIED REG FBB7: 95 00 571 STA LOC0,X ; IF NEG. FBB9: 98 572 TYA FBBA: F5 01 573 SBC LOC1,X FBBC: 95 01 574 STA LOC1,X FBBE: E6 2F 575 INC SIGN FBC0: 60 576 MDRTS RTS FBC1: 48 577 BASCALC PHA ;CALC BASE ADR IN BASL,H FBC2: 4A 578 LSR ; FOR GIVEN LINE NO FBC3: 29 03 579 AND #$03 ; 0<=LINE NO.<=$17 FBC5: 09 04 580 ORA #$04 ;ARG=000ABCDE, GENERATE FBC7: 85 29 581 STA BASH ; BASH=000001CD FBC9: 68 582 PLA ; AND FBCA: 29 18 583 AND #$18 ; BASL=EABAB000 FBCC: 90 02 584 BCC BSCLC2 FBCE: 69 7F 585 ADC #$7F FBD0: 85 28 586 BSCLC2 STA BASL FBD2: 0A 587 ASL FBD3: 0A 588 ASL FBD4: 05 28 589 ORA BASL FBD6: 85 28 590 STA BASL FBD8: 60 591 RTS FBD9: C9 87 592 BELL1 CMP #$87 ;BELL CHAR? (CNTRL-G) FBDB: D0 12 593 BNE RTS2B ; NO, RETURN FBDD: A9 40 594 LDA #$40 ;DELAY .01 SECONDS FBDF: 20 A8 FC 595 JSR WAIT FBE2: A0 C0 596 LDY #$C0 FBE4: A9 0C 597 BELL2 LDA #$0C ;TOGGLE SPEAKER AT FBE6: 20 A8 FC 598 JSR WAIT ; 1 KHZ FOR .1 SEC. FBE9: AD 30 C0 599 LDA SPKR FBEC: 88 600 DEY FBED: D0 F5 601 BNE BELL2 FBEF: 60 602 RTS2B RTS FBF0: A4 24 603 STOADV LDY CH ;CURSOR H INDEX TO Y-REG FBF2: 91 28 604 STA (BASL),Y ;STORE CHAR IN LINE FBF4: E6 24 605 ADVANCE INC CH ;INCREMENT CURSOR H INDEX FBF6: A5 24 606 LDA CH ; (MOVE RIGHT) FBF8: C5 21 607 CMP WNDWDTH ;BEYOND WINDOW WIDTH? FBFA: B0 66 608 BCS CR ; YES CR TO NEXT LINE FBFC: 60 609 RTS3 RTS ; NO,RETURN FBFD: C9 A0 610 VIDOUT CMP #$A0 ;CONTROL CHAR? FBFF: B0 EF 611 BCS STOADV ; NO,OUTPUT IT. FC01: A8 612 TAY ;INVERSE VIDEO? FC02: 10 EC 613 BPL STOADV ; YES, OUTPUT IT. FC04: C9 8D 614 CMP #$8D ;CR? FC06: F0 5A 615 BEQ CR ; YES. FC08: C9 8A 616 CMP #$8A ;LINE FEED? FC0A: F0 5A 617 BEQ LF ; IF SO, DO IT. FC0C: C9 88 618 CMP #$88 ;BACK SPACE? (CNTRL-H) FC0E: D0 C9 619 BNE BELL1 ; NO, CHECK FOR BELL. FC10: C6 24 620 BS DEC CH ;DECREMENT CURSOR H INDEX FC12: 10 E8 621 BPL RTS3 ;IF POS, OK. ELSE MOVE UP FC14: A5 21 622 LDA WNDWDTH ;SET CH TO WNDWDTH-1 FC16: 85 24 623 STA CH FC18: C6 24 624 DEC CH ;(RIGHTMOST SCREEN POS) FC1A: A5 22 625 UP LDA WNDTOP ;CURSOR V INDEX FC1C: C5 25 626 CMP CV FC1E: B0 0B 627 BCS RTS4 ;IF TOP LINE THEN RETURN FC20: C6 25 628 DEC CV ;DEC CURSOR V-INDEX FC22: A5 25 629 VTAB LDA CV ;GET CURSOR V-INDEX FC24: 20 C1 FB 630 VTABZ JSR BASCALC ;GENERATE BASE ADR FC27: 65 20 631 ADC WNDLFT ;ADD WINDOW LEFT INDEX FC29: 85 28 632 STA BASL ;TO BASL FC2B: 60 633 RTS4 RTS FC2C: 49 C0 634 ESC1 EOR #$C0 ;ESC? FC2E: F0 28 635 BEQ HOME ; IF SO, DO HOME AND CLEAR FC30: 69 FD 636 ADC #$FD ;ESC-A OR B CHECK FC32: 90 C0 637 BCC ADVANCE ; A, ADVANCE FC34: F0 DA 638 BEQ BS ; B, BACKSPACE FC36: 69 FD 639 ADC #$FD ;ESC-C OR D CHECK FC38: 90 2C 640 BCC LF ; C, DOWN FC3A: F0 DE 641 BEQ UP ; D, GO UP FC3C: 69 FD 642 ADC #$FD ;ESC-E OR F CHECK FC3E: 90 5C 643 BCC CLREOL ; E, CLEAR TO END OF LINE FC40: D0 E9 644 BNE RTS4 ; NOT F, RETURN FC42: A4 24 645 CLREOP LDY CH ;CURSOR H TO Y INDEX FC44: A5 25 646 LDA CV ;CURSOR V TO A-REGISTER FC46: 48 647 CLEOP1 PHA ;SAVE CURRENT LINE ON STK FC47: 20 24 FC 648 JSR VTABZ ;CALC BASE ADDRESS FC4A: 20 9E FC 649 JSR CLEOLZ ;CLEAR TO EOL, SET CARRY FC4D: A0 00 650 LDY #$00 ;CLEAR FROM H INDEX=0 FOR REST FC4F: 68 651 PLA ;INCREMENT CURRENT LINE FC50: 69 00 652 ADC #$00 ;(CARRY IS SET) FC52: C5 23 653 CMP WNDBTM ;DONE TO BOTTOM OF WINDOW? FC54: 90 F0 654 BCC CLEOP1 ; NO, KEEP CLEARING LINES FC56: B0 CA 655 BCS VTAB ; YES, TAB TO CURRENT LINE FC58: A5 22 656 HOME LDA WNDTOP ;INIT CURSOR V FC5A: 85 25 657 STA CV ; AND H-INDICES FC5C: A0 00 658 LDY #$00 FC5E: 84 24 659 STY CH ;THEN CLEAR TO END OF PAGE FC60: F0 E4 660 BEQ CLEOP1 FC62: A9 00 661 CR LDA #$00 ;CURSOR TO LEFT OF INDEX FC64: 85 24 662 STA CH ;(RET CURSOR H=0) FC66: E6 25 663 LF INC CV ;INCR CURSOR V(DOWN 1 LINE) FC68: A5 25 664 LDA CV FC6A: C5 23 665 CMP WNDBTM ;OFF SCREEN? FC6C: 90 B6 666 BCC VTABZ ; NO, SET BASE ADDR FC6E: C6 25 667 DEC CV ;DECR CURSOR V (BACK TO BOTTOM) FC70: A5 22 668 SCROLL LDA WNDTOP ;START AT TOP OF SCRL WNDW FC72: 48 669 PHA FC73: 20 24 FC 670 JSR VTABZ ;GENERATE BASE ADR FC76: A5 28 671 SCRL1 LDA BASL ;COPY BASL,H FC78: 85 2A 672 STA BAS2L ; TO BAS2L,H FC7A: A5 29 673 LDA BASH FC7C: 85 2B 674 STA BAS2H FC7E: A4 21 675 LDY WNDWDTH ;INIT Y TO RIGHTMOST INDEX FC80: 88 676 DEY ; OF SCROLLING WINDOW FC81: 68 677 PLA FC82: 69 01 678 ADC #$01 ;INCR LINE NUMBER FC84: C5 23 679 CMP WNDBTM ;DONE? FC86: B0 0D 680 BCS SCRL3 ; YES, FINISH FC88: 48 681 PHA FC89: 20 24 FC 682 JSR VTABZ ;FORM BASL,H (BASE ADDR) FC8C: B1 28 683 SCRL2 LDA (BASL),Y ;MOVE A CHR UP ON LINE FC8E: 91 2A 684 STA (BAS2L),Y FC90: 88 685 DEY ;NEXT CHAR OF LINE FC91: 10 F9 686 BPL SCRL2 FC93: 30 E1 687 BMI SCRL1 ;NEXT LINE (ALWAYS TAKEN) FC95: A0 00 688 SCRL3 LDY #$00 ;CLEAR BOTTOM LINE FC97: 20 9E FC 689 JSR CLEOLZ ;GET BASE ADDR FOR BOTTOM LINE FC9A: B0 86 690 BCS VTAB ;CARRY IS SET FC9C: A4 24 691 CLREOL LDY CH ;CURSOR H INDEX FC9E: A9 A0 692 CLEOLZ LDA #$A0 FCA0: 91 28 693 CLEOL2 STA (BASL),Y ;STORE BLANKS FROM 'HERE' FCA2: C8 694 INY ; TO END OF LINES (WNDWDTH) FCA3: C4 21 695 CPY WNDWDTH FCA5: 90 F9 696 BCC CLEOL2 FCA7: 60 697 RTS FCA8: 38 698 WAIT SEC FCA9: 48 699 WAIT2 PHA FCAA: E9 01 700 WAIT3 SBC #$01 FCAC: D0 FC 701 BNE WAIT3 ;1.0204 USEC FCAE: 68 702 PLA ;(13+27/2*A+5/2*A*A) FCAF: E9 01 703 SBC #$01 FCB1: D0 F6 704 BNE WAIT2 FCB3: 60 705 RTS FCB4: E6 42 706 NXTA4 INC A4L ;INCR 2-BYTE A4 FCB6: D0 02 707 BNE NXTA1 ; AND A1 FCB8: E6 43 708 INC A4H FCBA: A5 3C 709 NXTA1 LDA A1L ;INCR 2-BYTE A1. FCBC: C5 3E 710 CMP A2L FCBE: A5 3D 711 LDA A1H ; AND COMPARE TO A2 FCC0: E5 3F 712 SBC A2H FCC2: E6 3C 713 INC A1L ; (CARRY SET IF >=) FCC4: D0 02 714 BNE RTS4B FCC6: E6 3D 715 INC A1H FCC8: 60 716 RTS4B RTS FCC9: A0 4B 717 HEADR LDY #$4B ;WRITE A*256 'LONG 1' FCCB: 20 DB FC 718 JSR ZERDLY ; HALF CYCLES FCCE: D0 F9 719 BNE HEADR ; (650 USEC EACH) FCD0: 69 FE 720 ADC #$FE FCD2: B0 F5 721 BCS HEADR ;THEN A 'SHORT 0' FCD4: A0 21 722 LDY #$21 ; (400 USEC) FCD6: 20 DB FC 723 WRBIT JSR ZERDLY ;WRITE TWO HALF CYCLES FCD9: C8 724 INY ; OF 250 USEC ('0') FCDA: C8 725 INY ; OR 500 USEC ('0') FCDB: 88 726 ZERDLY DEY FCDC: D0 FD 727 BNE ZERDLY FCDE: 90 05 728 BCC WRTAPE ;Y IS COUNT FOR FCE0: A0 32 729 LDY #$32 ; TIMING LOOP FCE2: 88 730 ONEDLY DEY FCE3: D0 FD 731 BNE ONEDLY FCE5: AC 20 C0 732 WRTAPE LDY TAPEOUT FCE8: A0 2C 733 LDY #$2C FCEA: CA 734 DEX FCEB: 60 735 RTS FCEC: A2 08 736 RDBYTE LDX #$08 ;8 BITS TO READ FCEE: 48 737 RDBYT2 PHA ;READ TWO TRANSITIONS FCEF: 20 FA FC 738 JSR RD2BIT ; (FIND EDGE) FCF2: 68 739 PLA FCF3: 2A 740 ROL ;NEXT BIT FCF4: A0 3A 741 LDY #$3A ;COUNT FOR SAMPLES FCF6: CA 742 DEX FCF7: D0 F5 743 BNE RDBYT2 FCF9: 60 744 RTS FCFA: 20 FD FC 745 RD2BIT JSR RDBIT FCFD: 88 746 RDBIT DEY ;DECR Y UNTIL FCFE: AD 60 C0 747 LDA TAPEIN ; TAPE TRANSITION FD01: 45 2F 748 EOR LASTIN FD03: 10 F8 749 BPL RDBIT FD05: 45 2F 750 EOR LASTIN FD07: 85 2F 751 STA LASTIN FD09: C0 80 752 CPY #$80 ;SET CARRY ON Y FD0B: 60 753 RTS FD0C: A4 24 754 RDKEY LDY CH FD0E: B1 28 755 LDA (BASL),Y ;SET SCREEN TO FLASH FD10: 48 756 PHA FD11: 29 3F 757 AND #$3F FD13: 09 40 758 ORA #$40 FD15: 91 28 759 STA (BASL),Y FD17: 68 760 PLA FD18: 6C 38 00 761 JMP (KSWL) ;GO TO USER KEY-IN FD1B: E6 4E 762 KEYIN INC RNDL FD1D: D0 02 763 BNE KEYIN2 ;INCR RND NUMBER FD1F: E6 4F 764 INC RNDH FD21: 2C 00 C0 765 KEYIN2 BIT KBD ;KEY DOWN? FD24: 10 F5 766 BPL KEYIN ; LOOP FD26: 91 28 767 STA (BASL),Y ;REPLACE FLASHING SCREEN FD28: AD 00 C0 768 LDA KBD ;GET KEYCODE FD2B: 2C 10 C0 769 BIT KBDSTRB ;CLR KEY STROBE FD2E: 60 770 RTS FD2F: 20 0C FD 771 ESC JSR RDKEY ;GET KEYCODE FD32: 20 2C FC 772 JSR ESC1 ; HANDLE ESC FUNC. FD35: 20 0C FD 773 RDCHAR JSR RDKEY ;READ KEY FD38: C9 9B 774 CMP #$9B ;ESC? FD3A: F0 F3 775 BEQ ESC ; YES, DON'T RETURN FD3C: 60 776 RTS FD3D: A5 32 777 NOTCR LDA INVFLG FD3F: 48 778 PHA FD40: A9 FF 779 LDA #$FF FD42: 85 32 780 STA INVFLG ;ECHO USER LINE FD44: BD 00 02 781 LDA IN,X ; NON INVERSE FD47: 20 ED FD 782 JSR COUT FD4A: 68 783 PLA FD4B: 85 32 784 STA INVFLG FD4D: BD 00 02 785 LDA IN,X FD50: C9 88 786 CMP #$88 ;CHECK FOR EDIT KEYS FD52: F0 1D 787 BEQ BCKSPC ; BS, CTRL-X FD54: C9 98 788 CMP #$98 FD56: F0 0A 789 BEQ CANCEL FD58: E0 F8 790 CPX #$F8 ;MARGIN? FD5A: 90 03 791 BCC NOTCR1 FD5C: 20 3A FF 792 JSR BELL ; YES, SOUND BELL FD5F: E8 793 NOTCR1 INX ;ADVANCE INPUT INDEX FD60: D0 13 794 BNE NXTCHAR FD62: A9 DC 795 CANCEL LDA #$DC ;BACKSLASH AFTER CANCELLED LINE FD64: 20 ED FD 796 JSR COUT FD67: 20 8E FD 797 GETLNZ JSR CROUT ;OUTPUT CR FD6A: A5 33 798 GETLN LDA PROMPT FD6C: 20 ED FD 799 JSR COUT ;OUTPUT PROMPT CHAR FD6F: A2 01 800 LDX #$01 ;INIT INPUT INDEX FD71: 8A 801 BCKSPC TXA ; WILL BACKSPACE TO 0 FD72: F0 F3 802 BEQ GETLNZ FD74: CA 803 DEX FD75: 20 35 FD 804 NXTCHAR JSR RDCHAR FD78: C9 95 805 CMP #PICK ;USE SCREEN CHAR FD7A: D0 02 806 BNE CAPTST ; FOR CTRL-U FD7C: B1 28 807 LDA (BASL),Y FD7E: C9 E0 808 CAPTST CMP #$E0 FD80: 90 02 809 BCC ADDINP ;CONVERT TO CAPS FD82: 29 DF 810 AND #$DF FD84: 9D 00 02 811 ADDINP STA IN,X ;ADD TO INPUT BUF FD87: C9 8D 812 CMP #$8D FD89: D0 B2 813 BNE NOTCR FD8B: 20 9C FC 814 JSR CLREOL ;CLR TO EOL IF CR FD8E: A9 8D 815 CROUT LDA #$8D FD90: D0 5B 816 BNE COUT FD92: A4 3D 817 PRA1 LDY A1H ;PRINT CR,A1 IN HEX FD94: A6 3C 818 LDX A1L FD96: 20 8E FD 819 PRYX2 JSR CROUT FD99: 20 40 F9 820 JSR PRNTYX FD9C: A0 00 821 LDY #$00 FD9E: A9 AD 822 LDA #$AD ;PRINT '-' FDA0: 4C ED FD 823 JMP COUT FDA3: A5 3C 824 XAM8 LDA A1L FDA5: 09 07 825 ORA #$07 ;SET TO FINISH AT FDA7: 85 3E 826 STA A2L ; MOD 8=7 FDA9: A5 3D 827 LDA A1H FDAB: 85 3F 828 STA A2H FDAD: A5 3C 829 MODSCHK LDA A1L FDAF: 29 07 830 AND #$07 FDB1: D0 03 831 BNE DATAOUT FDB3: 20 92 FD 832 XAM JSR PRA1 FDB6: A9 A0 833 DATAOUT LDA #$A0 FDB8: 20 ED FD 834 JSR COUT ;OUTPUT BLANK FDBB: B1 3C 835 LDA (A1L),Y FDBD: 20 DA FD 836 JSR PRBYTE ;OUTPUT BYTE IN HEX FDC0: 20 BA FC 837 JSR NXTA1 FDC3: 90 E8 838 BCC MODSCHK ;CHECK IF TIME TO, FDC5: 60 839 RTS4C RTS ; PRINT ADDR FDC6: 4A 840 XAMPM LSR ;DETERMINE IF MON FDC7: 90 EA 841 BCC XAM ; MODE IS XAM FDC9: 4A 842 LSR ; ADD, OR SUB FDCA: 4A 843 LSR FDCB: A5 3E 844 LDA A2L FDCD: 90 02 845 BCC ADD FDCF: 49 FF 846 EOR #$FF ;SUB: FORM 2'S COMPLEMENT FDD1: 65 3C 847 ADD ADC A1L FDD3: 48 848 PHA FDD4: A9 BD 849 LDA #$BD FDD6: 20 ED FD 850 JSR COUT ;PRINT '=', THEN RESULT FDD9: 68 851 PLA FDDA: 48 852 PRBYTE PHA ;PRINT BYTE AS 2 HEX FDDB: 4A 853 LSR ; DIGITS, DESTROYS A-REG FDDC: 4A 854 LSR FDDD: 4A 855 LSR FDDE: 4A 856 LSR FDDF: 20 E5 FD 857 JSR PRHEXZ FDE2: 68 858 PLA FDE3: 29 0F 859 PRHEX AND #$0F ;PRINT HEX DIG IN A-REG FDE5: 09 B0 860 PRHEXZ ORA #$B0 ; LSB'S FDE7: C9 BA 861 CMP #$BA FDE9: 90 02 862 BCC COUT FDEB: 69 06 863 ADC #$06 FDED: 6C 36 00 864 COUT JMP (CSWL) ;VECTOR TO USER OUTPUT ROUTINE FDF0: C9 A0 865 COUT1 CMP #$A0 FDF2: 90 02 866 BCC COUTZ ;DON'T OUTPUT CTRL'S INVERSE FDF4: 25 32 867 AND INVFLG ;MASK WITH INVERSE FLAG FDF6: 84 35 868 COUTZ STY YSAV1 ;SAV Y-REG FDF8: 48 869 PHA ;SAV A-REG FDF9: 20 FD FB 870 JSR VIDOUT ;OUTPUT A-REG AS ASCII FDFC: 68 871 PLA ;RESTORE A-REG FDFD: A4 35 872 LDY YSAV1 ; AND Y-REG FDFF: 60 873 RTS ; THEN RETURN FE00: C6 34 874 BL1 DEC YSAV FE02: F0 9F 875 BEQ XAM8 FE04: CA 876 BLANK DEX ;BLANK TO MON FE05: D0 16 877 BNE SETMDZ ;AFTER BLANK FE07: C9 BA 878 CMP #$BA ;DATA STORE MODE? FE09: D0 BB 879 BNE XAMPM ; NO, XAM, ADD, OR SUB FE0B: 85 31 880 STOR STA MODE ;KEEP IN STORE MODE FE0D: A5 3E 881 LDA A2L FE0F: 91 40 882 STA (A3L),Y ;STORE AS LOW BYTE AS (A3) FE11: E6 40 883 INC A3L FE13: D0 02 884 BNE RTS5 ;INCR A3, RETURN FE15: E6 41 885 INC A3H FE17: 60 886 RTS5 RTS FE18: A4 34 887 SETMODE LDY YSAV ;SAVE CONVERTED ':', '+', FE1A: B9 FF 01 888 LDA IN-1,Y ; '-', '.' AS MODE. FE1D: 85 31 889 SETMDZ STA MODE FE1F: 60 890 RTS FE20: A2 01 891 LT LDX #$01 FE22: B5 3E 892 LT2 LDA A2L,X ;COPY A2 (2 BYTES) TO FE24: 95 42 893 STA A4L,X ; A4 AND A5 FE26: 95 44 894 STA A5L,X FE28: CA 895 DEX FE29: 10 F7 896 BPL LT2 FE2B: 60 897 RTS FE2C: B1 3C 898 MOVE LDA (A1L),Y ;MOVE (A1 TO A2) TO FE2E: 91 42 899 STA (A4L),Y ; (A4) FE30: 20 B4 FC 900 JSR NXTA4 FE33: 90 F7 901 BCC MOVE FE35: 60 902 RTS FE36: B1 3C 903 VFY LDA (A1L),Y ;VERIFY (A1 TO A2) WITH FE38: D1 42 904 CMP (A4L),Y ; (A4) FE3A: F0 1C 905 BEQ VFYOK FE3C: 20 92 FD 906 JSR PRA1 FE3F: B1 3C 907 LDA (A1L),Y FE41: 20 DA FD 908 JSR PRBYTE FE44: A9 A0 909 LDA #$A0 FE46: 20 ED FD 910 JSR COUT FE49: A9 A8 911 LDA #$A8 FE4B: 20 ED FD 912 JSR COUT FE4E: B1 42 913 LDA (A4L),Y FE50: 20 DA FD 914 JSR PRBYTE FE53: A9 A9 915 LDA #$A9 FE55: 20 ED FD 916 JSR COUT FE58: 20 B4 FC 917 VFYOK JSR NXTA4 FE5B: 90 D9 918 BCC VFY FE5D: 60 919 RTS FE5E: 20 75 FE 920 LIST JSR A1PC ;MOVE A1 (2 BYTES) TO FE61: A9 14 921 LDA #$14 ; PC IF SPEC'D AND FE63: 48 922 LIST2 PHA ; DISEMBLE 20 INSTRS FE64: 20 D0 F8 923 JSR INSTDSP FE67: 20 53 F9 924 JSR PCADJ ;ADJUST PC EACH INSTR FE6A: 85 3A 925 STA PCL FE6C: 84 3B 926 STY PCH FE6E: 68 927 PLA FE6F: 38 928 SEC FE70: E9 01 929 SBC #$01 ;NEXT OF 20 INSTRS FE72: D0 EF 930 BNE LIST2 FE74: 60 931 RTS FE75: 8A 932 A1PC TXA ;IF USER SPEC'D ADR FE76: F0 07 933 BEQ A1PCRTS ; COPY FROM A1 TO PC FE78: B5 3C 934 A1PCLP LDA A1L,X FE7A: 95 3A 935 STA PCL,X FE7C: CA 936 DEX FE7D: 10 F9 937 BPL A1PCLP FE7F: 60 938 A1PCRTS RTS FE80: A0 3F 939 SETINV LDY #$3F ;SET FOR INVERSE VID FE82: D0 02 940 BNE SETIFLG ; VIA COUT1 FE84: A0 FF 941 SETNORM LDY #$FF ;SET FOR NORMAL VID FE86: 84 32 942 SETIFLG STY INVFLG FE88: 60 943 RTS FE89: A9 00 944 SETKBD LDA #$00 ;SIMULATE PORT #0 INPUT FE8B: 85 3E 945 INPORT STA A2L ; SPECIFIED (KEYIN ROUTINE) FE8D: A2 38 946 INPRT LDX #KSWL FE8F: A0 1B 947 LDY #KEYIN FE91: D0 08 948 BNE IOPRT FE93: A9 00 949 SETVID LDA #$00 ;SIMULATE PORT #0 OUTPUT FE95: 85 3E 950 OUTPORT STA A2L ; SPECIFIED (COUT1 ROUTINE) FE97: A2 36 951 OUTPRT LDX #CSWL FE99: A0 F0 952 LDY #COUT1 FE9B: A5 3E 953 IOPRT LDA A2L ;SET RAM IN/OUT VECTORS FE9D: 29 0F 954 AND #$0F FE9F: F0 06 955 BEQ IOPRT1 FEA1: 09 C0 956 ORA #IOADR/256 FEA3: A0 00 957 LDY #$00 FEA5: F0 02 958 BEQ IOPRT2 FEA7: A9 FD 959 IOPRT1 LDA #COUT1/256 FEA9: 94 00 960 IOPRT2 STY LOC0,X FEAB: 95 01 961 STA LOC1,X FEAD: 60 962 RTS FEAE: EA 963 NOP FEAF: EA 964 NOP FEB0: 4C 00 E0 965 XBASIC JMP BASIC ;TO BASIC WITH SCRATCH FEB3: 4C 03 E0 966 BASCONT JMP BASIC2 ;CONTINUE BASIC FEB6: 20 75 FE 967 GO JSR A1PC ;ADR TO PC IF SPEC'D FEB9: 20 3F FF 968 JSR RESTORE ;RESTORE META REGS FEBC: 6C 3A 00 969 JMP (PCL) ;GO TO USER SUBR FEBF: 4C D7 FA 970 REGZ JMP REGDSP ;TO REG DISPLAY FEC2: C6 34 971 TRACE DEC YSAV FEC4: 20 75 FE 972 STEPZ JSR A1PC ;ADR TO PC IF SPEC'D FEC7: 4C 43 FA 973 JMP STEP ;TAKE ONE STEP FECA: 4C F8 03 974 USR JMP USRADR ;TO USR SUBR AT USRADR FECD: A9 40 975 WRITE LDA #$40 FECF: 20 C9 FC 976 JSR HEADR ;WRITE 10-SEC HEADER FED2: A0 27 977 LDY #$27 FED4: A2 00 978 WR1 LDX #$00 FED6: 41 3C 979 EOR (A1L,X) FED8: 48 980 PHA FED9: A1 3C 981 LDA (A1L,X) FEDB: 20 ED FE 982 JSR WRBYTE FEDE: 20 BA FC 983 JSR NXTA1 FEE1: A0 1D 984 LDY #$1D FEE3: 68 985 PLA FEE4: 90 EE 986 BCC WR1 FEE6: A0 22 987 LDY #$22 FEE8: 20 ED FE 988 JSR WRBYTE FEEB: F0 4D 989 BEQ BELL FEED: A2 10 990 WRBYTE LDX #$10 FEEF: 0A 991 WRBYT2 ASL FEF0: 20 D6 FC 992 JSR WRBIT FEF3: D0 FA 993 BNE WRBYT2 FEF5: 60 994 RTS FEF6: 20 00 FE 995 CRMON JSR BL1 ;HANDLE A CR AS BLANK FEF9: 68 996 PLA ; THEN POP STACK FEFA: 68 997 PLA ; AND RTN TO MON FEFB: D0 6C 998 BNE MONZ FEFD: 20 FA FC 999 READ JSR RD2BIT ;FIND TAPEIN EDGE FF00: A9 16 1000 LDA #$16 FF02: 20 C9 FC 1001 JSR HEADR ;DELAY 3.5 SECONDS FF05: 85 2E 1002 STA CHKSUM ;INIT CHKSUM=$FF FF07: 20 FA FC 1003 JSR RD2BIT ;FIND TAPEIN EDGE FF0A: A0 24 1004 RD2 LDY #$24 ;LOOK FOR SYNC BIT FF0C: 20 FD FC 1005 JSR RDBIT ; (SHORT 0) FF0F: B0 F9 1006 BCS RD2 ; LOOP UNTIL FOUND FF11: 20 FD FC 1007 JSR RDBIT ;SKIP SECOND SYNC H-CYCLE FF14: A0 3B 1008 LDY #$3B ;INDEX FOR 0/1 TEST FF16: 20 EC FC 1009 RD3 JSR RDBYTE ;READ A BYTE FF19: 81 3C 1010 STA (A1L,X) ;STORE AT (A1) FF1B: 45 2E 1011 EOR CHKSUM FF1D: 85 2E 1012 STA CHKSUM ;UPDATE RUNNING CHKSUM FF1F: 20 BA FC 1013 JSR NXTA1 ;INC A1, COMPARE TO A2 FF22: A0 35 1014 LDY #$35 ;COMPENSATE 0/1 INDEX FF24: 90 F0 1015 BCC RD3 ;LOOP UNTIL DONE FF26: 20 EC FC 1016 JSR RDBYTE ;READ CHKSUM BYTE FF29: C5 2E 1017 CMP CHKSUM FF2B: F0 0D 1018 BEQ BELL ;GOOD, SOUND BELL AND RETURN FF2D: A9 C5 1019 PRERR LDA #$C5 FF2F: 20 ED FD 1020 JSR COUT ;PRINT "ERR", THEN BELL FF32: A9 D2 1021 LDA #$D2 FF34: 20 ED FD 1022 JSR COUT FF37: 20 ED FD 1023 JSR COUT FF3A: A9 87 1024 BELL LDA #$87 ;OUTPUT BELL AND RETURN FF3C: 4C ED FD 1025 JMP COUT FF3F: A5 48 1026 RESTORE LDA STATUS ;RESTORE 6502 REG CONTENTS FF41: 48 1027 PHA ; USED BY DEBUG SOFTWARE FF42: A5 45 1028 LDA ACC FF44: A6 46 1029 RESTR1 LDX XREG FF46: A4 47 1030 LDY YREG FF48: 28 1031 PLP FF49: 60 1032 RTS FF4A: 85 45 1033 SAVE STA ACC ;SAVE 6502 REG CONTENTS FF4C: 86 46 1034 SAV1 STX XREG FF4E: 84 47 1035 STY YREG FF50: 08 1036 PHP FF51: 68 1037 PLA FF52: 85 48 1038 STA STATUS FF54: BA 1039 TSX FF55: 86 49 1040 STX SPNT FF57: D8 1041 CLD FF58: 60 1042 RTS FF59: 20 84 FE 1043 RESET JSR SETNORM ;SET SCREEN MODE FF5C: 20 2F FB 1044 JSR INIT ; AND INIT KBD/SCREEN FF5F: 20 93 FE 1045 JSR SETVID ; AS I/O DEV'S FF62: 20 89 FE 1046 JSR SETKBD FF65: D8 1047 MON CLD ;MUST SET HEX MODE! FF66: 20 3A FF 1048 JSR BELL FF69: A9 AA 1049 MONZ LDA #$AA ;'*' PROMPT FOR MON FF6B: 85 33 1050 STA PROMPT FF6D: 20 67 FD 1051 JSR GETLNZ ;READ A LINE FF70: 20 C7 FF 1052 JSR ZMODE ;CLEAR MON MODE, SCAN IDX FF73: 20 A7 FF 1053 NXTITM JSR GETNUM ;GET ITEM, NON-HEX FF76: 84 34 1054 STY YSAV ; CHAR IN A-REG FF78: A0 17 1055 LDY #$17 ; X-REG=0 IF NO HEX INPUT FF7A: 88 1056 CHRSRCH DEY FF7B: 30 E8 1057 BMI MON ;NOT FOUND, GO TO MON FF7D: D9 CC FF 1058 CMP CHRTBL,Y ;FIND CMND CHAR IN TEL FF80: D0 F8 1059 BNE CHRSRCH FF82: 20 BE FF 1060 JSR TOSUB ;FOUND, CALL CORRESPONDING FF85: A4 34 1061 LDY YSAV ; SUBROUTINE FF87: 4C 73 FF 1062 JMP NXTITM FF8A: A2 03 1063 DIG LDX #$03 FF8C: 0A 1064 ASL FF8D: 0A 1065 ASL ;GOT HEX DIG, FF8E: 0A 1066 ASL ; SHIFT INTO A2 FF8F: 0A 1067 ASL FF90: 0A 1068 NXTBIT ASL FF91: 26 3E 1069 ROL A2L FF93: 26 3F 1070 ROL A2H FF95: CA 1071 DEX ;LEAVE X=$FF IF DIG FF96: 10 F8 1072 BPL NXTBIT FF98: A5 31 1073 NXTBAS LDA MODE FF9A: D0 06 1074 BNE NXTBS2 ;IF MODE IS ZERO FF9C: B5 3F 1075 LDA A2H,X ; THEN COPY A2 TO FF9E: 95 3D 1076 STA A1H,X ; A1 AND A3 FFA0: 95 41 1077 STA A3H,X FFA2: E8 1078 NXTBS2 INX FFA3: F0 F3 1079 BEQ NXTBAS FFA5: D0 06 1080 BNE NXTCHR FFA7: A2 00 1081 GETNUM LDX #$00 ;CLEAR A2 FFA9: 86 3E 1082 STX A2L FFAB: 86 3F 1083 STX A2H FFAD: B9 00 02 1084 NXTCHR LDA IN,Y ;GET CHAR FFB0: C8 1085 INY FFB1: 49 B0 1086 EOR #$B0 FFB3: C9 0A 1087 CMP #$0A FFB5: 90 D3 1088 BCC DIG ;IF HEX DIG, THEN FFB7: 69 88 1089 ADC #$88 FFB9: C9 FA 1090 CMP #$FA FFBB: B0 CD 1091 BCS DIG FFBD: 60 1092 RTS FFBE: A9 FE 1093 TOSUB LDA #GO/256 ;PUSH HIGH-ORDER FFC0: 48 1094 PHA ; SUBR ADR ON STK FFC1: B9 E3 FF 1095 LDA SUBTBL,Y ;PUSH LOW-ORDER FFC4: 48 1096 PHA ; SUBR ADR ON STK FFC5: A5 31 1097 LDA MODE FFC7: A0 00 1098 ZMODE LDY #$00 ;CLR MODE, OLD MODE FFC9: 84 31 1099 STY MODE ; TO A-REG FFCB: 60 1100 RTS ; GO TO SUBR VIA RTS FFCC: BC 1101 CHRTBL DFB $BC ;F("CTRL-C") FFCD: B2 1102 DFB $B2 ;F("CTRL-Y") FFCE: BE 1103 DFB $BE ;F("CTRL-E") FFCF: ED 1104 DFB $ED ;F("T") FFD0: EF 1105 DFB $EF ;F("V") FFD1: C4 1106 DFB $C4 ;F("CTRL-K") FFD2: EC 1107 DFB $EC ;F("S") FFD3: A9 1108 DFB $A9 ;F("CTRL-P") FFD4: BB 1109 DFB $BB ;F("CTRL-B") FFD5: A6 1110 DFB $A6 ;F("-") FFD6: A4 1111 DFB $A4 ;F("+") FFD7: 06 1112 DFB $06 ;F("M") (F=EX-OR $B0+$89) FFD8: 95 1113 DFB $95 ;F("<") FFD9: 07 1114 DFB $07 ;F("N") FFDA: 02 1115 DFB $02 ;F("I") FFDB: 05 1116 DFB $05 ;F("L") FFDC: F0 1117 DFB $F0 ;F("W") FFDD: 00 1118 DFB $00 ;F("G") FFDE: EB 1119 DFB $EB ;F("R") FFDF: 93 1120 DFB $93 ;F(":") FFE0: A7 1121 DFB $A7 ;F(".") FFE1: C6 1122 DFB $C6 ;F("CR") FFE2: 99 1123 DFB $99 ;F(BLANK) FFE3: B2 1124 SUBTBL DFB BASCONT-1 FFE4: C9 1125 DFB USR-1 FFE5: BE 1126 DFB REGZ-1 FFE6: C1 1127 DFB TRACE-1 FFE7: 35 1128 DFB VFY-1 FFE8: 8C 1129 DFB INPRT-1 FFE9: C3 1130 DFB STEPZ-1 FFEA: 96 1131 DFB OUTPRT-1 FFEB: AF 1132 DFB XBASIC-1 FFEC: 17 1133 DFB SETMODE-1 FFED: 17 1134 DFB SETMODE-1 FFEE: 2B 1135 DFB MOVE-1 FFEF: 1F 1136 DFB LT-1 FFF0: 83 1137 DFB SETNORM-1 FFF1: 7F 1138 DFB SETINV-1 FFF2: 5D 1139 DFB LIST-1 FFF3: CC 1140 DFB WRITE-1 FFF4: B5 1141 DFB GO-1 FFF5: FC 1142 DFB READ-1 FFF6: 17 1143 DFB SETMODE-1 FFF7: 17 1144 DFB SETMODE-1 FFF8: F5 1145 DFB CRMON-1 FFF9: 03 1146 DFB BLANK-1 FFFA: FB 1147 DFB NMI ;NMI VECTOR FFFB: 03 1148 DFB NMI/256 FFFC: 59 1149 DFB RESET ;RESET VECTOR FFFD: FF 1150 DFB RESET/256 FFFE: 86 1151 DFB IRQ ;IRQ VECTOR FFFF: FA 1152 DFB IRQ/256 1153 XQTNZ EQU $3C