0005 ; 10:01:55 WEDNESDAY NOV 12 2003 0010 ; 0015 ; ORIGINAL SYM MONITOR SOURCE CODE 0020 ; 0025 ; NOTE: THIS SOURCE DOES NOT CONTAIN THE TAPE 0030 ; FUNCTIONS. IT IS IN SEPARATE SOURCE CODE FILE. 0035 ; THIS SOURCE WILL STOP AT $EC78 AND 0040 ; RESUME AT $EFA0. 0045 ; 0050 ; THIS CODE IS BEING COMPILED FOR PAGE E 0055 ; IF YOU CHANGE COMPILE LOCATION MAKE SURE 0060 ; YOU CHANGE LINES 7980 AND 7985 AS WELL AS 0065 ; LINES 8185 TO 8195 IN THIS SOURCE TO THE 0070 ; NEW COMPILE LOCATION 0075 0080 .BA $E000 0085 .MC $7000 ; STORE OBJECT CODE PAGE 7 0090 .OS 0095 0100 E000- 0105 SCPBUF .DS $20 0110 RAM .DI = E020- 0115 JTABLE .DS $10 E030- 0120 TAPDEL .DS 1 E031- 0125 KMBDRY .DS 1 E032- 0130 HSBDRY .DS 1 E033- 0135 SCR3 .DS 1 E034- 0140 SCR4 .DS 1 E035- 0145 TAPET1 .DS 1 E036- 0150 SCR6 .DS 1 E037- 0155 SCR7 .DS 1 E038- 0160 SCR8 .DS 1 E039- 0165 SCR9 .DS 1 E03A- 0170 SCRA .DS 1 E03B- 0175 SCRB .DS 1 E03C- 0180 TAPET2 .DS 1 E03D- 0185 SCRD .DS 1 0190 RC .DI SCRD E03E- 0195 SCRE .DS 1 E03F- 0200 SCRF .DS 1 E040- 0205 DISBUF .DS 5 E045- 0210 RDIG .DS 1 E046- 0215 .DS 3 E049- 0220 PARNR .DS 1 0225 E04A- 0230 P3L .DS 1 E04B- 0235 P3H .DS 1 E04C- 0240 P2L .DS 1 E04D- 0245 P2H .DS 1 E04E- 0250 P1L .DS 1 E04F- 0255 P1H .DS 1 E050- 0260 PADBIT .DS 1 E051- 0265 SDBYT .DS 1 E052- 0270 ERCNT .DS 1 E053- 0275 TECHO .DS 1 E054- 0280 TOUTFL .DS 1 E055- 0285 KSHFL .DS 1 E056- 0290 TV .DS 1 E057- 0295 LSTCOM .DS 1 E058- 0300 MAXRC .DS 1 E059- 0305 PCLR .DS 1 E05A- 0310 PCHR .DS 1 E05B- 0315 SR .DS 1 E05C- 0320 FR .DS 1 E05D- 0325 AR .DS 1 E05E- 0330 XR .DS 1 E05F- 0335 YR .DS 1 0340 0345 ;I/O VECTORS FOLLOW 0350 E060- 0355 INVEC .DS 3 ; IN CHAR E063- 0360 OUTVEC .DS 3 ; OUT CHAR E066- 0365 INSVEC .DS 3 ; IN STATUS E069- 0370 URSVEC .DS 3 ; UNRECOGNIZED STNTAX VECTOR E06C- 0375 URCVEC .DS 3 ; UNRECONIZED CMD/ERROR VECTOR E06F- 0380 SCNVEC .DS 3 ; SCAN ON-BOARD DISPLAY 0385 0390 ;TRACE, INTERRUPT VECTORS 0395 E072- 0400 EXEVEC .DS 2 ; EXEC CMD ALTERNATE INVEC E074- 0405 TRCVEC .DS 2 ; TRACE E076- 0410 UBRKVC .DS 2 ; USER BRK AFTER MONITOR 0415 UBRKV .DI UBRKVC E078- 0420 UIRQVC .DS 2 ; USER NON-BRK IRQ AFTER MONITOR 0425 UIRQV .DI UIRQVC E07A- 0430 NMIVEC .DS 2 ; NMI E07C- 0435 RSTVEC .DS 2 ; RESET E07E- 0440 IRQVEC .DS 2 ; IRQ 0445 0450 ; I/O REG DEFINITIONS 0455 0460 PADA .DE $A400 ; KEYBOARD/DISPLAY 0465 PBDA .DE $A402 ; SERIAL I/O 0470 OR3A .DE $AC01 ; WP, DBON, DBOFF 0475 DDR3A .DI OR3A+2 ; DATA DIRECTION FOR SAME 0480 OR1B .DE $A000 0485 DDR1B .DE $A002 0490 PCR1 .DE $A00C ; POR/TAPE REMOTE 0495 0500 ;MONITOR MAINLINE 0505 0510 .BA $E000 0515 .MC $7000 0520 .OS 0525 ; E000- 4C 7C EB 0530 MONITR JMP MONENT E003- 20 FF E0 0535 WARM JSR GETCOM E006- 20 4A E1 0540 JSR DISPAT E009- 20 71 E1 0545 JSR ERMSG E00C- 4C 03 E0 0550 JMP WARM 0555 0560 ; TRACE AND INTERRUPT ROUTINES 0565 E00F- 08 0570 IRQBRK PHP E010- 48 0575 PHA E011- 8A 0580 TXA E012- 48 0585 PHA E013- BA 0590 TSX E014- BD 04 01 0595 LDA $104,X E017- 29 10 0600 AND #$10 E019- F0 07 0605 BEQ DETIRQ E01B- 68 0610 DETBRK PLA E01C- AA 0615 TAX E01D- 68 0620 PLA E01E- 28 0625 PLP E01F- 6C F6 FF 0630 JMP ($FFF6) E022- 68 0635 DETIRQ PLA E023- AA 0640 TAX E024- 68 0645 PLA E025- 28 0650 PLP E026- 6C F8 FF 0655 JMP ($FFF8) E029- 20 86 EB 0660 SVIRQ JSR ACCESS E02C- 38 0665 SEC E02D- 20 64 E0 0670 JSR SAVINT E030- A9 31 0675 LDA #'1 E032- 4C 53 E0 0680 JMP IDISP E035- 08 0685 USRENT PHP E036- 20 86 EB 0690 JSR ACCESS E039- 38 0695 SEC E03A- 20 64 E0 0700 JSR SAVINT E03D- EE 59 E0 0705 INC PCLR E040- D0 03 0710 BNE =+4 E042- EE 5A E0 0715 INC PCHR E045- A9 33 0720 LDA #'3 E047- 4C 53 E0 0725 JMP IDISP E04A- 20 86 EB 0730 SVBRK JSR ACCESS E04D- 18 0735 CLC E04E- 20 64 E0 0740 JSR SAVINT E051- A9 30 0745 LDA #'0 E053- 48 0750 IDISP PHA E054- 20 D3 E0 0755 JSR DBOFF E057- 20 4D E3 0760 JSR CRLF E05A- 20 37 E3 0765 JSR OPCCOM E05D- 68 0770 PLA E05E- 20 47 EA 0775 JSR OUTCHR E061- 4C 03 E0 0780 JMP WARM E064- 8D 5D E0 0785 SAVINT STA AR E067- 8E 5E E0 0790 STX XR E06A- 8C 5F E0 0795 STY YR E06D- BA 0800 TSX E06E- D8 0805 CLD E06F- BD 04 01 0810 LDA $104,X E072- 69 FF 0815 ADC #$FF E074- 8D 59 E0 0820 STA PCLR E077- BD 05 01 0825 LDA $105,X E07A- 69 FF 0830 ADC #$FF E07C- 8D 5A E0 0835 STA PCHR E07F- BD 03 01 0840 LDA $103,X E082- 8D 5C E0 0845 STA FR E085- BD 02 01 0850 LDA $102,X E088- 9D 05 01 0855 STA $105,X E08B- BD 01 01 0860 LDA $101,X E08E- 9D 04 01 0865 STA $104,X E091- E8 0870 INX E092- E8 0875 INX E093- E8 0880 INX E094- 9A 0885 TXS E095- E8 0890 INX E096- E8 0895 INX E097- 8E 5B E0 0900 STX SR E09A- 60 0905 RTS E09B- 20 86 EB 0910 SVNMI JSR ACCESS E09E- 38 0915 SEC E09F- 20 64 E0 0920 JSR SAVINT E0A2- 20 D3 E0 0925 JSR DBOFF E0A5- AD 56 E0 0930 LDA TV E0A8- D0 05 0935 BNE TVNZ E0AA- A9 32 0940 LDA #'2 E0AC- 4C 53 E0 0945 JMP IDISP E0AF- 20 37 E3 0950 TVNZ JSR OPCCOM E0B2- AD 5D E0 0955 LDA AR E0B5- 20 4A E3 0960 JSR OBCRLF E0B8- 20 5A E3 0965 JSR DELAY E0BB- 90 10 0970 BCC TRACON E0BD- 4C 03 E0 0975 JMP WARM E0C0- 20 86 EB 0980 TRCOFF JSR ACCESS E0C3- 38 0985 SEC E0C4- 20 64 E0 0990 JSR SAVINT E0C7- 20 D3 E0 0995 JSR DBOFF E0CA- 6C 74 E0 1000 JMP (TRCVEC) E0CD- 20 E4 E0 1005 TRACON JSR DBON E0D0- 4C FD E3 1010 JMP GO1ENT+3 E0D3- AD 01 AC 1015 DBOFF LDA OR3A E0D6- 29 DF 1020 AND #$DF E0D8- 09 10 1025 ORA #$10 E0DA- 8D 01 AC 1030 STA OR3A E0DD- AD 03 AC 1035 LDA DDR3A E0E0- 09 30 1040 ORA #$30 E0E2- D0 0F 1045 BNE DBNEW-3 E0E4- AD 01 AC 1050 DBON LDA OR3A E0E7- 29 EF 1055 AND #$EF E0E9- 09 20 1060 ORA #$20 E0EB- 8D 01 AC 1065 STA OR3A E0EE- AD 03 AC 1070 LDA DDR3A E0F1- 09 30 1075 ORA #$30 E0F3- 8D 03 AC 1080 STA DDR3A E0F6- AD 03 AC 1085 DBNEW LDA DDR3A E0F9- 29 CF 1090 AND #$CF E0FB- 8D 03 AC 1095 STA DDR3A E0FE- 60 1100 RTS 1105 1110 ; GETCOM - GET COMMAND AND 0-3 PARMS 1115 E0FF- 20 4D E3 1120 GETCOM JSR CRLF E102- A9 2E 1125 LDA #'. E104- 20 47 EA 1130 JSR OUTCHR E107- 20 1B EA 1135 GETC1 JSR INCHR E10A- F0 F3 1140 BEQ GETCOM E10C- C9 7F 1145 CMP #$7F E10E- F0 F7 1150 BEQ GETC1 E110- C9 00 1155 CMP #0 E112- F0 F3 1160 BEQ GETC1 E114- C9 53 1165 CMP #'S E116- F0 1B 1170 BEQ HASHUS E118- C9 55 1175 CMP #'U E11A- F0 17 1180 BEQ HASHUS E11C- C9 4C 1185 CMP #'L E11E- F0 0F 1190 BEQ HASHL E120- 8D 57 E0 1195 STOCOM STA LSTCOM E123- 20 42 E3 1200 JSR SPACE E126- 20 08 E2 1205 JSR PSHOVE E129- 20 08 E2 1210 JSR PSHOVE E12C- 4C 20 E2 1215 JMP PARM E12F- A9 01 1220 HASHL LDA #$01 E131- 10 02 1225 BPL HASHUS+2 E133- 0A 1230 HASHUS ASL A E134- 0A 1235 ASL A E135- 8D 57 E0 1240 STA LSTCOM E138- 20 1B EA 1245 JSR INCHR E13B- F0 C2 1250 BEQ GETCOM E13D- 18 1255 CLC E13E- 6D 57 E0 1260 ADC LSTCOM E141- 29 0F 1265 AND #$0F E143- 09 10 1270 ORA #$10 E145- 10 D9 1275 BPL STOCOM E147- FF FF FF 1280 .BY $FF $FF $FF 1285 1290 ; DISPATCH TO EXEC BLK 1295 E14A- C9 0D 1300 DISPAT CMP #$0D E14C- D0 20 1305 BNE HIPN E14E- AD 57 E0 1310 LDA LSTCOM E151- AE 49 E0 1315 LDX PARNR E154- D0 03 1320 BNE M12 E156- 4C 95 E3 1325 JMP BZPARM E159- E0 01 1330 M12 CPX #$01 E15B- D0 03 1335 BNE M13 E15D- 4C DA E4 1340 JMP B1PARM E160- E0 02 1345 M13 CPX #$02 E162- D0 03 1350 BNE M14 E164- 4C 19 E6 1355 JMP B2PARM E167- E0 03 1360 M14 CPX #$03 E169- D0 03 1365 BNE HIPN E16B- 4C 14 E7 1370 JMP B3PARM E16E- 6C 6A E0 1375 HIPN JMP (URSVEC+1) 1380 E171- 90 44 1385 ERMSG BCC M15 E173- 48 1390 PHA E174- 20 4D E3 1395 JSR CRLF E177- A9 45 1400 LDA #'E E179- 20 47 EA 1405 JSR OUTCHR E17C- A9 52 1410 LDA #'R E17E- 20 47 EA 1415 JSR OUTCHR E181- 20 42 E3 1420 JSR SPACE E184- 68 1425 PLA E185- 4C FA E2 1430 JMP OUTBYT 1435 1440 ; SAVER - SAVE ALL REGISTERS 1445 E188- 08 1450 SAVER PHP E189- 48 1455 PHA E18A- 48 1460 PHA E18B- 48 1465 PHA E18C- 08 1470 PHP E18D- 48 1475 PHA E18E- 8A 1480 TXA E18F- 48 1485 PHA E190- BA 1490 TSX E191- BD 09 01 1495 LDA $109,X E194- 9D 05 01 1500 STA $105,X E197- BD 07 01 1505 LDA $107,X E19A- 9D 09 01 1510 STA $109,X E19D- BD 01 01 1515 LDA $101,X E1A0- 9D 07 01 1520 STA $107,X E1A3- BD 08 01 1525 LDA $108,X E1A6- 9D 04 01 1530 STA $104,X E1A9- BD 06 01 1535 LDA $106,X E1AC- 9D 08 01 1540 STA $108,X E1AF- 98 1545 TYA E1B0- 9D 06 01 1550 STA $106,X E1B3- 68 1555 PLA E1B4- AA 1560 TAX E1B5- 68 1565 PLA E1B6- 28 1570 PLP E1B7- 60 1575 M15 RTS 1580 1585 ; RESTORE EXCEPT A,F 1590 E1B8- 08 1595 RESXAF PHP E1B9- BA 1600 TSX E1BA- 9D 04 01 1605 STA $104,X E1BD- 28 1610 PLP 1615 1620 ; RESTORE EXCEPT F 1625 E1BE- 08 1630 RESXF PHP E1BF- 68 1635 PLA E1C0- BA 1640 TSX E1C1- 9D 04 01 1645 STA $104,X 1650 1655 ; RESTORE ALL 100% 1660 E1C4- 68 1665 RESALL PLA E1C5- A8 1670 TAY E1C6- 68 1675 PLA E1C7- AA 1680 TAX E1C8- 68 1685 PLA E1C9- 28 1690 PLP E1CA- 60 1695 RTS 1700 1705 ; MONITOR UTILITIES 1710 E1CB- C9 20 1715 ADVCK CMP #$20 E1CD- F0 02 1720 BEQ M1 E1CF- C9 3E 1725 CMP #'> E1D1- 38 1730 M1 SEC E1D2- 60 1735 RTS E1D3- 20 FA E2 1740 OBCMIN JSR OUTBYT E1D6- 20 3A E3 1745 COMINB JSR COMMA E1D9- 20 1B EA 1750 INBYTE JSR INCHR E1DC- 20 75 E2 1755 JSR ASCNIB E1DF- B0 14 1760 BCS OUT4 E1E1- 0A 1765 ASL A E1E2- 0A 1770 ASL A E1E3- 0A 1775 ASL A E1E4- 0A 1780 ASL A E1E5- 8D 33 E0 1785 STA SCR3 E1E8- 20 1B EA 1790 JSR INCHR E1EB- 20 75 E2 1795 JSR ASCNIB E1EE- B0 11 1800 BCS OUT2 E1F0- 0D 33 E0 1805 ORA SCR3 E1F3- 18 1810 GOOD CLC E1F4- 60 1815 RTS E1F5- C9 3A 1820 OUT4 CMP #': E1F7- D0 05 1825 BNE OUT1 E1F9- 20 1B EA 1830 JSR INCHR E1FC- D0 F5 1835 BNE GOOD E1FE- B8 1840 OUT1 CLV E1FF- 50 03 1845 BVC CRCHK E201- 2C 04 E2 1850 OUT2 BIT CRCHK E204- C9 0D 1855 CRCHK CMP #$0D E206- 38 1860 SEC E207- 60 1865 RTS E208- A2 10 1870 PSHOVE LDX #$10 E20A- 0E 4A E0 1875 PRM10 ASL P3L E20D- 2E 4B E0 1880 ROL P3H E210- 2E 4C E0 1885 ROL P2L E213- 2E 4D E0 1890 ROL P2H E216- 2E 4E E0 1895 ROL P1L E219- 2E 4F E0 1900 ROL P1H E21C- CA 1905 DEX E21D- D0 EB 1910 BNE PRM10 E21F- 60 1915 RTS E220- 20 88 E1 1920 PARM JSR SAVER E223- A9 00 1925 LDA #0 E225- 8D 49 E0 1930 STA PARNR E228- 8D 33 E0 1935 STA SCR3 E22B- 20 08 E2 1940 PM1 JSR PSHOVE E22E- 20 1B EA 1945 PARFIL JSR INCHR E231- C9 2C 1950 CMP #', E233- F0 04 1955 BEQ M21 E235- C9 2D 1960 CMP #'- E237- D0 11 1965 BNE M22 E239- A2 FF 1970 M21 LDX #$FF E23B- 8E 33 E0 1975 STX SCR3 E23E- EE 49 E0 1980 INC PARNR E241- AE 49 E0 1985 LDX PARNR E244- E0 03 1990 CPX #$03 E246- D0 E3 1995 BNE PM1 E248- F0 1D 2000 BEQ M24 E24A- 20 75 E2 2005 M22 JSR ASCNIB E24D- B0 18 2010 BCS M24 E24F- A2 04 2015 LDX #4 E251- 0E 4A E0 2020 M23 ASL P3L E254- 2E 4B E0 2025 ROL P3H E257- CA 2030 DEX E258- D0 F7 2035 BNE M23 E25A- 0D 4A E0 2040 ORA P3L E25D- 8D 4A E0 2045 STA P3L E260- A9 FF 2050 LDA #$FF E262- 8D 33 E0 2055 STA SCR3 E265- D0 C7 2060 BNE PARFIL E267- 2C 33 E0 2065 M24 BIT SCR3 E26A- F0 03 2070 BEQ M25 E26C- EE 49 E0 2075 INC PARNR E26F- C9 0D 2080 M25 CMP #$0D E271- 18 2085 CLC E272- 4C B8 E1 2090 JMP RESXAF E275- C9 0D 2095 ASCNIB CMP #$0D E277- F0 19 2100 BEQ M29 E279- C9 30 2105 CMP #'0 E27B- 90 0C 2110 BCC M26 E27D- C9 47 2115 CMP #'G E27F- B0 08 2120 BCS M26 E281- C9 41 2125 CMP #'A E283- B0 08 2130 BCS M27 E285- C9 3A 2135 CMP #': E287- 90 06 2140 BCC M28 E289- C9 30 2145 M26 CMP #'0 E28B- 38 2150 SEC E28C- 60 2155 RTS E28D- E9 37 2160 M27 SBC #$37 E28F- 29 0F 2165 M28 AND #$0F E291- 18 2170 CLC E292- 60 2175 M29 RTS E293- EE 4A E0 2180 INCP3 INC P3L E296- D0 03 2185 BNE =+4 E298- EE 4B E0 2190 INC P3H E29B- 60 2195 RTS E29C- AE 4D E0 2200 P2SCR LDX P2H E29F- 86 FF 2205 STX *$FF E2A1- AE 4C E0 2210 LDX P2L E2A4- 86 FE 2215 STX *$FE E2A6- 60 2220 RTS E2A7- AE 4B E0 2225 P3SCR LDX P3H E2AA- 86 FF 2230 STX *$FF E2AC- AE 4A E0 2235 LDX P3L E2AF- 86 FE 2240 STX *$FE E2B1- 60 2245 RTS E2B2- E6 FE 2250 INCCMP INC *$FE E2B4- D0 14 2255 BNE COMPAR E2B6- E6 FF 2260 INC *$FF E2B8- D0 10 2265 WRAP BNE COMPAR E2BA- 2C BD E2 2270 BIT EXWRAP E2BD- 60 2275 EXWRAP RTS E2BE- A5 FE 2280 DECCMP LDA *$FE E2C0- D0 06 2285 BNE M32 E2C2- A5 FF 2290 LDA *$FF E2C4- F0 F2 2295 BEQ WRAP E2C6- C6 FF 2300 DEC *$FF E2C8- C6 FE 2305 M32 DEC *$FE E2CA- 20 88 E1 2310 COMPAR JSR SAVER E2CD- A5 FF 2315 LDA *$FF E2CF- CD 4B E0 2320 CMP P3H E2D2- D0 05 2325 BNE EXITCP E2D4- A5 FE 2330 LDA *$FE E2D6- CD 4A E0 2335 CMP P3L E2D9- B8 2340 EXITCP CLV E2DA- 4C BE E1 2345 JMP RESXF E2DD- 08 2350 CHKSAD PHP E2DE- 48 2355 PHA E2DF- 18 2360 CLC E2E0- 6D 36 E0 2365 ADC SCR6 E2E3- 8D 36 E0 2370 STA SCR6 E2E6- 90 03 2375 BCC M33 E2E8- EE 37 E0 2380 INC SCR7 E2EB- 68 2385 M33 PLA E2EC- 28 2390 PLP E2ED- 60 2395 RTS E2EE- AD 59 E0 2400 OUTPC LDA PCLR E2F1- AE 5A E0 2405 LDX PCHR E2F4- 48 2410 OUTXAH PHA E2F5- 8A 2415 TXA E2F6- 20 FA E2 2420 JSR OUTBYT E2F9- 68 2425 PLA E2FA- 48 2430 OUTBYT PHA E2FB- 48 2435 PHA E2FC- 4A 2440 LSR A E2FD- 4A 2445 LSR A E2FE- 4A 2450 LSR A E2FF- 4A 2455 LSR A E300- 20 44 EA 2460 JSR NBASOC E303- 68 2465 PLA E304- 20 44 EA 2470 JSR NBASOC E307- 68 2475 PLA E308- 60 2480 RTS E309- 29 0F 2485 NIBASC AND #$0F E30B- C9 0A 2490 CMP #$0A E30D- B0 04 2495 BCS NIBALF E30F- 69 30 2500 ADC #$30 E311- 90 02 2505 BCC EXITNB E313- 69 36 2510 NIBALF ADC #$36 E315- 60 2515 EXITNB RTS E316- 20 4D E3 2520 CRLFSZ JSR CRLF E319- A6 FF 2525 OUTSZ LDX *$FF E31B- A5 FE 2530 LDA *$FE E31D- 4C F4 E2 2535 JMP OUTXAH E320- A9 3F 2540 OUTQM LDA #'? E322- 4C 47 EA 2545 JMP OUTCHR E325- 20 3A E3 2550 OCMCK JSR COMMA E328- AD 36 E0 2555 LDA SCR6 E32B- 4C FA E2 2560 JMP OUTBYT E32E- A9 00 2565 ZERCK LDA #0 E330- 8D 36 E0 2570 STA SCR6 E333- 8D 37 E0 2575 STA SCR7 E336- 60 2580 RTS E337- 20 EE E2 2585 OPCCOM JSR OUTPC E33A- 48 2590 COMMA PHA E33B- A9 2C 2595 LDA #', E33D- D0 06 2600 BNE SPCP3 E33F- 20 42 E3 2605 SPC2 JSR SPACE E342- 48 2610 SPACE PHA E343- A9 20 2615 LDA #$20 E345- 20 47 EA 2620 SPCP3 JSR OUTCHR E348- 68 2625 PLA E349- 60 2630 RTS E34A- 20 FA E2 2635 OBCRLF JSR OUTBYT E34D- 48 2640 CRLF PHA E34E- A9 0D 2645 LDA #$0D E350- 20 47 EA 2650 JSR OUTCHR E353- A9 0A 2655 LDA #$0A E355- 20 47 EA 2660 JSR OUTCHR E358- 68 2665 PLA E359- 60 2670 RTS E35A- AE 56 E0 2675 DELAY LDX TV E35D- 20 88 E1 2680 DL1 JSR SAVER E360- A9 FF 2685 LDA #$FF E362- 8D 39 E0 2690 STA SCR9 E365- 8D 38 E0 2695 STA SCR8 E368- 0E 38 E0 2700 DLY1 ASL SCR8 E36B- 2E 39 E0 2705 ROL SCR9 E36E- CA 2710 DEX E36F- D0 F7 2715 BNE DLY1 E371- 20 03 E9 2720 DLY2 JSR IJSCNV E374- 20 86 E3 2725 JSR INSTAT E377- B0 0A 2730 BCS DLYO E379- EE 38 E0 2735 INC SCR8 E37C- D0 03 2740 BNE =+4 E37E- EE 39 E0 2745 INC SCR9 E381- D0 EE 2750 BNE DLY2 E383- 4C BE E1 2755 DLYO JMP RESXF 2760 2765 ; INSTAT - SEE IF KEY DOWN 2770 E386- 20 92 E3 2775 INSTAT JSR INJISV E389- 90 06 2780 BCC INST2 E38B- 20 92 E3 2785 INST1 JSR INJISV E38E- B0 FB 2790 BCS INST1 E390- 38 2795 SEC E391- 60 2800 INST2 RTS E392- 6C 67 E0 2805 INJISV JMP (INSVEC+1) 2810 2815 ; EXECUTE BLOCKS BEGIN HERE 2820 2825 BZPARM E395- C9 52 2830 REGZ CMP #'R E397- D0 5A 2835 BNE GOZ E399- 20 4D E3 2840 RGBACK JSR CRLF E39C- A9 50 2845 LDA #'P E39E- 20 47 EA 2850 JSR OUTCHR E3A1- 20 42 E3 2855 JSR SPACE E3A4- 20 EE E2 2860 JSR OUTPC E3A7- 20 D6 E1 2865 JSR COMINB E3AA- B0 13 2870 BCS NH3 E3AC- 8D 34 E0 2875 STA SCR4 E3AF- 20 D9 E1 2880 JSR INBYTE E3B2- B0 0B 2885 BCS NH3 E3B4- 8D 59 E0 2890 STA PCLR E3B7- AD 34 E0 2895 LDA SCR4 E3BA- 8D 5A E0 2900 STA PCHR E3BD- 90 09 2905 BCC M34 E3BF- D0 02 2910 NH3 BNE NOTCR E3C1- 18 2915 EXITRG CLC E3C2- 60 2920 EXRGP1 RTS E3C3- 20 CB E1 2925 NOTCR JSR ADVCK E3C6- D0 FA 2930 BNE EXRGP1 E3C8- A0 00 2935 M34 LDY #0 E3CA- C8 2940 M35 INY E3CB- C0 06 2945 CPY #6 E3CD- F0 CA 2950 BEQ RGBACK E3CF- 20 4D E3 2955 JSR CRLF E3D2- B9 99 EF 2960 NXTRG LDA RGNAM-1,Y E3D5- 20 47 EA 2965 JSR OUTCHR E3D8- 20 42 E3 2970 JSR SPACE E3DB- 20 3F E3 2975 JSR SPC2 E3DE- B9 5A E0 2980 LDA PCHR,Y E3E1- 20 D3 E1 2985 JSR OBCMIN E3E4- B0 05 2990 BCS M36 E3E6- 99 5A E0 2995 STA PCHR,Y E3E9- 90 DF 3000 BCC M35 E3EB- F0 D4 3005 M36 BEQ EXITRG E3ED- 20 CB E1 3010 JSR ADVCK E3F0- F0 D8 3015 BEQ M35 E3F2- 60 3020 RTS E3F3- C9 47 3025 GOZ CMP #'G E3F5- D0 20 3030 BNE LPZB E3F7- 20 4D E3 3035 GO2 JSR CRLF E3FA- 20 9C EB 3040 GO1ENT JSR NACCES E3FD- AE 5B E0 3045 LDX SR E400- 9A 3050 TXS E401- AD 5A E0 3055 LDA PCHR E404- 48 3060 PHA E405- AD 59 E0 3065 LDA PCLR E408- 48 3070 NR10 PHA E409- AD 5C E0 3075 LDA FR E40C- 48 3080 PHA E40D- AC 5F E0 3085 LDY YR E410- AE 5E E0 3090 LDX XR E413- AD 5D E0 3095 LDA AR E416- 40 3100 RTI E417- C9 11 3105 LPZB CMP #$11 E419- F0 03 3110 BEQ =+4 E41B- 4C A7 E4 3115 JMP DEPZ E41E- 20 88 E1 3120 JSR SAVER E421- 20 4D E3 3125 JSR CRLF E424- A9 00 3130 LDA #0 E426- 8D 52 E0 3135 STA ERCNT E429- 20 2E E3 3140 LPZ JSR ZERCK E42C- 20 1B EA 3145 LP1 JSR INCHR E42F- C9 3B 3150 CMP #$3B E431- D0 F9 3155 BNE LP1 E433- 20 A1 E4 3160 JSR LDBYTE E436- B0 56 3165 BCS TAPERR E438- D0 09 3170 BNE NUREC E43A- AD 52 E0 3175 LDA ERCNT E43D- F0 01 3180 BEQ =+2 E43F- 38 3185 EXITLP SEC E440- 4C B8 E1 3190 JMP RESXAF E443- 8D 3D E0 3195 NUREC STA RC E446- 20 A1 E4 3200 JSR LDBYTE E449- B0 43 3205 BCS TAPERR E44B- 85 FF 3210 STA *$FF E44D- 20 A1 E4 3215 JSR LDBYTE E450- B0 D7 3220 BCS LPZ E452- 85 FE 3225 STA *$FE E454- 20 A1 E4 3230 MORED JSR LDBYTE E457- B0 35 3235 BCS TAPERR E459- A0 00 3240 LDY #0 E45B- 91 FE 3245 STA ($FE),Y E45D- D1 FE 3250 CMP ($FE),Y E45F- F0 0C 3255 BEQ LPGD E461- AD 52 E0 3260 LDA ERCNT E464- 29 0F 3265 AND #$0F E466- C9 0F 3270 CMP #$0F E468- F0 03 3275 BEQ =+4 E46A- EE 52 E0 3280 INC ERCNT E46D- 20 B2 E2 3285 LPGD JSR INCCMP E470- CE 3D E0 3290 DEC RC E473- D0 DF 3295 BNE MORED E475- 20 D9 E1 3300 JSR INBYTE E478- B0 14 3305 BCS TAPERR E47A- CD 37 E0 3310 CMP SCR7 E47D- D0 0C 3315 BNE BADDY E47F- 20 D9 E1 3320 JSR INBYTE E482- B0 0A 3325 BCS TAPERR E484- CD 36 E0 3330 CMP SCR6 E487- F0 A0 3335 BEQ LPZ E489- D0 03 3340 BNE TAPERR E48B- 20 D9 E1 3345 BADDY JSR INBYTE E48E- AD 52 E0 3350 TAPERR LDA ERCNT E491- 29 F0 3355 AND #$F0 E493- C9 F0 3360 CMP #$F0 E495- F0 92 3365 BEQ LPZ E497- AD 52 E0 3370 LDA ERCNT E49A- 69 10 3375 ADC #$10 E49C- 8D 52 E0 3380 STA ERCNT E49F- D0 88 3385 BNE LPZ E4A1- 20 D9 E1 3390 LDBYTE JSR INBYTE E4A4- 4C DD E2 3395 JMP CHKSAD E4A7- C9 44 3400 DEPZ CMP #'D E4A9- D0 03 3405 BNE MEMZ E4AB- 4C E1 E4 3410 JMP NEWLN E4AE- C9 4D 3415 MEMZ CMP #'M E4B0- D0 03 3420 BNE VERZ E4B2- 4C 17 E5 3425 JMP NEWLOC E4B5- C9 56 3430 VERZ CMP #'V E4B7- D0 0D 3435 BNE L1BZ E4B9- A5 FE 3440 LDA *$FE E4BB- 8D 4A E0 3445 STA P3L E4BE- A5 FF 3450 LDA *$FF E4C0- 8D 4B E0 3455 STA P3H E4C3- 4C 9A E5 3460 JMP VER1+4 E4C6- C9 12 3465 L1BZ CMP #$12 E4C8- D0 05 3470 BNE L2ZB E4CA- A0 00 3475 LDY #0 E4CC- 4C 78 EC 3480 L1J JMP LENTRY E4CF- C9 13 3485 L2ZB CMP #$13 E4D1- D0 04 3490 BNE EZPARM E4D3- A0 80 3495 LDY #$80 E4D5- D0 F5 3500 BNE L1J E4D7- 6C 6D E0 3505 EZPARM JMP (URCVEC+1) 3510 B1PARM 3515 3520 ; 1 PARAMETER COMMAND EXEC BLOCKS 3525 E4DA- C9 44 3530 DEP1 CMP #'D E4DC- D0 32 3535 BNE MEM1 E4DE- 20 A7 E2 3540 JSR P3SCR E4E1- 20 16 E3 3545 NEWLN JSR CRLFSZ E4E4- A0 00 3550 LDY #0 E4E6- A2 08 3555 LDX #8 E4E8- 20 42 E3 3560 DEPBYT JSR SPACE E4EB- 20 D9 E1 3565 JSR INBYTE E4EE- B0 11 3570 BCS NH41 E4F0- 91 FE 3575 STA ($FE),Y E4F2- D1 FE 3580 CMP ($FE),Y E4F4- F0 03 3585 BEQ DEPN E4F6- 20 20 E3 3590 JSR OUTQM E4F9- 20 B2 E2 3595 DEPN JSR INCCMP E4FC- CA 3600 DEX E4FD- D0 E9 3605 BNE DEPBYT E4FF- F0 E0 3610 BEQ NEWLN E501- F0 0B 3615 NH41 BEQ DEPEC E503- C9 20 3620 CMP #$20 E505- D0 4C 3625 BNE DEPES E507- 70 F0 3630 BVS DEPN E509- 20 42 E3 3635 JSR SPACE E50C- 10 EB 3640 BPL DEPN E50E- 18 3645 DEPEC CLC E50F- 60 3650 RTS E510- C9 4D 3655 MEM1 CMP #'M E512- D0 65 3660 BNE GO1 E514- 20 A7 E2 3665 JSR P3SCR E517- 20 16 E3 3670 NEWLOC JSR CRLFSZ E51A- 20 3A E3 3675 JSR COMMA E51D- A0 00 3680 LDY #0 E51F- B1 FE 3685 LDA ($FE),Y E521- 20 D3 E1 3690 JSR OBCMIN E524- B0 11 3695 BCS NH42 E526- A0 00 3700 LDY #0 E528- 91 FE 3705 STA ($FE),Y E52A- D1 FE 3710 CMP ($FE),Y E52C- F0 03 3715 BEQ NXTLOC E52E- 20 20 E3 3720 JSR OUTQM E531- 20 B2 E2 3725 NXTLOC JSR INCCMP E534- 18 3730 CLC E535- 90 E0 3735 BCC NEWLOC E537- F0 3E 3740 NH42 BEQ EXITM1 E539- 50 04 3745 BVC =+5 E53B- C9 3C 3750 CMP #'< E53D- F0 D8 3755 BEQ NEWLOC E53F- C9 20 3760 CMP #$20 E541- F0 EE 3765 BEQ NXTLOC E543- C9 3E 3770 CMP #'> E545- F0 EA 3775 BEQ NXTLOC E547- C9 2B 3780 CMP #'+ E549- F0 10 3785 BEQ LOCP8 E54B- C9 3C 3790 CMP #'< E54D- F0 06 3795 BEQ PRVLOC E54F- C9 2D 3800 CMP #'- E551- F0 16 3805 BEQ LOCM8 E553- 38 3810 DEPES SEC E554- 60 3815 RTS E555- 20 BE E2 3820 PRVLOC JSR DECCMP E558- 18 3825 CLC E559- 90 BC 3830 BCC NEWLOC E55B- A5 FE 3835 LOCP8 LDA *$FE E55D- 18 3840 CLC E55E- 69 08 3845 ADC #$08 E560- 85 FE 3850 STA *$FE E562- 90 02 3855 BCC M42 E564- E6 FF 3860 INC *$FF E566- 18 3865 M42 CLC E567- 90 AE 3870 BCC NEWLOC E569- A5 FE 3875 LOCM8 LDA *$FE E56B- 38 3880 SEC E56C- E9 08 3885 SBC #$08 E56E- 85 FE 3890 STA *$FE E570- B0 02 3895 BCS M43 E572- C6 FF 3900 DEC *$FF E574- 18 3905 M43 CLC E575- 90 A0 3910 BCC NEWLOC E577- 18 3915 EXITM1 CLC E578- 60 3920 RTS E579- C9 47 3925 GO1 CMP #'G E57B- D0 19 3930 BNE VER1 E57D- 20 4D E3 3935 JSR CRLF E580- 20 9C EB 3940 JSR NACCES E583- A2 FF 3945 LDX #$FF E585- 9A 3950 TXS E586- A9 7F 3955 LDA #$7F E588- 48 3960 PHA E589- A9 FF 3965 LDA #$FF E58B- 48 3970 PHA E58C- AD 4B E0 3975 LDA P3H E58F- 48 3980 PHA E590- AD 4A E0 3985 LDA P3L E593- 4C 08 E4 3990 JMP NR10 E596- C9 56 3995 VER1 CMP #'V E598- D0 1A 4000 BNE JUMP1 E59A- AD 4A E0 4005 LDA P3L E59D- 8D 4C E0 4010 STA P2L E5A0- 18 4015 CLC E5A1- 69 07 4020 ADC #$07 E5A3- 8D 4A E0 4025 STA P3L E5A6- AD 4B E0 4030 LDA P3H E5A9- 8D 4D E0 4035 STA P2H E5AC- 69 00 4040 ADC #0 E5AE- 8D 4B E0 4045 STA P3H E5B1- 4C 40 E6 4050 JMP VER2+4 E5B4- C9 4A 4055 JUMP1 CMP #'J E5B6- D0 1F 4060 BNE L11B E5B8- AD 4A E0 4065 LDA P3L E5BB- C9 08 4070 CMP #8 E5BD- B0 26 4075 BCS JUM2 E5BF- 20 9C EB 4080 JSR NACCES E5C2- 0A 4085 ASL A E5C3- A8 4090 TAY E5C4- A2 FF 4095 LDX #$FF E5C6- 9A 4100 TXS E5C7- A9 7F 4105 LDA #$7F E5C9- 48 4110 PHA E5CA- A9 FF 4115 LDA #$FF E5CC- 48 4120 PHA E5CD- B9 21 E0 4125 LDA JTABLE+1,Y E5D0- 48 4130 PHA E5D1- B9 20 E0 4135 LDA JTABLE,Y E5D4- 4C 08 E4 4140 JMP NR10 E5D7- C9 12 4145 L11B CMP #$12 E5D9- D0 14 4150 BNE L21B E5DB- A0 00 4155 LDY #0 E5DD- AD 4A E0 4160 L11C LDA P3L E5E0- C9 FF 4165 CMP #$FF E5E2- D0 02 4170 BNE =+3 E5E4- 38 4175 SEC E5E5- 60 4180 JUM2 RTS E5E6- 20 08 E2 4185 JSR PSHOVE E5E9- 20 08 E2 4190 L11D JSR PSHOVE E5EC- 4C 78 EC 4195 JMP LENTRY E5EF- C9 13 4200 L21B CMP #$13 E5F1- D0 04 4205 BNE WPR1B E5F3- A0 80 4210 LDY #$80 E5F5- D0 E6 4215 BNE L11C E5F7- C9 57 4220 WPR1B CMP #'W E5F9- D0 1B 4225 BNE E1PARM E5FB- AD 4A E0 4230 LDA P3L E5FE- 29 11 4235 AND #$11 E600- C9 08 4240 CMP #8 E602- 2A 4245 ROL A E603- 4E 4B E0 4250 LSR P3H E606- 2A 4255 ROL A E607- 0A 4260 ASL A E608- 29 0F 4265 AND #$0F E60A- 49 0F 4270 EOR #$0F E60C- 8D 01 AC 4275 STA OR3A E60F- A9 0F 4280 LDA #$0F E611- 8D 03 AC 4285 STA DDR3A E614- 18 4290 CLC E615- 60 4295 RTS E616- 4C 27 E8 4300 E1PARM JMP CALC3 4305 B2PARM 4310 4315 ; 2 PARAMETER EXEC BLOCKS 4320 E619- C9 10 4325 STD2 CMP #$10 E61B- D0 12 4330 BNE MEM2 E61D- 20 A7 E2 4335 JSR P3SCR E620- AD 4D E0 4340 LDA P2H E623- A0 01 4345 LDY #1 E625- 91 FE 4350 STA ($FE),Y E627- 88 4355 DEY E628- AD 4C E0 4360 LDA P2L E62B- 91 FE 4365 STA ($FE),Y E62D- 18 4370 CLC E62E- 60 4375 RTS E62F- C9 4D 4380 MEM2 CMP #'M E631- D0 09 4385 BNE VER2 E633- AD 4C E0 4390 LDA P2L E636- 8D 4E E0 4395 STA P1L E639- 4C 08 E8 4400 JMP MEM3C E63C- C9 56 4405 VER2 CMP #'V E63E- D0 48 4410 BNE L12B E640- 20 9C E2 4415 JSR P2SCR E643- 20 2E E3 4420 JSR ZERCK E646- 20 16 E3 4425 VADDR JSR CRLFSZ E649- A2 08 4430 LDX #8 E64B- 20 42 E3 4435 V2 JSR SPACE E64E- A0 00 4440 LDY #0 E650- B1 FE 4445 LDA ($FE),Y E652- 20 DD E2 4450 JSR CHKSAD E655- 20 FA E2 4455 JSR OUTBYT E658- 20 B2 E2 4460 JSR INCCMP E65B- 70 11 4465 BVS V1 E65D- F0 02 4470 BEQ =+3 E65F- B0 0D 4475 BCS V1 E661- CA 4480 DEX E662- D0 E7 4485 BNE V2 E664- 20 25 E3 4490 VOCK JSR OCMCK E667- 20 86 E3 4495 JSR INSTAT E66A- 90 DA 4500 BCC VADDR E66C- 18 4505 CLC E66D- 60 4510 RTS E66E- 20 BE E2 4515 V1 JSR DECCMP E671- E0 08 4520 CPX #8 E673- F0 03 4525 BEQ =+4 E675- E8 4530 INX E676- 10 F6 4535 BPL V1 E678- 20 25 E3 4540 JSR OCMCK E67B- 20 4D E3 4545 JSR CRLF E67E- 20 42 E3 4550 JSR SPACE E681- AE 37 E0 4555 LDX SCR7 E684- 20 F4 E2 4560 JSR OUTXAH E687- 60 4565 RTS E688- C9 12 4570 L12B CMP #$12 E68A- D0 0C 4575 BNE SP2B E68C- AD 4C E0 4580 L12C LDA P2L E68F- C9 FF 4585 CMP #$FF E691- D0 F4 4590 BNE L12B-1 E693- A0 00 4595 LDY #0 E695- 4C E9 E5 4600 JMP L11D E698- C9 1C 4605 SP2B CMP #$1C E69A- D0 75 4610 BNE E2PARM E69C- 18 4615 CLC E69D- 20 88 E1 4620 JSR SAVER E6A0- 20 9C E2 4625 JSR P2SCR E6A3- 20 FA E6 4630 SP2C JSR DIFFZ E6A6- B0 03 4635 BCS SP2D E6A8- 4C C4 E1 4640 SPEXIT JMP RESALL E6AB- 20 4D E3 4645 SP2D JSR CRLF E6AE- CD 58 E0 4650 CMP MAXRC E6B1- 90 05 4655 BCC SP2E E6B3- AD 58 E0 4660 LDA MAXRC E6B6- B0 02 4665 BCS SP2F E6B8- 69 01 4670 SP2E ADC #1 E6BA- 8D 3D E0 4675 SP2F STA RC E6BD- A9 3B 4680 LDA #$3B E6BF- 20 47 EA 4685 JSR OUTCHR E6C2- AD 3D E0 4690 LDA RC E6C5- 20 F4 E6 4695 JSR SVBYTE E6C8- A5 FF 4700 LDA *$FF E6CA- 20 F4 E6 4705 JSR SVBYTE E6CD- A5 FE 4710 LDA *$FE E6CF- 20 F4 E6 4715 JSR SVBYTE E6D2- A0 00 4720 MORED2 LDY #$00 E6D4- B1 FE 4725 LDA ($FE),Y E6D6- 20 F4 E6 4730 JSR SVBYTE E6D9- 20 86 E3 4735 JSR INSTAT E6DC- B0 CA 4740 BCS SPEXIT E6DE- 20 B2 E2 4745 JSR INCCMP E6E1- 70 C5 4750 BVS SPEXIT E6E3- CE 3D E0 4755 DEC RC E6E6- D0 EA 4760 BNE MORED2 E6E8- AE 37 E0 4765 LDX SCR7 E6EB- AD 36 E0 4770 LDA SCR6 E6EE- 20 F4 E2 4775 JSR OUTXAH E6F1- 18 4780 CLC E6F2- 90 AF 4785 BCC SP2C E6F4- 20 DD E2 4790 SVBYTE JSR CHKSAD E6F7- 4C FA E2 4795 JMP OUTBYT E6FA- 20 2E E3 4800 DIFFZ JSR ZERCK E6FD- AD 4A E0 4805 DIFFL LDA P3L E700- 38 4810 SEC E701- E5 FE 4815 SBC *$FE E703- 48 4820 PHA E704- AD 4B E0 4825 LDA P3H E707- E5 FF 4830 SBC *$FF E709- F0 04 4835 BEQ DIFF1 E70B- 68 4840 PLA E70C- A9 FF 4845 LDA #$FF E70E- 60 4850 RTS E70F- 68 4855 DIFF1 PLA E710- 60 4860 DIFFL2 RTS E711- 4C 27 E8 4865 E2PARM JMP CALC3 4870 B3PARM 4875 4880 ; 3 PARAMETER COMMAND EXEC BLOCKS 4885 E714- C9 46 4890 FILL3 CMP #'F E716- D0 21 4895 BNE BLK3 E718- 20 9C E2 4900 JSR P2SCR E71B- A9 00 4905 LDA #0 E71D- 8D 52 E0 4910 STA ERCNT E720- AD 4E E0 4915 LDA P1L E723- A0 00 4920 F1 LDY #0 E725- 91 FE 4925 STA ($FE),Y E727- D1 FE 4930 CMP ($FE),Y E729- F0 03 4935 BEQ F3 E72B- 20 C1 E7 4940 JSR BRTT E72E- 20 B2 E2 4945 F3 JSR INCCMP E731- 70 7C 4950 BVS B1 E733- F0 EE 4955 BEQ F1 E735- 90 EC 4960 BCC F1 E737- B0 76 4965 F2 BCS B1 E739- C9 42 4970 BLK3 CMP #'B E73B- F0 03 4975 BEQ =+4 E73D- 4C CD E7 4980 JMP S13B E740- A9 00 4985 LDA #0 E742- 8D 52 E0 4990 STA ERCNT E745- 20 9C E2 4995 JSR P2SCR E748- AD 4E E0 5000 LDA P1L E74B- 85 FC 5005 STA *$FC E74D- AD 4F E0 5010 LDA P1H E750- 85 FD 5015 STA *$FD E752- C5 FF 5020 CMP *$FF E754- D0 06 5025 BNE =+7 E756- A5 FC 5030 LDA *$FC E758- C5 FE 5035 CMP *$FE E75A- F0 53 5040 BEQ B1 E75C- B0 14 5045 BCS B2 E75E- 20 B7 E7 5050 BLP JSR BMOVE E761- E6 FC 5055 INC *$FC E763- D0 02 5060 BNE =+3 E765- E6 FD 5065 INC *$FD E767- 20 B2 E2 5070 JSR INCCMP E76A- 70 43 5075 BVS B1 E76C- F0 F0 5080 BEQ BLP E76E- 90 EE 5085 BCC BLP E770- B0 3D 5090 BCS B1 E772- A5 FC 5095 B2 LDA *$FC E774- 18 5100 CLC E775- 6D 4A E0 5105 ADC P3L E778- 85 FC 5110 STA *$FC E77A- A5 FD 5115 LDA *$FD E77C- 6D 4B E0 5120 ADC P3H E77F- 85 FD 5125 STA *$FD E781- 38 5130 SEC E782- A5 FC 5135 LDA *$FC E784- E5 FE 5140 SBC *$FE E786- 85 FC 5145 STA *$FC E788- A5 FD 5150 LDA *$FD E78A- E5 FF 5155 SBC *$FF E78C- 85 FD 5160 STA *$FD E78E- 20 A7 E2 5165 JSR P3SCR E791- AD 4C E0 5170 LDA P2L E794- 8D 4A E0 5175 STA P3L E797- AD 4D E0 5180 LDA P2H E79A- 8D 4B E0 5185 STA P3H E79D- 20 B7 E7 5190 BLP1 JSR BMOVE E7A0- A5 FC 5195 LDA *$FC E7A2- D0 02 5200 BNE =+3 E7A4- C6 FD 5205 DEC *$FD E7A6- C6 FC 5210 DEC *$FC E7A8- 20 BE E2 5215 JSR DECCMP E7AB- 70 02 5220 BVS B1 E7AD- B0 EE 5225 BCS BLP1 E7AF- AD 52 E0 5230 B1 LDA ERCNT E7B2- 38 5235 SEC E7B3- D0 01 5240 BNE =+2 E7B5- 18 5245 CLC E7B6- 60 5250 RTS E7B7- A0 00 5255 BMOVE LDY #0 E7B9- B1 FE 5260 LDA ($FE),Y E7BB- 91 FC 5265 STA ($FC),Y E7BD- D1 FC 5270 CMP ($FC),Y E7BF- F0 0B 5275 BEQ BRT E7C1- AC 52 E0 5280 BRTT LDY ERCNT E7C4- C0 FF 5285 CPY #$FF E7C6- F0 04 5290 BEQ =+5 E7C8- C8 5295 INY E7C9- 8C 52 E0 5300 STY ERCNT E7CC- 60 5305 BRT RTS E7CD- C9 1D 5310 S13B CMP #$1D E7CF- D0 15 5315 BNE S23B E7D1- A0 00 5320 LDY #$0 E7D3- AD 4E E0 5325 S13C LDA P1L E7D6- D0 02 5330 BNE =+3 E7D8- 38 5335 SEC E7D9- 60 5340 RTS E7DA- C9 FF 5345 CMP #$FF E7DC- D0 02 5350 BNE =+3 E7DE- 38 5355 S1NG SEC E7DF- 60 5360 RTS E7E0- 20 93 E2 5365 JSR INCP3 E7E3- 4C 87 EE 5370 JMP SENTRY E7E6- C9 1E 5375 S23B CMP #$1E E7E8- D0 04 5380 BNE L23P E7EA- A0 80 5385 LDY #$80 E7EC- D0 E5 5390 BNE S13C E7EE- C9 13 5395 L23P CMP #$13 E7F0- D0 0F 5400 BNE MEM3 E7F2- AD 4E E0 5405 LDA P1L E7F5- C9 FF 5410 CMP #$FF E7F7- D0 E5 5415 BNE S1NG E7F9- 20 93 E2 5420 JSR INCP3 E7FC- A0 80 5425 LDY #$80 E7FE- 4C 78 EC 5430 JMP LENTRY E801- C9 4D 5435 MEM3 CMP #'M E803- D0 22 5440 BNE CALC3 E805- 20 9C E2 5445 JSR P2SCR E808- AD 4E E0 5450 MEM3C LDA P1L E80B- A0 00 5455 LDY #0 E80D- D1 FE 5460 CMP ($FE),Y E80F- F0 0B 5465 BEQ MEM3E E811- 20 B2 E2 5470 MEM3D JSR INCCMP E814- 70 04 5475 BVS MEM3EX E816- F0 F0 5480 BEQ MEM3C E818- 90 EE 5485 BCC MEM3C E81A- 18 5490 MEM3EX CLC E81B- 60 5495 RTS E81C- 20 17 E5 5500 MEM3E JSR NEWLOC E81F- 90 05 5505 BCC MEM3F E821- C9 47 5510 CMP #'G E823- F0 EC 5515 BEQ MEM3D E825- 38 5520 SEC E826- 60 5525 MEM3F RTS E827- C9 43 5530 CALC3 CMP #'C E829- D0 26 5535 BNE EXE3 E82B- 20 4D E3 5540 C1 JSR CRLF E82E- 20 42 E3 5545 JSR SPACE E831- 18 5550 CLC E832- AD 4E E0 5555 LDA P1L E835- 6D 4C E0 5560 ADC P2L E838- A8 5565 TAY E839- AD 4F E0 5570 LDA P1H E83C- 6D 4D E0 5575 ADC P2H E83F- AA 5580 TAX E840- 38 5585 SEC E841- 98 5590 TYA E842- ED 4A E0 5595 SBC P3L E845- A8 5600 TAY E846- 8A 5605 TXA E847- ED 4B E0 5610 SBC P3H E84A- AA 5615 TAX E84B- 98 5620 TYA E84C- 20 F4 E2 5625 JSR OUTXAH E84F- 18 5630 CLC E850- 60 5635 RTS E851- C9 45 5640 EXE3 CMP #'E E853- D0 57 5645 BNE E3PARM E855- AD 62 E0 5650 LDA INVEC+2 E858- CD 73 E0 5655 CMP EXEVEC+1 E85B- F0 15 5660 BEQ PTRIN E85D- 8D 3B E0 5665 STA SCRA+1 E860- AD 61 E0 5670 LDA INVEC+1 E863- 8D 3A E0 5675 STA SCRA E866- AD 72 E0 5680 LDA EXEVEC E869- 8D 61 E0 5685 STA INVEC+1 E86C- AD 73 E0 5690 LDA EXEVEC+1 E86F- 8D 62 E0 5695 STA INVEC+2 E872- AD 4B E0 5700 PTRIN LDA P3H E875- 85 FB 5705 STA *$FB E877- AD 4A E0 5710 LDA P3L E87A- 85 FA 5715 STA *$FA E87C- 18 5720 CLC E87D- 60 5725 RTS E87E- 20 88 E1 5730 RIN JSR SAVER E881- A0 00 5735 LDY #$0 E883- B1 FA 5740 LDA ($FA),Y E885- F0 12 5745 BEQ RESTIV E887- E6 FA 5750 INC *$FA E889- D0 02 5755 BNE =+3 E88B- E6 FB 5760 INC *$FB E88D- 2C 53 E0 5765 BIT TECHO E890- 10 03 5770 BPL =+4 E892- 20 47 EA 5775 JSR OUTCHR E895- 18 5780 CLC E896- 4C B8 E1 5785 JMP RESXAF E899- AD 3A E0 5790 RESTIV LDA SCRA E89C- 8D 61 E0 5795 STA INVEC+1 E89F- AD 3B E0 5800 LDA SCRA+1 E8A2- 8D 62 E0 5805 STA INVEC+2 E8A5- 18 5810 CLC E8A6- 20 1B EA 5815 JSR INCHR E8A9- 4C B8 E1 5820 JMP RESXAF E8AC- 6C 6D E0 5825 E3PARM JMP (URCVEC+1) 5830 5835 ; HEX KEYBOARD I/O 5840 E8AF- 20 88 E1 5845 GETKEY JSR SAVER E8B2- 20 CF E8 5850 JSR GK E8B5- C9 FE 5855 CMP #$FE E8B7- D0 13 5860 BNE EXITGK E8B9- 20 CF E8 5865 JSR GK E8BC- 8A 5870 TXA E8BD- 0A 5875 ASL A E8BE- 0A 5880 ASL A E8BF- 0A 5885 ASL A E8C0- 0A 5890 ASL A E8C1- 8D 3E E0 5895 STA SCRE E8C4- 20 CF E8 5900 JSR GK E8C7- 8A 5905 TXA E8C8- 18 5910 CLC E8C9- 6D 3E E0 5915 ADC SCRE E8CC- 4C B8 E1 5920 EXITGK JMP RESXAF E8CF- A9 00 5925 GK LDA #0 E8D1- 8D 55 E0 5930 STA KSHFL E8D4- 20 03 E9 5935 GK1 JSR IJSCNV E8D7- F0 FB 5940 BEQ GK1 E8D9- 20 2C E9 5945 JSR LRNKEY E8DC- F0 F6 5950 BEQ GK1 E8DE- 48 5955 PHA E8DF- 8A 5960 TXA E8E0- 48 5965 PHA E8E1- 20 72 E9 5970 JSR BEEP E8E4- 20 23 E9 5975 GK2 JSR KEYQ E8E7- D0 FB 5980 BNE GK2 E8E9- 20 9B E9 5985 JSR NOBEEP E8EC- 20 23 E9 5990 JSR KEYQ E8EF- D0 F3 5995 BNE GK2 E8F1- 68 6000 PLA E8F2- AA 6005 TAX E8F3- 68 6010 PLA E8F4- C9 FF 6015 CMP #$FF E8F6- D0 07 6020 BNE EXITG E8F8- A9 19 6025 LDA #$19 E8FA- 8D 55 E0 6030 STA KSHFL E8FD- D0 D5 6035 BNE GK1 E8FF- 60 6040 EXITG RTS E900- 20 C1 E9 6045 HDOUT JSR OUTDSP E903- 6C 70 E0 6050 IJSCNV JMP (SCNVEC+1) E906- A9 09 6055 SCAND LDA #$9 E908- 20 A5 E9 6060 JSR CONFIG E90B- A2 05 6065 LDX #5 E90D- A0 00 6070 SC1 LDY #0 E90F- BD 40 E0 6075 LDA DISBUF,X E912- 8C 00 A4 6080 STY PADA E915- 8E 02 A4 6085 STX PBDA E918- 8D 00 A4 6090 STA PADA E91B- A0 10 6095 LDY #$10 E91D- 88 6100 SC2 DEY E91E- D0 FD 6105 BNE SC2 E920- CA 6110 DEX E921- 10 EA 6115 BPL SC1 E923- 20 A3 E9 6120 KEYQ JSR KSCONF E926- AD 00 A4 6125 LDA PADA E929- 49 7F 6130 EOR #$7F E92B- 60 6135 RTS E92C- 29 3F 6140 LRNKEY AND #$3F E92E- 8D 3F E0 6145 STA SCRF E931- A9 05 6150 LDA #$05 E933- 20 A5 E9 6155 JSR CONFIG E936- AD 02 A4 6160 LDA PBDA E939- 29 07 6165 AND #$07 E93B- 49 07 6170 EOR #$07 E93D- D0 05 6175 BNE LK1 E93F- 2C 00 A4 6180 BIT PADA E942- 30 1A 6185 BMI NOKEY E944- C9 04 6190 LK1 CMP #$04 E946- 90 02 6195 BCC LK2 E948- A9 03 6200 LDA #$03 E94A- 0A 6205 LK2 ASL A E94B- 0A 6210 ASL A E94C- 0A 6215 ASL A E94D- 0A 6220 ASL A E94E- 0A 6225 ASL A E94F- 0A 6230 ASL A E950- 18 6235 CLC E951- 6D 3F E0 6240 ADC SCRF E954- A2 19 6245 LDX #$19 E956- DD D6 EB 6250 LK3 CMP SYM,X E959- F0 05 6255 BEQ FOUND E95B- CA 6260 DEX E95C- 10 F8 6265 BPL LK3 E95E- E8 6270 NOKEY INX E95F- 60 6275 RTS E960- 8A 6280 FOUND TXA E961- 18 6285 CLC E962- 6D 55 E0 6290 ADC KSHFL E965- AA 6295 TAX E966- BD EF EB 6300 LDA ASCII,X E969- 60 6305 RTS E96A- 20 23 E9 6310 KYSTAT JSR KEYQ E96D- 18 6315 CLC E96E- F0 01 6320 BEQ =+2 E970- 38 6325 SEC E971- 60 6330 RTS E972- 20 88 E1 6335 BEEP JSR SAVER E975- A9 0D 6340 BEEPP3 LDA #$0D E977- 20 A5 E9 6345 BEEPP5 JSR CONFIG E97A- A2 70 6350 LDX #$70 E97C- A9 08 6355 BE1 LDA #8 E97E- 8D 02 A4 6360 STA PBDA E981- 20 95 E9 6365 JSR BE2 E984- A9 06 6370 LDA #6 E986- 8D 02 A4 6375 STA PBDA E989- 20 95 E9 6380 JSR BE2 E98C- CA 6385 DEX E98D- D0 ED 6390 BNE BE1 E98F- 20 A3 E9 6395 JSR KSCONF E992- 4C C4 E1 6400 JMP RESALL E995- A0 1A 6405 BE2 LDY #$1A E997- 88 6410 BE3 DEY E998- D0 FD 6415 BNE BE3 E99A- 60 6420 RTS E99B- 20 88 E1 6425 NOBEEP JSR SAVER E99E- A9 01 6430 LDA #$01 E9A0- 4C 77 E9 6435 JMP BEEPP5 E9A3- A9 01 6440 KSCONF LDA #$1 E9A5- 20 88 E1 6445 CONFIG JSR SAVER E9A8- A0 01 6450 LDY #$01 E9AA- AA 6455 TAX E9AB- BD C8 EB 6460 CON1 LDA VALSP2,X E9AE- 99 02 A4 6465 STA PBDA,Y E9B1- BD C6 EB 6470 LDA VALS,X E9B4- 99 00 A4 6475 STA PADA,Y E9B7- CA 6480 DEX E9B8- 88 6485 DEY E9B9- 10 F0 6490 BPL CON1 E9BB- 4C C4 E1 6495 JMP RESALL E9BE- 20 AF E8 6500 HKEY JSR GETKEY E9C1- 20 88 E1 6505 OUTDSP JSR SAVER E9C4- 29 7F 6510 AND #$7F E9C6- C9 07 6515 CMP #$07 E9C8- D0 03 6520 BNE NBELL E9CA- 4C 75 E9 6525 JMP BEEPP3 E9CD- 20 06 EA 6530 NBELL JSR TEXT E9D0- C9 2C 6535 CMP #$2C E9D2- D0 0A 6540 BNE OUD1 E9D4- AD 45 E0 6545 LDA RDIG E9D7- 09 80 6550 ORA #$80 E9D9- 8D 45 E0 6555 STA RDIG E9DC- D0 25 6560 BNE EXITOD E9DE- A2 3A 6565 OUD1 LDX #$3A E9E0- DD EF EB 6570 OUD2 CMP ASCIM1,X E9E3- F0 05 6575 BEQ GETSGS E9E5- CA 6580 DEX E9E6- D0 F8 6585 BNE OUD2 E9E8- F0 19 6590 BEQ EXITOD E9EA- BD 29 EC 6595 GETSGS LDA SEGSM1,X E9ED- C9 F0 6600 CMP #$F0 E9EF- F0 12 6605 BEQ EXITOD E9F1- A2 00 6610 LDX #0 E9F3- 48 6615 PHA E9F4- BD 41 E0 6620 OUD3 LDA DISBUF+1,X E9F7- 9D 40 E0 6625 STA DISBUF,X E9FA- E8 6630 INX E9FB- E0 05 6635 CPX #5 E9FD- D0 F5 6640 BNE OUD3 E9FF- 68 6645 PLA EA00- 8D 45 E0 6650 STA RDIG EA03- 4C C4 E1 6655 EXITOD JMP RESALL EA06- 48 6660 TEXT PHA EA07- 8A 6665 TXA EA08- 48 6670 PHA EA09- A2 1E 6675 LDX #$1E EA0B- BD 00 E0 6680 TXTMOV LDA SCPBUF,X EA0E- 9D 01 E0 6685 STA SCPBUF+1,X EA11- CA 6690 DEX EA12- 10 F7 6695 BPL TXTMOV EA14- 68 6700 PLA EA15- AA 6705 TAX EA16- 68 6710 PLA EA17- 8D 00 E0 6715 STA SCPBUF EA1A- 60 6720 RTS 6725 6730 ; TERMINAL I/O 6735 EA1B- 20 88 E1 6740 INCHR JSR SAVER EA1E- 20 41 EA 6745 JSR INJINV EA21- 29 7F 6750 AND #$7F EA23- C9 61 6755 CMP #$61 EA25- 90 06 6760 BCC INRT1 EA27- C9 7B 6765 CMP #$7B EA29- B0 02 6770 BCS INRT1 EA2B- 29 DF 6775 AND #$DF EA2D- C9 0F 6780 INRT1 CMP #$0F EA2F- D0 0B 6785 BNE INRT2 EA31- AD 53 E0 6790 LDA TECHO EA34- 49 40 6795 EOR #$40 EA36- 8D 53 E0 6800 STA TECHO EA39- 18 6805 CLC EA3A- 90 E2 6810 BCC INCHR+3 EA3C- C9 0D 6815 INRT2 CMP #$0D EA3E- 4C B8 E1 6820 JMP RESXAF EA41- 6C 61 E0 6825 INJINV JMP (INVEC+1) EA44- 20 09 E3 6830 NBASOC JSR NIBASC EA47- 20 88 E1 6835 OUTCHR JSR SAVER EA4A- 2C 53 E0 6840 BIT TECHO EA4D- 70 03 6845 BVS =+4 EA4F- 20 55 EA 6850 JSR INJOUV EA52- 4C C4 E1 6855 JMP RESALL EA55- 6C 64 E0 6860 INJOUV JMP (OUTVEC+1) EA58- 20 88 E1 6865 INTCHR JSR SAVER EA5B- A9 00 6870 LDA #0 EA5D- 85 F9 6875 STA *$F9 EA5F- AD 02 A4 6880 LOOK LDA PBDA EA62- 2D 54 E0 6885 AND TOUTFL EA65- 38 6890 SEC EA66- E9 40 6895 SBC #$40 EA68- 90 F5 6900 BCC LOOK EA6A- 20 E9 EA 6905 TIN JSR DLYH EA6D- AD 02 A4 6910 LDA PBDA EA70- 2D 54 E0 6915 AND TOUTFL EA73- 38 6920 SEC EA74- E9 40 6925 SBC #$40 EA76- 2C 53 E0 6930 BIT TECHO EA79- 10 06 6935 BPL DMY1 EA7B- 20 D4 EA 6940 JSR OUT EA7E- 4C 87 EA 6945 JMP SAVE EA81- A0 07 6950 DMY1 LDY #7 EA83- 88 6955 TLP1 DEY EA84- D0 FD 6960 BNE TLP1 EA86- EA 6965 NOP EA87- 66 F9 6970 SAVE ROR *$F9 EA89- 20 E9 EA 6975 JSR DLYH EA8C- 48 6980 PHA EA8D- B5 00 6985 LDA *00,X EA8F- 68 6990 PLA EA90- 90 D8 6995 BCC TIN EA92- 20 E9 EA 7000 JSR DLYH EA95- 18 7005 CLC EA96- 20 D4 EA 7010 JSR OUT EA99- A5 F9 7015 LDA *$F9 EA9B- 49 FF 7020 EOR #$FF EA9D- 4C B8 E1 7025 JMP RESXAF EAA0- 85 F9 7030 TOUT STA *$F9 EAA2- 20 88 E1 7035 JSR SAVER EAA5- 20 E9 EA 7040 JSR DLYH EAA8- A9 30 7045 LDA #$30 EAAA- 8D 03 A4 7050 STA PBDA+1 EAAD- A5 F9 7055 LDA *$F9 EAAF- A2 0B 7060 LDX #$0B EAB1- 49 FF 7065 EOR #$FF EAB3- 38 7070 SEC EAB4- 20 D4 EA 7075 OUTC JSR OUT EAB7- 20 E6 EA 7080 JSR DLYF EABA- A0 06 7085 LDY #$06 EABC- 88 7090 PHAKE DEY EABD- D0 FD 7095 BNE PHAKE EABF- EA 7100 NOP EAC0- 4A 7105 LSR A EAC1- CA 7110 DEX EAC2- D0 F0 7115 BNE OUTC EAC4- A5 F9 7120 LDA *$F9 EAC6- C9 0D 7125 CMP #$0D EAC8- F0 04 7130 BEQ GOPAD EACA- C9 0A 7135 CMP #$0A EACC- D0 03 7140 BNE LEAVE EACE- 20 32 EB 7145 GOPAD JSR PAD EAD1- 4C C4 E1 7150 LEAVE JMP RESALL EAD4- 48 7155 OUT PHA EAD5- AD 02 A4 7160 LDA PBDA EAD8- 29 0F 7165 AND #$0F EADA- 90 02 7170 BCC OUTONE EADC- 09 30 7175 ORA #$30 EADE- 2D 54 E0 7180 OUTONE AND TOUTFL EAE1- 8D 02 A4 7185 STA PBDA EAE4- 68 7190 PLA EAE5- 60 7195 RTS EAE6- 20 E9 EA 7200 DLYF JSR DLYH EAE9- 08 7205 DLYH PHP EAEA- 48 7210 PHA EAEB- 8A 7215 TXA EAEC- 48 7220 PHA EAED- 98 7225 TYA EAEE- AE 51 E0 7230 LDX SDBYT EAF1- A0 03 7235 DLYX LDY #3 EAF3- 88 7240 DLYY DEY EAF4- D0 FD 7245 BNE DLYY EAF6- CA 7250 DEX EAF7- D0 F8 7255 BNE DLYX EAF9- A8 7260 TAY EAFA- 68 7265 PLA EAFB- AA 7270 TAX EAFC- 68 7275 PLA EAFD- 28 7280 PLP EAFE- 60 7285 RTS EAFF- A9 00 7290 BAUD LDA #0 EB01- A8 7295 TAY EB02- AD 02 A4 7300 SEEK LDA PBDA EB05- 0A 7305 ASL A EB06- B0 FA 7310 BCS SEEK EB08- 20 27 EB 7315 CLEAR JSR INK EB0B- 90 FB 7320 BCC CLEAR EB0D- 20 27 EB 7325 SET JSR INK EB10- B0 FB 7330 BCS SET EB12- 8C 51 E0 7335 STY SDBYT EB15- BD 63 EC 7340 DEAF LDA DECPTS,X EB18- CD 51 E0 7345 CMP SDBYT EB1B- B0 07 7350 BCS AGAIN EB1D- BD 69 EC 7355 LDA STDVAL,X EB20- 8D 51 E0 7360 STA SDBYT EB23- 60 7365 RTS EB24- E8 7370 AGAIN INX EB25- 10 EE 7375 BPL DEAF EB27- C8 7380 INK INY EB28- A2 1C 7385 LDX #$1C EB2A- CA 7390 INK1 DEX EB2B- D0 FD 7395 BNE INK1 EB2D- AD 02 A4 7400 LDA PBDA EB30- 0A 7405 ASL A EB31- 60 7410 RTS EB32- AE 50 E0 7415 PAD LDX PADBIT EB35- 20 E6 EA 7420 PAD1 JSR DLYF EB38- CA 7425 DEX EB39- D0 FA 7430 BNE PAD1 EB3B- 60 7435 RTS EB3C- 20 A3 E9 7440 TSTAT JSR KSCONF EB3F- AD 02 A4 7445 LDA PBDA EB42- 2D 54 E0 7450 AND TOUTFL EB45- 38 7455 SEC EB46- E9 40 7460 SBC #$40 EB48- 60 7465 RTS EB49- FF 7470 .BY $FF 7475 7480 ; RESET - TURN OFF POR, INIT SYS RAM, ENTER MONITOR 7485 EB4A- A2 FF 7490 RESET LDX #$FF EB4C- 9A 7495 TXS EB4D- A9 CC 7500 POR LDA #$CC EB4F- 8D 0C A0 7505 STA PCR1 EB52- A9 04 7510 LDA #4 EB54- 48 7515 PHA EB55- 28 7520 PLP EB56- 20 86 EB 7525 JSR ACCESS EB59- A2 5F 7530 DFTXFR LDX #$5F EB5B- BD A0 EF 7535 LDA DFTBLK,X EB5E- 9D 20 E0 7540 STA RAM,X EB61- CA 7545 DEX EB62- 10 F7 7550 BPL DFTXFR+2 EB64- A9 07 7555 NEWDEV LDA #7 EB66- 20 47 EA 7560 JSR OUTCHR EB69- 20 A3 E9 7565 SWITCH JSR KSCONF EB6C- 20 26 E9 7570 SWLP JSR KEYQ+3 EB6F- D0 0B 7575 BNE MONENT EB71- 2C 02 A4 7580 BIT PBDA EB74- 10 F6 7585 BPL SWLP EB76- 20 B7 EB 7590 JSR VECSW EB79- 20 FF EA 7595 JSR BAUD EB7C- A2 FF 7600 MONENT LDX #$FF EB7E- 9A 7605 TXS EB7F- D8 7610 CLD EB80- 20 86 EB 7615 JSR ACCESS EB83- 4C 03 E0 7620 JMP WARM EB86- 20 88 E1 7625 ACCESS JSR SAVER EB89- AD 01 AC 7630 LDA OR3A EB8C- 09 01 7635 ORA #1 EB8E- 8D 01 AC 7640 ACC1 STA OR3A EB91- AD 03 AC 7645 LDA DDR3A EB94- 09 01 7650 ORA #1 EB96- 8D 03 AC 7655 STA DDR3A EB99- 4C C4 E1 7660 JMP RESALL EB9C- 20 88 E1 7665 NACCES JSR SAVER EB9F- AD 01 AC 7670 LDA OR3A EBA2- 29 FE 7675 AND #$FE EBA4- 18 7680 CLC EBA5- 90 E7 7685 BCC ACC1 EBA7- 20 86 EB 7690 TTY JSR ACCESS EBAA- A9 D5 7695 LDA #$D5 EBAC- 8D 51 E0 7700 STA SDBYT EBAF- AD 54 E0 7705 LDA TOUTFL EBB2- 09 40 7710 ORA #$40 EBB4- 8D 54 E0 7715 STA TOUTFL EBB7- 20 86 EB 7720 VECSW JSR ACCESS EBBA- A2 08 7725 LDX #$8 EBBC- BD 6F EC 7730 SWLP2 LDA TRMTBL,X EBBF- 9D 60 E0 7735 STA INVEC,X EBC2- CA 7740 DEX EBC3- 10 F7 7745 BPL SWLP2 EBC5- 60 7750 RTS 7755 7760 ; TABLES (I/O CONF, KEY CODES, ASCII CODES) 7765 EBC6- 00 80 08 7770 VALS .BY $00 $80 $08 $37 EBC9- 37 EBCA- 00 7F 00 7775 .BY $00 $7F $00 $30 EBCD- 30 EBCE- 00 FF 00 7780 .BY $00 $FF $00 $3F EBD1- 3F EBD2- 00 00 07 7785 .BY $00 $00 $07 $3F EBD5- 3F 7790 7795 VALSP2 .DI VALS+2 7800 SYM 7805 TABLE EBD6- 01 41 81 7810 .BY $01 $41 $81 $C1 $02 $42 $82 $C2 EBD9- C1 02 42 EBDC- 82 C2 EBDE- 04 44 84 7815 .BY $04 $44 $84 $C4 $08 $48 $88 $C8 EBE1- C4 08 48 EBE4- 88 C8 EBE6- 10 50 90 7820 .BY $10 $50 $90 $D0 $20 $60 $A0 $00 EBE9- D0 20 60 EBEC- A0 00 EBEE- 40 7825 .BY $40 7830 7835 ASCIM1 .DI = -1 7840 ASCII EBEF- 30 31 32 7845 .BY $30 $31 $32 $33 $34 $35 $36 $37 EBF2- 33 34 35 EBF5- 36 37 EBF7- 38 39 41 7850 .BY $38 $39 $41 $42 $43 $44 $45 $46 EBFA- 42 43 44 EBFD- 45 46 EBFF- 0D 2D 3E 7855 .BY $0D $2D $3E $FF $47 $52 $4D $13 EC02- FF 47 52 EC05- 4D 13 EC07- 1E 14 15 7860 .BY $1E $14 $15 $16 $17 $18 $19 $1A EC0A- 16 17 18 EC0D- 19 1A EC0F- 1B 4A 56 7865 .BY $1B $4A $56 $FE $42 $43 $44 $45 EC12- FE 42 43 EC15- 44 45 EC17- 46 10 2B 7870 .BY $46 $10 $2B $3C $00 $11 $1C $57 EC1A- 3C 00 11 EC1D- 1C 57 EC1F- 12 1D 2E 7875 .BY $12 $1D $2E $20 $3F $50 $07 $53 EC22- 20 3F 50 EC25- 07 53 EC27- 58 59 7880 .BY $58 $59 7885 SEGSM1 .DI = -1 EC29- 3F 06 5B 7890 .BY $3F $06 $5B $4F $66 $6D $7D $07 EC2C- 4F 66 6D EC2F- 7D 07 EC31- 7F 67 77 7895 .BY $7F $67 $77 $7C $39 $5E $79 $71 EC34- 7C 39 5E EC37- 79 71 EC39- F0 40 70 7900 .BY $F0 $40 $70 $00 $6F $50 $54 $38 EC3C- 00 6F 50 EC3F- 54 38 EC41- 6D 01 08 7905 .BY $6D $01 $08 $09 $30 $36 $5C $63 EC44- 09 30 36 EC47- 5C 63 EC49- 03 1E 72 7910 .BY $03 $1E $72 $77 $7C $39 $5E $79 EC4C- 77 7C 39 EC4F- 5E 79 EC51- 71 6D 76 7915 .BY $71 $6D $76 $46 $00 $38 $6D $1C EC54- 46 00 38 EC57- 6D 1C EC59- 38 6D 80 7920 .BY $38 $6D $80 $00 $53 $73 $49 $6D EC5C- 00 53 73 EC5F- 49 6D EC61- 64 6E 7925 .BY $64 $6E EC63- 97 3D 1F 7930 DECPTS .BY $97 $3D $1F $10 $08 $00 EC66- 10 08 00 7935 EC69- D5 4C 24 7940 STDVAL .BY $D5 $4C $24 $10 $06 $01 EC6C- 10 06 01 7945 EC6F- 4C 58 EA 7950 TRMTBL JMP INTCHR EC72- 4C A0 EA 7955 JMP TOUT EC75- 4C 3C EB 7960 JMP TSTAT 7965 7970 ; DEFALT TABLE 7975 7980 .BA $EFA0 7985 .MC $7FA0 7990 .OS 7995 8000 DFTBLK EFA0- 00 C0 8005 .SE $C000 EFA2- A7 EB 8010 .SI TTY EFA4- 64 EB 8015 .SI NEWDEV EFA6- 00 00 8020 .SE $0000 EFA8- 00 02 8025 .SE $0200 EFAA- 00 03 8030 .SE $0300 EFAC- 00 C8 8035 .SE $C800 EFAE- 00 D0 8040 .SE $D000 EFB0- 04 2C 46 8045 .BY $04 $2C $46 $00 $00 $33 $00 $00 EFB3- 00 00 33 EFB6- 00 00 EFB8- 00 00 00 8050 .BY $00 $00 $00 $00 $5A $00 $00 $00 EFBB- 00 5A 00 EFBE- 00 00 EFC0- 00 00 6D 8055 .BY $00 $00 $6D $6E $86 $06 EFC3- 6E 86 06 EFC6- 00 00 00 8060 .BY $00 $00 $00 $00 EFC9- 00 EFCA- 00 00 8065 .SE $00 $00 EFCC- 00 00 8070 .SE $00 $00 EFCE- 00 00 8075 .SE $00 $00 EFD0- 01 4C 00 8080 .BY $01 $4C $00 $80 $B0 $00 $00 $00 EFD3- 80 B0 00 EFD6- 00 00 EFD8- 10 8085 .BY $10 EFD9- 4A EB 8090 .SI RESET EFDB- FF 00 00 8095 .BY $FF $00 $00 $00 $00 EFDE- 00 00 8100 8105 ; VECTORS 8110 EFE0- 4C BE E9 8115 JMP HKEY EFE3- 4C 00 E9 8120 JMP HDOUT EFE6- 4C 6A E9 8125 JMP KYSTAT EFE9- 4C D1 E1 8130 JMP M1 EFEC- 4C D1 E1 8135 JMP M1 EFEF- 4C 06 E9 8140 JMP SCAND EFF2- 7E E8 8145 .SI RIN EFF4- C0 E0 8150 .SI TRCOFF EFF6- 4A E0 8155 .SI SVBRK EFF8- 29 E0 8160 .SI SVIRQ EFFA- 9B E0 8165 .SI SVNMI EFFC- 4A EB 8170 .SI RESET EFFE- 0F E0 8175 .SI IRQBRK 8180 8185 LENTRY .DE $EC78 8190 SENTRY .DE $EC78+$20F 8195 RGNAM .DE $EF9A 8200 8205 .EN LABEL FILE: / = External # = Line Defined Symbol ;Value Cross-References /DDR1B ;$A002 #0485 **** /LENTRY ;$EC78 #8185 3480 4195 5430 /OR1B ;$A000 #0480 **** /OR3A ;$AC01 #0470 0475 1015 1030 1050 1065 ; 4275 7630 7640 7670 /PADA ;$A400 #0460 6080 6090 6125 6180 6475 /PBDA ;$A402 #0465 6085 6160 6360 6375 6465 ; 6880 6910 7050 7160 7185 7300 ; 7400 7445 7580 /PCR1 ;$A00C #0490 7505 /RGNAM ;$EF9A #8195 2960 /SENTRY ;$EE87 #8190 5370 ACC1 ;$EB8E #7640 7685 ACCESS ;$EB86 #7625 0660 0690 0730 0910 0980 ; 7525 7615 7690 7720 ADVCK ;$E1CB #1715 2925 3010 AGAIN ;$EB24 #7370 7350 AR ;$E05D #0325 0785 0955 3095 ASCII ;$EBEF #7840 6300 ASCIM1 ;$EBEF #7835 6570 ASCNIB ;$E275 #2095 1755 1795 2005 B1 ;$E7AF #5230 4950 4965 5040 5075 5090 ; 5220 B1PARM ;$E4DA #3510 1340 B2 ;$E772 #5095 5045 B2PARM ;$E619 #4305 1355 B3PARM ;$E714 #4870 1370 BADDY ;$E48B #3345 3315 BAUD ;$EAFF #7290 7595 BE1 ;$E97C #6355 6390 BE2 ;$E995 #6405 6365 6380 BE3 ;$E997 #6410 6415 BEEP ;$E972 #6335 5970 BEEPP3 ;$E975 #6340 6525 BEEPP5 ;$E977 #6345 6435 BLK3 ;$E739 #4970 4895 BLP ;$E75E #5050 5080 5085 BLP1 ;$E79D #5190 5225 BMOVE ;$E7B7 #5255 5050 5190 BRT ;$E7CC #5305 5275 BRTT ;$E7C1 #5280 4940 BZPARM ;$E395 #2825 1325 C1 ;$E82B #5540 **** CALC3 ;$E827 #5530 4300 4865 5440 CHKSAD ;$E2DD #2350 3395 4450 4790 CLEAR ;$EB08 #7315 7320 COMINB ;$E1D6 #1745 2865 COMMA ;$E33A #2590 1745 2550 3675 COMPAR ;$E2CA #2310 2255 2265 CON1 ;$E9AB #6460 6490 CONFIG ;$E9A5 #6445 6060 6155 6345 CRCHK ;$E204 #1855 1845 1850 CRLF ;$E34D #2640 0760 1120 1395 2520 2840 ; 2955 3035 3125 3935 4545 4645 ; 5540 CRLFSZ ;$E316 #2520 3545 3670 4425 DBNEW ;$E0F6 #1085 1045 DBOFF ;$E0D3 #1015 0755 0925 0995 DBON ;$E0E4 #1050 1005 DDR3A ;$AC03 #0475 1035 1070 1080 1085 1095 ; 4285 7645 7655 DEAF ;$EB15 #7340 7375 DECCMP ;$E2BE #2280 3820 4515 5215 DECPTS ;$EC63 #7930 7340 DELAY ;$E35A #2675 0965 DEP1 ;$E4DA #3530 **** DEPBYT ;$E4E8 #3560 3605 DEPEC ;$E50E #3645 3615 DEPES ;$E553 #3810 3625 DEPN ;$E4F9 #3595 3585 3630 3640 DEPZ ;$E4A7 #3400 3115 DETBRK ;$E01B #0610 **** DETIRQ ;$E022 #0635 0605 DFTBLK ;$EFA0 #8000 7535 DFTXFR ;$EB59 #7530 7550 DIFF1 ;$E70F #4855 4835 DIFFL ;$E6FD #4805 **** DIFFL2 ;$E710 #4860 **** DIFFZ ;$E6FA #4800 4630 DISBUF ;$E040 #0205 6075 6620 6625 DISPAT ;$E14A #1300 0540 DL1 ;$E35D #2680 **** DLY1 ;$E368 #2700 2715 DLY2 ;$E371 #2720 2750 DLYF ;$EAE6 #7200 7080 7420 DLYH ;$EAE9 #7205 6905 6975 7000 7040 7200 DLYO ;$E383 #2755 2730 DLYX ;$EAF1 #7235 7255 DLYY ;$EAF3 #7240 7245 DMY1 ;$EA81 #6950 6935 E1PARM ;$E616 #4300 4225 E2PARM ;$E711 #4865 4610 E3PARM ;$E8AC #5825 5645 ERCNT ;$E052 #0270 3135 3175 3260 3280 3350 ; 3370 3380 4910 4990 5230 5280 ; 5300 ERMSG ;$E171 #1385 0545 EXE3 ;$E851 #5640 5535 EXEVEC ;$E072 #0400 5655 5680 5690 EXITCP ;$E2D9 #2340 2325 EXITG ;$E8FF #6040 6020 EXITGK ;$E8CC #5920 5860 EXITLP ;$E43F #3185 **** EXITM1 ;$E577 #3915 3740 EXITNB ;$E315 #2515 2505 EXITOD ;$EA03 #6655 6560 6590 6605 EXITRG ;$E3C1 #2915 3005 EXRGP1 ;$E3C2 #2920 2930 EXWRAP ;$E2BD #2275 2270 EZPARM ;$E4D7 #3505 3490 F1 ;$E723 #4920 4955 4960 F2 ;$E737 #4965 **** F3 ;$E72E #4945 4935 FILL3 ;$E714 #4890 **** FOUND ;$E960 #6280 6255 FR ;$E05C #0320 0845 3075 GETC1 ;$E107 #1135 1150 1160 GETCOM ;$E0FF #1120 0535 1140 1250 GETKEY ;$E8AF #5845 6500 GETSGS ;$E9EA #6595 6575 GK ;$E8CF #5925 5850 5865 5900 GK1 ;$E8D4 #5935 5940 5950 6035 GK2 ;$E8E4 #5975 5980 5995 GO1 ;$E579 #3925 3660 GO1ENT ;$E3FA #3040 1010 GO2 ;$E3F7 #3035 **** GOOD ;$E1F3 #1810 1835 GOPAD ;$EACE #7145 7130 GOZ ;$E3F3 #3025 2835 HASHL ;$E12F #1220 1190 HASHUS ;$E133 #1230 1170 1180 1225 HDOUT ;$E900 #6045 8120 HIPN ;$E16E #1375 1305 1365 HKEY ;$E9BE #6500 8115 HSBDRY ;$E032 #0130 **** IDISP ;$E053 #0750 0680 0725 0945 IJSCNV ;$E903 #6050 2720 5935 INBYTE ;$E1D9 #1750 2880 3300 3320 3345 3390 ; 3565 INCCMP ;$E2B2 #2250 3285 3595 3725 4460 4745 ; 4945 5070 5470 INCHR ;$EA1B #6740 1135 1245 1750 1790 1830 ; 1945 3145 5815 6810 INCP3 ;$E293 #2180 5365 5420 INJINV ;$EA41 #6825 6745 INJISV ;$E392 #2805 2775 2785 INJOUV ;$EA55 #6860 6850 INK ;$EB27 #7380 7315 7325 INK1 ;$EB2A #7390 7395 INRT1 ;$EA2D #6780 6760 6770 INRT2 ;$EA3C #6815 6785 INST1 ;$E38B #2785 2790 INST2 ;$E391 #2800 2780 INSTAT ;$E386 #2775 2725 4495 4735 INSVEC ;$E066 #0365 2805 INTCHR ;$EA58 #6865 7950 INVEC ;$E060 #0355 5650 5670 5685 5695 5795 ; 5805 6825 7735 IRQBRK ;$E00F #0570 8175 IRQVEC ;$E07E #0440 **** JTABLE ;$E020 #0115 4125 4135 JUM2 ;$E5E5 #4180 4075 JUMP1 ;$E5B4 #4055 4000 KEYQ ;$E923 #6120 5975 5990 6310 7570 KMBDRY ;$E031 #0125 **** KSCONF ;$E9A3 #6440 6120 6395 7440 7565 KSHFL ;$E055 #0285 5930 6030 6290 KYSTAT ;$E96A #6310 8125 L11B ;$E5D7 #4145 4060 L11C ;$E5DD #4160 4215 L11D ;$E5E9 #4190 4600 L12B ;$E688 #4570 4410 4590 L12C ;$E68C #4580 **** L1BZ ;$E4C6 #3465 3435 L1J ;$E4CC #3480 3500 L21B ;$E5EF #4200 4150 L23P ;$E7EE #5395 5380 L2ZB ;$E4CF #3485 3470 LDBYTE ;$E4A1 #3390 3160 3200 3215 3230 LEAVE ;$EAD1 #7150 7140 LK1 ;$E944 #6190 6175 LK2 ;$E94A #6205 6195 LK3 ;$E956 #6250 6265 LOCM8 ;$E569 #3875 3805 LOCP8 ;$E55B #3835 3785 LOOK ;$EA5F #6880 6900 LP1 ;$E42C #3145 3155 LPGD ;$E46D #3285 3255 LPZ ;$E429 #3140 3220 3335 3365 3385 LPZB ;$E417 #3105 3030 LRNKEY ;$E92C #6140 5945 LSTCOM ;$E057 #0295 1195 1240 1260 1310 M1 ;$E1D1 #1730 1720 8130 8135 M12 ;$E159 #1330 1320 M13 ;$E160 #1345 1335 M14 ;$E167 #1360 1350 M15 ;$E1B7 #1575 1385 M21 ;$E239 #1970 1955 M22 ;$E24A #2005 1965 M23 ;$E251 #2020 2035 M24 ;$E267 #2065 2000 2010 M25 ;$E26F #2080 2070 M26 ;$E289 #2145 2110 2120 M27 ;$E28D #2160 2130 M28 ;$E28F #2165 2140 M29 ;$E292 #2175 2100 M32 ;$E2C8 #2305 2285 M33 ;$E2EB #2385 2375 M34 ;$E3C8 #2935 2905 M35 ;$E3CA #2940 3000 3015 M36 ;$E3EB #3005 2990 M42 ;$E566 #3865 3855 M43 ;$E574 #3905 3895 MAXRC ;$E058 #0300 4650 4660 MEM1 ;$E510 #3655 3535 MEM2 ;$E62F #4380 4330 MEM3 ;$E801 #5435 5400 MEM3C ;$E808 #5450 4400 5480 5485 MEM3D ;$E811 #5470 5515 MEM3E ;$E81C #5500 5465 MEM3EX ;$E81A #5490 5475 MEM3F ;$E826 #5525 5505 MEMZ ;$E4AE #3415 3405 MONENT ;$EB7C #7600 0530 7575 MONITR ;$E000 #0530 **** MORED ;$E454 #3230 3295 MORED2 ;$E6D2 #4720 4760 NACCES ;$EB9C #7665 3040 3940 4080 NBASOC ;$EA44 #6830 2460 2470 NBELL ;$E9CD #6530 6520 NEWDEV ;$EB64 #7555 8015 NEWLN ;$E4E1 #3545 3410 3610 NEWLOC ;$E517 #3670 3425 3735 3755 3830 3870 ; 3910 5500 NH3 ;$E3BF #2910 2870 2885 NH41 ;$E501 #3615 3570 NH42 ;$E537 #3740 3695 NIBALF ;$E313 #2510 2495 NIBASC ;$E309 #2485 6830 NMIVEC ;$E07A #0430 **** NOBEEP ;$E99B #6425 5985 NOKEY ;$E95E #6270 6185 NOTCR ;$E3C3 #2925 2910 NR10 ;$E408 #3070 3990 4140 NUREC ;$E443 #3195 3170 NXTLOC ;$E531 #3725 3715 3765 3775 NXTRG ;$E3D2 #2960 **** OBCMIN ;$E1D3 #1740 2985 3690 OBCRLF ;$E34A #2635 0960 OCMCK ;$E325 #2550 4490 4540 OPCCOM ;$E337 #2585 0765 0950 OUD1 ;$E9DE #6565 6540 OUD2 ;$E9E0 #6570 6585 OUD3 ;$E9F4 #6620 6640 OUT ;$EAD4 #7155 6940 7010 7075 OUT1 ;$E1FE #1840 1825 OUT2 ;$E201 #1850 1800 OUT4 ;$E1F5 #1820 1760 OUTBYT ;$E2FA #2430 1430 1740 2420 2560 2635 ; 4455 4795 OUTC ;$EAB4 #7075 7115 OUTCHR ;$EA47 #6835 0775 1130 1405 1415 2545 ; 2620 2650 2660 2850 2965 4685 ; 5775 7560 OUTDSP ;$E9C1 #6505 6045 OUTONE ;$EADE #7180 7170 OUTPC ;$E2EE #2400 2585 2860 OUTQM ;$E320 #2540 3590 3720 OUTSZ ;$E319 #2525 **** OUTVEC ;$E063 #0360 6860 OUTXAH ;$E2F4 #2410 2535 4560 4775 5625 P1H ;$E04F #0255 1900 5010 5570 P1L ;$E04E #0250 1895 4395 4915 5000 5325 ; 5405 5450 5555 P2H ;$E04D #0245 1890 2200 4035 4340 5180 ; 5575 P2L ;$E04C #0240 1885 2210 4010 4360 4390 ; 4580 5170 5560 P2SCR ;$E29C #2200 4415 4625 4900 4995 5445 P3H ;$E04B #0235 1880 2025 2190 2225 2320 ; 3455 3975 4030 4045 4250 4825 ; 5120 5185 5610 5700 P3L ;$E04A #0230 1875 2020 2040 2045 2180 ; 2235 2335 3445 3985 4005 4025 ; 4065 4160 4230 4805 5105 5175 ; 5595 5710 P3SCR ;$E2A7 #2225 3540 3665 4335 5165 PAD ;$EB32 #7415 7145 PAD1 ;$EB35 #7420 7430 PADBIT ;$E050 #0260 7415 PARFIL ;$E22E #1945 2060 PARM ;$E220 #1920 1215 PARNR ;$E049 #0220 1315 1930 1980 1985 2075 PCHR ;$E05A #0310 0715 0835 2405 2900 2980 ; 2995 3055 PCLR ;$E059 #0305 0705 0820 2400 2890 3065 PHAKE ;$EABC #7090 7095 PM1 ;$E22B #1940 1995 POR ;$EB4D #7500 **** PRM10 ;$E20A #1875 1910 PRVLOC ;$E555 #3820 3795 PSHOVE ;$E208 #1870 1205 1210 1940 4185 4190 PTRIN ;$E872 #5700 5660 RAM ;$E020 #0110 7540 RC ;$E03D #0190 3195 3290 4675 4690 4755 RDIG ;$E045 #0210 6545 6555 6650 REGZ ;$E395 #2830 **** RESALL ;$E1C4 #1665 4640 6400 6495 6655 6855 ; 7150 7660 RESET ;$EB4A #7490 8090 8170 RESTIV ;$E899 #5790 5745 RESXAF ;$E1B8 #1595 2090 3190 5785 5820 5920 ; 6820 7025 RESXF ;$E1BE #1630 2345 2755 RGBACK ;$E399 #2840 2950 RIN ;$E87E #5730 8145 RSTVEC ;$E07C #0435 **** S13B ;$E7CD #5310 4980 S13C ;$E7D3 #5325 5390 S1NG ;$E7DE #5355 5415 S23B ;$E7E6 #5375 5315 SAVE ;$EA87 #6970 6945 SAVER ;$E188 #1450 1920 2310 2680 3120 4620 ; 5730 5845 6335 6425 6445 6505 ; 6740 6835 6865 7035 7625 7665 SAVINT ;$E064 #0785 0670 0700 0740 0920 0990 SC1 ;$E90D #6070 6115 SC2 ;$E91D #6100 6105 SCAND ;$E906 #6055 8140 SCNVEC ;$E06F #0380 6050 SCPBUF ;$E000 #0105 6680 6685 6715 SCR3 ;$E033 #0135 1785 1805 1935 1975 2055 ; 2065 SCR4 ;$E034 #0140 2875 2895 SCR6 ;$E036 #0150 2365 2370 2555 2570 3330 ; 4770 SCR7 ;$E037 #0155 2380 2575 3310 4555 4765 SCR8 ;$E038 #0160 2695 2700 2735 SCR9 ;$E039 #0165 2690 2705 2745 SCRA ;$E03A #0170 5665 5675 5790 5800 SCRB ;$E03B #0175 **** SCRD ;$E03D #0185 0190 SCRE ;$E03E #0195 5895 5915 SCRF ;$E03F #0200 6145 6240 SDBYT ;$E051 #0265 7230 7335 7345 7360 7700 SEEK ;$EB02 #7300 7310 SEGSM1 ;$EC29 #7885 6595 SET ;$EB0D #7325 7330 SP2B ;$E698 #4605 4575 SP2C ;$E6A3 #4630 4785 SP2D ;$E6AB #4645 4635 SP2E ;$E6B8 #4670 4655 SP2F ;$E6BA #4675 4665 SPACE ;$E342 #2610 1200 1420 2605 2855 2970 ; 3560 3635 4435 4550 5545 SPC2 ;$E33F #2605 2975 SPCP3 ;$E345 #2620 2600 SPEXIT ;$E6A8 #4640 4740 4750 SR ;$E05B #0315 0900 3045 STD2 ;$E619 #4325 **** STDVAL ;$EC69 #7940 7355 STOCOM ;$E120 #1195 1275 SVBRK ;$E04A #0730 8155 SVBYTE ;$E6F4 #4790 4695 4705 4715 4730 SVIRQ ;$E029 #0660 8160 SVNMI ;$E09B #0910 8165 SWITCH ;$EB69 #7565 **** SWLP ;$EB6C #7570 7585 SWLP2 ;$EBBC #7730 7745 SYM ;$EBD6 #7800 6250 TABLE ;$EBD6 #7805 **** TAPDEL ;$E030 #0120 **** TAPERR ;$E48E #3350 3165 3205 3235 3305 3325 ; 3340 TAPET1 ;$E035 #0145 **** TAPET2 ;$E03C #0180 **** TECHO ;$E053 #0275 5765 6790 6800 6840 6930 TEXT ;$EA06 #6660 6530 TIN ;$EA6A #6905 6995 TLP1 ;$EA83 #6955 6960 TOUT ;$EAA0 #7030 7955 TOUTFL ;$E054 #0280 6885 6915 7180 7450 7705 ; 7715 TRACON ;$E0CD #1005 0970 TRCOFF ;$E0C0 #0980 8150 TRCVEC ;$E074 #0405 1000 TRMTBL ;$EC6F #7950 7730 TSTAT ;$EB3C #7440 7960 TTY ;$EBA7 #7690 8010 TV ;$E056 #0290 0930 2675 TVNZ ;$E0AF #0950 0935 TXTMOV ;$EA0B #6680 6695 UBRKV ;$E076 #0415 **** UBRKVC ;$E076 #0410 0415 UIRQV ;$E078 #0425 **** UIRQVC ;$E078 #0420 0425 URCVEC ;$E06C #0375 3505 5825 URSVEC ;$E069 #0370 1375 USRENT ;$E035 #0685 **** V1 ;$E66E #4515 4465 4475 4535 V2 ;$E64B #4435 4485 VADDR ;$E646 #4425 4500 VALS ;$EBC6 #7770 6470 7795 VALSP2 ;$EBC8 #7795 6460 VECSW ;$EBB7 #7720 7590 VER1 ;$E596 #3995 3460 3930 VER2 ;$E63C #4405 4050 4385 VERZ ;$E4B5 #3430 3420 VOCK ;$E664 #4490 **** WARM ;$E003 #0535 0550 0780 0975 7620 WPR1B ;$E5F7 #4220 4205 WRAP ;$E2B8 #2265 2295 XR ;$E05E #0330 0790 3090 YR ;$E05F #0335 0795 3085 ZERCK ;$E32E #2565 3140 4420 4800 0000,F000,8000