0005 ; FILE NAME %BAX 0010 0015 ; DISASSEMBLY OF HDE BASIC LINK USING DISSAINTS 0020 ; PROGRAM MAY NOT BE COMPLETELY RELOCATABLE. 0025 ; USER SHOULD CHECK ALL EXTERNAL REFERENCES. 0030 0035 Z00 .DE $00 0040 Z15 .DE $15 0045 COM.FLG .DE $16 0050 RESULT .DE $1C 0055 Z72 .DE $72 0060 Z73 .DE $73 0065 Z7A .DE $7A 0070 BAS.ST .DE $7B 0075 BAS.EN .DE $7D 0080 PROGEND .DE $81 0085 STRPTR .DE $83 0090 TOPMEM .DE $87 0095 Z99 .DE $99 0100 Z9A .DE $9A 0105 ZA0 .DE $A0 0110 ZA2 .DE $A2 0115 ZA4 .DE $A4 0120 ZA5 .DE $A5 0125 ZA6 .DE $A6 0130 ZA7 .DE $A7 0135 ZA8 .DE $A8 0140 ZA9 .DE $A9 0145 ZAE .DE $AE 0150 ZAF .DE $AF 0155 EXP .DE $B1 0160 ZB3 .DE $B3 0165 SIGN.1 .DE $B6 0170 SIGN.2 .DE $BE 0175 SIGN.COM .DE $BF 0180 TRIG.JMP .DE $C4 0185 CHRGET .DE $CC 0190 CHRGOT .DE $D2 0195 ZDD .DE $DD 0200 ZDE .DE $DE 0205 ZDF .DE $DF 0210 ZE0 .DE $E0 0215 ZFA .DE $FA 0220 ZFB .DE $FB 0225 ZFE .DE $FE 0230 ZFF .DE $FF 0235 STACK .DE $0101 0240 BAS_BUFR .DE $0135 0245 A7215 .DE $7215 0250 A7270 .DE $7270 0255 TXBUF .DE $7280 0260 A7283 .DE $7283 0265 A7284 .DE $7284 0270 A7285 .DE $7285 0275 FODS_WARM .DE $7380 0280 A73B3 .DE $73B3 0285 S740F .DE $740F 0290 S754A .DE $754A 0295 S754F .DE $754F 0300 S758A .DE $758A 0305 S7631 .DE $7631 0310 SET2 .DE $7634 0315 S7646 .DE $7646 0320 DSKRW .DE $765D 0325 S767C .DE $767C 0330 S786B .DE $786B 0335 S789A .DE $789A 0340 S78A7 .DE $78A7 0345 S78AA .DE $78AA 0350 S78BB .DE $78BB 0355 S7904 .DE $7904 0360 J7914 .DE $7914 0365 CMDINT .DE $79B3 0370 FODBRK .DE $7AF0 0375 0380 ; MONITOR LOCATIONS 0385 0390 USRENT .DE $8035 0395 PSHOVE .DE $8208 0400 PARM .DE $8220 0405 P2SCR .DE $829C 0410 OUTXAH .DE $82F4 0415 NIBASC .DE $8309 0420 SPACE .DE $8342 0425 PTRIN .DE $8872 0430 INRT2 .DE $8A3E 0435 INTCHR .DE $8A58 0440 ACCESS .DE $8B86 0445 0450 ; SYSTEM RAM LOCATIONS 0455 0460 PARNR .DE $A649 0465 P3L .DE $A64A 0470 P3H .DE $A64B 0475 INVEC .DE $A661 0480 USR_IRQ .DE $A676 0485 0490 ; BASIC ENTRY POINTS 0495 0500 BAS.COLD .DE $C000 0505 ERRMSG .DE $C258 0510 BAS.WARM .DE $C27E 0515 LNKFIX .DE $C32C 0520 JC48F .DE $C48F 0525 SC49F .DE $C49F 0530 JC60A .DE $C60A 0535 JC707 .DE $C707 0540 ENGOTO .DE $C732 0545 EVARG .DE $CB43 0550 ACB53 .DE $CB53 0555 INTFLT .DE $D5AD 0560 ADDHALF .DE $D5FF 0565 SUBMF .DE $D606 0570 SUBAF .DE $D609 0575 ADDMF .DE $D61D 0580 CONSTANT .DE $D772 0585 DIVAM .DE $D8BD 0590 DIVMF .DE $D8C5 0595 MEMFAC .DE $D958 0600 FLOAT2 .DE $D980 0605 FLOAT3 .DE $D98A 0610 FLOAT4 .DE $D9C2 0615 FLOATC .DE $D9FF 0620 INTFAC .DE $DA82 0625 FOUT .DE $DB9A 0630 CHGSGN .DE $DD36 0635 FLOAT1 .DE $DDC2 0640 ; 0645 .BA $6000 0650 .OS 0655 6000- 20 03 68 0660 JSR OFF_DISK 6003- 4C 09 60 0665 JMP COLD_ENT 0670 ; 6006- 4C 7F 66 0675 JMP J667F 0680 ; 6009- 20 86 8B 0685 COLD_ENT JSR ACCESS 600C- A9 19 0690 LDA #L,BAS_IN 600E- 8D 61 A6 0695 STA INVEC 6011- A9 60 0700 LDA #H,BAS_IN 6013- 8D 62 A6 0705 STA INVEC+1 6016- 4C 00 C0 0710 JMP BAS.COLD 0715 ; 6019- 20 8F 67 0720 BAS_IN JSR S678F 601C- 20 D1 65 0725 JSR S65D1 601F- C0 01 0730 CPY #$01 ;^A 6021- D0 0C 0735 BNE B602F 0740 ; 6023- 88 0745 DEY 6024- B9 39 68 0750 B6024 LDA MEM_DFLT,Y 6027- 99 35 01 0755 STA BAS_BUFR,Y 602A- C8 0760 INY 602B- C0 06 0765 CPY #$06 ;^F 602D- 90 F5 0770 BCC B6024 0775 ; 602F- 68 0780 B602F PLA 6030- 68 0785 PLA 6031- 4C B8 65 0790 JMP J65B8 0795 ; 6034- A2 FF 0800 B6034 LDX #$FF ;. 6036- 9A 0805 TXS 6037- 20 62 67 0810 JSR RET_ZPAGE 603A- A2 02 0815 LDX #$02 ;^B 603C- 4C 58 C2 0820 JMP ERRMSG 0825 ; 603F- EE 84 65 0830 DELET INC DELET_FLG 6042- F0 10 0835 BEQ LOAD 0840 ; 6044- EE 7D 65 0845 CHAIN INC CHAIN_FLG 6047- EE 7E 65 0850 RUN INC RUN_FLG 604A- F0 08 0855 BEQ LOAD 0860 ; 604C- EE 7F 65 0865 APPEND INC APPEND_FLG 604F- F0 03 0870 BEQ LOAD 0875 ; 6051- EE 7C 65 0880 TEMPEN INC TMPEN_FLG 6054- 20 CC 00 0885 LOAD JSR CHRGET 6057- B0 0A 0890 BCS B6063 0895 ; 6059- C9 31 0900 CMP #$31 ;1 605B- D0 03 0905 BNE B6060 0910 ; 605D- 20 31 76 0915 JSR S7631 6060- 20 CC 00 0920 B6060 JSR CHRGET 6063- C9 2C 0925 B6063 CMP #$2C ;, 6065- F0 66 0930 BEQ B60CD 0935 ; 6067- C9 25 0940 CMP #$25 ;% 6069- D0 0F 0945 BNE B607A 0950 ; 606B- 2C 7C 65 0955 BIT TMPEN_FLG 606E- 10 C4 0960 BPL B6034 0965 ; 6070- 2C 7E 65 0970 BIT RUN_FLG 6073- 10 BF 0975 BPL B6034 0980 ; 6075- EE 80 65 0985 INC FLAG 6078- F0 07 0990 BEQ B6081 0995 ; 607A- C9 23 1000 B607A CMP #$23 ;# 607C- D0 B6 1005 BNE B6034 1010 ; 607E- EE 82 65 1015 INC FLAG2 6081- 20 CC 00 1020 B6081 JSR CHRGET 6084- C9 2C 1025 CMP #$2C ;, 6086- D0 AC 1030 BNE B6034 1035 ; 6088- AC 7C 65 1040 LDY TMPEN_FLG 608B- 30 4B 1045 BMI B60D8 1050 ; 608D- B9 00 00 1055 B608D LDA Z00,Y 6090- 91 87 1060 STA (TOPMEM),Y 6092- C8 1065 INY 6093- D0 F8 1070 BNE B608D 1075 ; 6095- A2 03 1080 LDX #$03 ;^C 6097- B5 81 1085 B6097 LDA *PROGEND,X 6099- 9D 88 65 1090 STA FLAG8,X 609C- CA 1095 DEX 609D- D0 F8 1100 BNE B6097 1105 ; 609F- E6 88 1110 INC *TOPMEM+1 60A1- B1 83 1115 B60A1 LDA (STRPTR),Y 60A3- 91 81 1120 STA (PROGEND),Y 60A5- 20 F0 62 1125 JSR S62F0 60A8- 90 F7 1130 BCC B60A1 1135 ; 60AA- C6 88 1140 DEC *TOPMEM+1 60AC- A5 7D 1145 LDA *BAS.EN 60AE- 8D 8C 65 1150 STA FLAGC 60B1- A5 7E 1155 LDA *BAS.EN+1 60B3- 8D 8D 65 1160 STA FLAGD 60B6- A5 81 1165 LDA *PROGEND 60B8- 8D 8E 65 1170 STA FLAGE 60BB- A5 82 1175 LDA *PROGEND+1 60BD- 8D 8F 65 1180 STA FLAGF 60C0- A0 03 1185 LDY #$03 ;^C 60C2- B9 88 65 1190 B60C2 LDA FLAG8,Y 60C5- 99 81 00 1195 STA PROGEND,Y 60C8- 88 1200 DEY 60C9- 10 F7 1205 BPL B60C2 1210 ; 60CB- 30 0B 1215 BMI B60D8 1220 ; 60CD- A0 03 1225 B60CD LDY #$03 ;^C 60CF- B9 7B 00 1230 B60CF LDA BAS.ST,Y 60D2- 99 8C 65 1235 STA FLAGC,Y 60D5- 88 1240 DEY 60D6- 10 F7 1245 BPL B60CF 1250 ; 60D8- C8 1255 B60D8 INY 60D9- 20 CC 00 1260 B60D9 JSR CHRGET 60DC- F0 70 1265 BEQ B614E 1270 ; 60DE- C9 22 1275 CMP #$22 ;" 60E0- F0 F7 1280 BEQ B60D9 1285 ; 60E2- 99 85 72 1290 STA A7285,Y 60E5- C9 24 1295 CMP #$24 ;$ 60E7- D0 EF 1300 BNE B60D8 1305 ; 60E9- 20 CC 00 1310 B60E9 JSR CHRGET 60EC- D0 FB 1315 BNE B60E9 1320 ; 60EE- A5 7D 1325 LDA *BAS.EN 60F0- 85 AE 1330 STA *ZAE 60F2- A5 7E 1335 LDA *BAS.EN+1 60F4- 85 AF 1340 STA *ZAF 60F6- A0 00 1345 LDY #$00 ;^@ 60F8- B1 AE 1350 B60F8 LDA (ZAE),Y 60FA- F0 05 1355 BEQ B6101 1360 ; 60FC- D9 85 72 1365 CMP A7285,Y 60FF- F0 13 1370 BEQ B6114 1375 ; 6101- E6 AE 1380 B6101 INC *ZAE 6103- D0 02 1385 BNE B6107 1390 ; 6105- E6 AF 1395 INC *ZAF 6107- A5 AE 1400 B6107 LDA *ZAE 6109- C5 7F 1405 CMP *BAS.EN+2 610B- D0 EB 1410 BNE B60F8 1415 ; 610D- C5 80 1420 CMP *PROGEND-1 610F- D0 E7 1425 BNE B60F8 1430 ; 6111- 4C 34 60 1435 JMP B6034 1440 ; 6114- C8 1445 B6114 INY 6115- B9 85 72 1450 LDA A7285,Y 6118- C9 24 1455 CMP #$24 ;$ 611A- F0 0A 1460 BEQ B6126 1465 ; 611C- 09 80 1470 ORA #$80 ;.^@ 611E- D1 AE 1475 B611E CMP (ZAE),Y 6120- F0 08 1480 BEQ B612A 1485 ; 6122- A0 00 1490 LDY #$00 ;^@ 6124- F0 DB 1495 BEQ B6101 1500 ; 6126- A9 80 1505 B6126 LDA #$80 ;.^@ 6128- 30 F4 1510 BMI B611E 1515 ; 612A- C8 1520 B612A INY 612B- B1 AE 1525 LDA (ZAE),Y 612D- 8D 83 65 1530 STA FLAG3 6130- CE 83 65 1535 DEC FLAG3 6133- C8 1540 INY 6134- B1 AE 1545 LDA (ZAE),Y 6136- 48 1550 PHA 6137- C8 1555 INY 6138- B1 AE 1560 LDA (ZAE),Y 613A- 85 AF 1565 STA *ZAF 613C- 68 1570 PLA 613D- 85 AE 1575 STA *ZAE 613F- AC 83 65 1580 LDY FLAG3 6142- B1 AE 1585 B6142 LDA (ZAE),Y 6144- 99 85 72 1590 STA A7285,Y 6147- 88 1595 DEY 6148- 10 F8 1600 BPL B6142 1605 ; 614A- AC 83 65 1610 LDY FLAG3 614D- C8 1615 INY 614E- 20 33 63 1620 B614E JSR S6333 6151- 20 34 63 1625 JSR S6334 6154- 2C 80 65 1630 BIT FLAG 6157- 30 03 1635 BMI B615C 1640 ; 6159- A9 25 1645 LDA #$25 ;% 615B- 2C 1650 .BY $2C 615C- A9 40 1655 B615C LDA #$40 615E- 8D 84 72 1660 STA A7284 6161- A9 0D 1665 LDA #$0D ;^M 6163- 99 85 72 1670 STA A7285,Y 6166- AD 84 65 1675 LDA DELET_FLG 6169- 30 03 1680 BMI B616E 1685 ; 616B- 4C 67 63 1690 JMP J6367 1695 ; 616E- AD 7C 65 1700 B616E LDA TMPEN_FLG 6171- 30 11 1705 BMI B6184 1710 ; 6173- 8D 70 72 1715 STA A7270 6176- 20 BB 78 1720 JSR S78BB 6179- 2C 82 65 1725 BIT FLAG2 617C- 10 03 1730 BPL B6181 1735 ; 617E- 4C E0 61 1740 JMP J61E0 1745 ; 6181- 20 34 63 1750 B6181 JSR S6334 6184- AE 82 65 1755 B6184 LDX FLAG2 6187- D0 06 1760 BNE B618F 1765 ; 6189- A5 7D 1770 LDA *BAS.EN 618B- A4 7E 1775 LDY *BAS.EN+1 618D- D0 0C 1780 BNE B619B 1785 ; 618F- AE 7F 65 1790 B618F LDX APPEND_FLG 6192- D0 0E 1795 BNE B61A2 1800 ; 6194- 20 80 63 1805 JSR S6380 6197- A5 99 1810 LDA *Z99 6199- A4 9A 1815 LDY *Z9A 619B- 85 AE 1820 B619B STA *ZAE 619D- 84 AF 1825 STY *ZAF 619F- EE 70 72 1830 INC A7270 61A2- 20 04 79 1835 B61A2 JSR S7904 61A5- 2C 80 65 1840 BIT FLAG 61A8- 10 36 1845 BPL J61E0 1850 ; 61AA- A2 02 1855 LDX #$02 ;^B 61AC- 2C 7D 65 1860 BIT CHAIN_FLG 61AF- 10 0F 1865 BPL B61C0 1870 ; 61B1- 2C 82 65 1875 BIT FLAG2 61B4- 30 03 1880 BMI B61B9 1885 ; 61B6- 4C 28 62 1890 JMP J6228 1895 ; 61B9- 2C 7F 65 1900 B61B9 BIT APPEND_FLG 61BC- 10 4D 1905 BPL B620B 1910 ; 61BE- A2 04 1915 LDX #$04 ;^D 61C0- B5 A5 1920 B61C0 LDA *ZA5,X 61C2- 95 7A 1925 STA *Z7A,X 61C4- CA 1930 DEX 61C5- D0 F9 1935 BNE B61C0 1940 ; 61C7- 2C 7D 65 1945 BIT CHAIN_FLG 61CA- 10 03 1950 BPL B61CF 1955 ; 61CC- 20 1D 65 1960 JSR S651D 61CF- A2 00 1965 B61CF LDX #$00 ;^@ 61D1- A5 A6 1970 LDA *ZA6 61D3- D0 02 1975 BNE B61D7 1980 ; 61D5- C6 A7 1985 DEC *ZA7 61D7- C6 A6 1990 B61D7 DEC *ZA6 61D9- 8A 1995 TXA 61DA- A8 2000 TAY 61DB- 91 A6 2005 STA (ZA6),Y 61DD- 20 2C C3 2010 JSR LNKFIX 61E0- A6 15 2015 J61E0 LDX *Z15 61E2- 9A 2020 TXS 61E3- 20 03 68 2025 JSR OFF_DISK 61E6- 20 62 67 2030 JSR RET_ZPAGE 61E9- 2C 7D 65 2035 BIT CHAIN_FLG 61EC- 10 0B 2040 BPL B61F9 2045 ; 61EE- AD 7E 65 2050 LDA RUN_FLG 61F1- 30 03 2055 BMI B61F6 2060 ; 61F3- 4C 07 C7 2065 JMP JC707 2070 ; 61F6- 4C D2 00 2075 B61F6 JMP CHRGOT 2080 ; 61F9- 20 9F C4 2085 B61F9 JSR SC49F 61FC- 4C 8F C4 2090 JMP JC48F 2095 ; 61FF- 20 8A 75 2100 JSR S758A 6202- 20 62 67 2105 JSR RET_ZPAGE 6205- A6 15 2110 LDX *Z15 6207- 9A 2115 TXS 6208- 4C CC 00 2120 JMP CHRGET 2125 ; 620B- 20 8A 75 2130 B620B JSR S758A 620E- 20 2C C3 2135 JSR LNKFIX 6211- A5 72 2140 LDA *Z72 6213- 69 02 2145 ADC #$02 ;^B 6215- 85 7D 2150 STA *BAS.EN 6217- A5 73 2155 LDA *Z73 6219- 85 7E 2160 STA *BAS.EN+1 621B- 90 02 2165 BCC B621F 2170 ; 621D- E6 7E 2175 INC *BAS.EN+1 621F- 20 B7 63 2180 B621F JSR S63B7 6222- 20 1D 65 2185 JSR S651D 6225- 4C E0 61 2190 JMP J61E0 2195 ; 6228- A5 A4 2200 J6228 LDA *ZA4 622A- 85 A8 2205 STA *ZA8 622C- A5 A5 2210 LDA *ZA5 622E- 85 A9 2215 STA *ZA9 6230- C6 A9 2220 DEC *ZA9 6232- A5 A6 2225 LDA *ZA6 6234- 85 7D 2230 STA *BAS.EN 6236- A5 A7 2235 LDA *ZA7 6238- 85 7E 2240 STA *BAS.EN+1 623A- A0 7D 2245 LDY #$7D ;} 623C- B1 A8 2250 LDA (ZA8),Y 623E- 38 2255 SEC 623F- E5 7D 2260 SBC *BAS.EN 6241- 8D 88 65 2265 STA FLAG8 6244- C8 2270 INY 6245- B1 A8 2275 LDA (ZA8),Y 6247- E5 7E 2280 SBC *BAS.EN+1 6249- 8D 89 65 2285 STA FLAG9 624C- C8 2290 B624C INY 624D- B1 A8 2295 LDA (ZA8),Y 624F- 38 2300 SEC 6250- ED 88 65 2305 SBC FLAG8 6253- 99 00 00 2310 STA Z00,Y 6256- C8 2315 INY 6257- B1 A8 2320 LDA (ZA8),Y 6259- ED 89 65 2325 SBC FLAG9 625C- 99 00 00 2330 STA Z00,Y 625F- C0 82 2335 CPY #$82 ;.^B 6261- D0 E9 2340 BNE B624C 2345 ; 6263- C8 2350 B6263 INY 6264- B1 A8 2355 LDA (ZA8),Y 6266- 99 00 00 2360 STA Z00,Y 6269- C0 86 2365 CPY #$86 ;.^F 626B- D0 F6 2370 BNE B6263 2375 ; 626D- C8 2380 INY 626E- B1 A8 2385 LDA (ZA8),Y 6270- 85 87 2390 STA *TOPMEM 6272- 85 AE 2395 STA *ZAE 6274- C8 2400 INY 6275- B1 A8 2405 LDA (ZA8),Y 6277- 85 88 2410 STA *TOPMEM+1 6279- 85 AF 2415 STA *ZAF 627B- E6 AF 2420 INC *ZAF 627D- E6 A9 2425 INC *ZA9 627F- A0 00 2430 LDY #$00 ;^@ 6281- B1 A8 2435 B6281 LDA (ZA8),Y 6283- 91 AE 2440 STA (ZAE),Y 6285- 20 0C 63 2445 JSR S630C 6288- 90 F7 2450 BCC B6281 2455 ; 628A- 4C E0 61 2460 JMP J61E0 2465 ; 628D- 20 CC 00 2470 DIR JSR CHRGET 6290- B0 0A 2475 BCS B629C 2480 ; 6292- C9 31 2485 CMP #$31 ;1 6294- D0 03 2490 BNE B6299 2495 ; 6296- 20 31 76 2500 JSR S7631 6299- 20 CC 00 2505 B6299 JSR CHRGET 629C- 20 33 63 2510 B629C JSR S6333 629F- 20 AA 78 2515 JSR S78AA 62A2- 90 10 2520 BCC B62B4 2525 ; 62A4- A2 00 2530 LDX #$00 ;^@ 62A6- BD 67 65 2535 B62A6 LDA INDEX_MSG,X 62A9- 10 03 2540 BPL B62AE 2545 ; 62AB- 4C E0 61 2550 JMP J61E0 2555 ; 62AE- 20 4F 75 2560 B62AE JSR S754F 62B1- E8 2565 INX 62B2- D0 F2 2570 BNE B62A6 2575 ; 62B4- 20 03 68 2580 B62B4 JSR OFF_DISK 62B7- 20 46 76 2585 JSR S7646 62BA- A9 04 2590 B62BA LDA #$04 ;^D 62BC- 8D 81 65 2595 STA FLAG1 62BF- 20 8A 75 2600 JSR S758A 62C2- 20 9A 78 2605 J62C2 JSR S789A 62C5- 20 0F 74 2610 JSR S740F 62C8- D0 06 2615 BNE B62D0 2620 ; 62CA- 20 8A 75 2625 JSR S758A 62CD- 4C E0 61 2630 JMP J61E0 2635 ; 62D0- A0 01 2640 B62D0 LDY #$01 ;^A 62D2- B1 A4 2645 B62D2 LDA (ZA4),Y 62D4- C8 2650 INY 62D5- C9 7F 2655 CMP #$7F ; 62D7- D0 02 2660 BNE B62DB 2665 ; 62D9- A9 2A 2670 LDA #$2A ;* 62DB- 20 4F 75 2675 B62DB JSR S754F 62DE- C0 06 2680 CPY #$06 ;^F 62E0- 30 F0 2685 BMI B62D2 2690 ; 62E2- CE 81 65 2695 DEC FLAG1 62E5- 30 D3 2700 BMI B62BA 2705 ; 62E7- 20 4A 75 2710 JSR S754A 62EA- 20 4A 75 2715 JSR S754A 62ED- 4C C2 62 2720 JMP J62C2 2725 ; 62F0- A5 83 2730 S62F0 LDA *STRPTR 62F2- C5 87 2735 CMP *TOPMEM 62F4- D0 08 2740 BNE B62FE 2745 ; 62F6- A5 84 2750 LDA *STRPTR+1 62F8- C5 88 2755 CMP *TOPMEM+1 62FA- D0 02 2760 BNE B62FE 2765 ; 62FC- 38 2770 SEC 62FD- 60 2775 RTS 2780 ; 62FE- E6 81 2785 B62FE INC *PROGEND 6300- D0 02 2790 BNE B6304 2795 ; 6302- E6 82 2800 INC *PROGEND+1 6304- E6 83 2805 B6304 INC *STRPTR 6306- D0 02 2810 BNE B630A 2815 ; 6308- E6 84 2820 INC *STRPTR+1 630A- 18 2825 B630A CLC 630B- 60 2830 RTS 2835 ; 630C- A5 A8 2840 S630C LDA *ZA8 630E- C5 81 2845 CMP *PROGEND 6310- D0 08 2850 BNE B631A 2855 ; 6312- A5 A9 2860 LDA *ZA9 6314- C5 82 2865 CMP *PROGEND+1 6316- D0 02 2870 BNE B631A 2875 ; 6318- 38 2880 SEC 6319- 60 2885 RTS 2890 ; 631A- A5 AE 2895 B631A LDA *ZAE 631C- D0 02 2900 BNE B6320 2905 ; 631E- C6 AF 2910 DEC *ZAF 6320- C6 AE 2915 B6320 DEC *ZAE 6322- A5 A8 2920 LDA *ZA8 6324- D0 02 2925 BNE B6328 2930 ; 6326- C6 A9 2935 DEC *ZA9 6328- C6 A8 2940 B6328 DEC *ZA8 632A- 18 2945 CLC 632B- 60 2950 RTS 2955 ; 632C- A9 B3 2960 LDA #L,A73B3 632E- A0 73 2965 LDY #H,A73B3 6330- 4C F0 7A 2970 JMP FODBRK 2975 ; 6333- 60 2980 S6333 RTS 2985 ; 6334- A2 03 2990 S6334 LDX #$03 ;^C 6336- BD 8C 65 2995 B6336 LDA FLAGC,X 6339- 95 A6 3000 STA *ZA6,X 633B- CA 3005 DEX 633C- 10 F8 3010 BPL B6336 3015 ; 633E- 60 3020 RTS 3025 ; 633F- A2 06 3030 LDX #$06 ;^F 6341- 2C A2 00 3035 BIT ZA2 6344- A0 00 3040 LDY #$00 ;^@ 6346- BD 70 65 3045 B6346 LDA PAK_MSG,X 6349- 99 80 72 3050 STA TXBUF,Y 634C- E8 3055 INX 634D- C8 3060 INY 634E- C9 0D 3065 CMP #$0D ;^M 6350- D0 F4 3070 BNE B6346 3075 ; 6352- 20 33 63 3080 JSR S6333 6355- A9 00 3085 LDA #$00 ;^@ 6357- CD 15 72 3090 CMP A7215 635A- F0 08 3095 BEQ B6364 3100 ; 635C- 8D 15 72 3105 STA A7215 635F- A9 32 3110 LDA #$32 ;2 6361- 8D 84 72 3115 STA A7284 6364- 4C B3 79 3120 B6364 JMP CMDINT 3125 ; 6367- 20 33 63 3130 J6367 JSR S6333 636A- A9 21 3135 LDA #$21 ;! 636C- 8D 83 72 3140 STA A7283 636F- 20 A7 78 3145 JSR S78A7 6372- 20 6B 78 3150 JSR S786B 6375- 90 03 3155 BCC B637A 3160 ; 6377- 4C 14 79 3165 JMP J7914 3170 ; 637A- 20 7C 76 3175 B637A JSR S767C 637D- 4C E0 61 3180 JMP J61E0 3185 ; 6380- A5 7C 3190 S6380 LDA *BAS.ST+1 6382- 85 AF 3195 STA *ZAF 6384- A5 7B 3200 LDA *BAS.ST 6386- 85 AE 3205 J6386 STA *ZAE 6388- A0 00 3210 LDY #$00 ;^@ 638A- B1 AE 3215 LDA (ZAE),Y 638C- 85 99 3220 STA *Z99 638E- C8 3225 INY 638F- B1 AE 3230 LDA (ZAE),Y 6391- 85 9A 3235 STA *Z9A 6393- B1 99 3240 LDA (Z99),Y 6395- F0 09 3245 BEQ B63A0 3250 ; 6397- A5 9A 3255 LDA *Z9A 6399- 85 AF 3260 STA *ZAF 639B- A5 99 3265 LDA *Z99 639D- 4C 86 63 3270 JMP J6386 3275 ; 63A0- C8 3280 B63A0 INY 63A1- B1 AE 3285 LDA (ZAE),Y 63A3- 8D 90 65 3290 STA FLAG90 63A6- C8 3295 INY 63A7- B1 AE 3300 LDA (ZAE),Y 63A9- 8D 91 65 3305 STA FLAG91 63AC- A5 99 3310 LDA *Z99 63AE- 8D 92 65 3315 STA FLAG92 63B1- A5 9A 3320 LDA *Z9A 63B3- 8D 93 65 3325 STA FLAG93 63B6- 60 3330 B63B6 RTS 3335 ; 63B7- AD 92 65 3340 S63B7 LDA FLAG92 63BA- 85 99 3345 STA *Z99 63BC- AD 93 65 3350 LDA FLAG93 63BF- 85 9A 3355 STA *Z9A 63C1- A0 03 3360 LDY #$03 ;^C 63C3- AD 91 65 3365 LDA FLAG91 63C6- 38 3370 SEC 63C7- F1 99 3375 SBC (Z99),Y 63C9- B0 0B 3380 BCS B63D6 3385 ; 63CB- 90 E9 3390 BCC B63B6 3395 ; 63CD- 88 3400 DEY 63CE- 38 3405 SEC 63CF- AD 90 65 3410 LDA FLAG90 63D2- F1 99 3415 SBC (Z99),Y 63D4- 90 E0 3420 BCC B63B6 3425 ; 63D6- A0 02 3430 B63D6 LDY #$02 ;^B 63D8- 18 3435 CLC 63D9- AD 90 65 3440 LDA FLAG90 63DC- 71 99 3445 ADC (Z99),Y 63DE- 91 99 3450 STA (Z99),Y 63E0- C8 3455 INY 63E1- AD 91 65 3460 LDA FLAG91 63E4- 71 99 3465 ADC (Z99),Y 63E6- 91 99 3470 STA (Z99),Y 63E8- A0 00 3475 LDY #$00 ;^@ 63EA- B1 99 3480 LDA (Z99),Y 63EC- 85 AE 3485 STA *ZAE 63EE- C8 3490 INY 63EF- B1 99 3495 LDA (Z99),Y 63F1- 85 AF 3500 STA *ZAF 63F3- B1 AE 3505 LDA (ZAE),Y 63F5- F0 0A 3510 BEQ B6401 3515 ; 63F7- A5 AE 3520 LDA *ZAE 63F9- 85 99 3525 STA *Z99 63FB- A5 AF 3530 LDA *ZAF 63FD- 85 9A 3535 STA *Z9A 63FF- D0 D5 3540 BNE B63D6 3545 ; 6401- AD 92 65 3550 B6401 LDA FLAG92 6404- 85 AE 3555 STA *ZAE 6406- AD 93 65 3560 LDA FLAG93 6409- 85 AF 3565 STA *ZAF 640B- A0 03 3570 B640B LDY #$03 ;^C 640D- C8 3575 B640D INY 640E- B1 AE 3580 LDA (ZAE),Y 6410- 30 13 3585 BMI B6425 3590 ; 6412- D0 F9 3595 BNE B640D 3600 ; 6414- A0 00 3605 B6414 LDY #$00 ;^@ 6416- B1 AE 3610 LDA (ZAE),Y 6418- AA 3615 TAX 6419- C8 3620 INY 641A- B1 AE 3625 LDA (ZAE),Y 641C- 85 AF 3630 STA *ZAF 641E- 86 AE 3635 STX *ZAE 6420- B1 AE 3640 LDA (ZAE),Y 6422- D0 E7 3645 BNE B640B 3650 ; 6424- 60 3655 RTS 3660 ; 6425- C9 88 3665 B6425 CMP #$88 ;.^H 6427- F0 23 3670 BEQ B644C 3675 ; 6429- C9 89 3680 CMP #$89 ;.^I 642B- F0 1F 3685 BEQ B644C 3690 ; 642D- C9 8C 3695 CMP #$8C ;.^L 642F- F0 1B 3700 BEQ B644C 3705 ; 6431- C9 99 3710 CMP #$99 ;.^Y 6433- F0 17 3715 BEQ B644C 3720 ; 6435- C9 A1 3725 CMP #$A1 ;.! 6437- D0 D4 3730 BNE B640D 3735 ; 6439- C8 3740 B6439 INY 643A- B1 AE 3745 LDA (ZAE),Y 643C- 30 E7 3750 BMI B6425 3755 ; 643E- C9 20 3760 CMP #$20 ; 6440- F0 F7 3765 BEQ B6439 3770 ; 6442- C9 30 3775 CMP #$30 ;0 6444- 30 C7 3780 BMI B640D 3785 ; 6446- C9 3A 3790 CMP #$3A ;: 6448- 30 25 3795 BMI B646F 3800 ; 644A- 10 C1 3805 BPL B640D 3810 ; 644C- C8 3815 B644C INY 644D- B1 AE 3820 LDA (ZAE),Y 644F- C9 30 3825 CMP #$30 ;0 6451- 30 04 3830 BMI B6457 3835 ; 6453- C9 3A 3840 CMP #$3A ;: 6455- 30 18 3845 BMI B646F 3850 ; 6457- B1 AE 3855 B6457 LDA (ZAE),Y 6459- C9 20 3860 CMP #$20 ; 645B- F0 EF 3865 BEQ B644C 3870 ; 645D- C9 A5 3875 CMP #$A5 ;.% 645F- F0 EB 3880 BEQ B644C 3885 ; 6461- C9 2C 3890 CMP #$2C ;, 6463- F0 E7 3895 BEQ B644C 3900 ; 6465- C9 3A 3905 CMP #$3A ;: 6467- F0 A4 3910 BEQ B640D 3915 ; 6469- C9 00 3920 CMP #$00 ;^@ 646B- F0 A7 3925 BEQ B6414 3930 ; 646D- D0 9E 3935 BNE B640D 3940 ; 646F- B1 AE 3945 B646F LDA (ZAE),Y 6471- A2 00 3950 LDX #$00 ;^@ 6473- 86 1C 3955 STX *RESULT 6475- 86 1D 3960 STX *RESULT+1 6477- 8C 85 65 3965 STY FLAG5 647A- 20 34 65 3970 B647A JSR S6534 647D- C8 3975 INY 647E- B1 AE 3980 LDA (ZAE),Y 6480- F0 08 3985 BEQ B648A 3990 ; 6482- C9 30 3995 CMP #$30 ;0 6484- 30 04 4000 BMI B648A 4005 ; 6486- C9 3A 4010 CMP #$3A ;: 6488- 30 F0 4015 BMI B647A 4020 ; 648A- 88 4025 B648A DEY 648B- 98 4030 TYA 648C- 38 4035 SEC 648D- ED 85 65 4040 SBC FLAG5 6490- 8D 86 65 4045 STA FLAG6 6493- 18 4050 CLC 6494- AD 90 65 4055 LDA FLAG90 6497- 65 1C 4060 ADC *RESULT 6499- 85 1C 4065 STA *RESULT 649B- AA 4070 TAX 649C- AD 91 65 4075 LDA FLAG91 649F- 65 1D 4080 ADC *RESULT+1 64A1- 85 1D 4085 STA *RESULT+1 64A3- 85 B2 4090 STA *EXP+1 64A5- 86 B3 4095 STX *ZB3 64A7- A2 90 4100 LDX #$90 ;.^P 64A9- 38 4105 SEC 64AA- 20 FF D9 4110 JSR FLOATC 64AD- 20 9A DB 4115 JSR FOUT 64B0- A2 FF 4120 LDX #$FF ;. 64B2- E8 4125 B64B2 INX 64B3- BD 01 01 4130 LDA STACK,X 64B6- D0 FA 4135 BNE B64B2 4140 ; 64B8- CA 4145 DEX 64B9- 8A 4150 TXA 64BA- 38 4155 SEC 64BB- ED 86 65 4160 SBC FLAG6 64BE- F0 03 4165 BEQ B64C3 4170 ; 64C0- 20 D7 64 4175 JSR S64D7 64C3- A2 FF 4180 B64C3 LDX #$FF ;. 64C5- AC 85 65 4185 LDY FLAG5 64C8- 88 4190 DEY 64C9- C8 4195 B64C9 INY 64CA- E8 4200 INX 64CB- BD 01 01 4205 LDA STACK,X 64CE- F0 04 4210 BEQ B64D4 4215 ; 64D0- 91 AE 4220 STA (ZAE),Y 64D2- D0 F5 4225 BNE B64C9 4230 ; 64D4- 4C 57 64 4235 B64D4 JMP B6457 4240 ; 64D7- 8D 86 65 4245 S64D7 STA FLAG6 64DA- 18 4250 CLC 64DB- AC 85 65 4255 LDY FLAG5 64DE- 88 4260 DEY 64DF- 98 4265 TYA 64E0- 65 AE 4270 ADC *ZAE 64E2- 85 99 4275 STA *Z99 64E4- A5 AF 4280 LDA *ZAF 64E6- 69 00 4285 ADC #$00 ;^@ 64E8- 85 9A 4290 STA *Z9A 64EA- A5 7E 4295 LDA *BAS.EN+1 64EC- 48 4300 PHA 64ED- A5 7D 4305 LDA *BAS.EN 64EF- 48 4310 PHA 64F0- A0 00 4315 B64F0 LDY #$00 ;^@ 64F2- B1 7D 4320 LDA (BAS.EN),Y 64F4- AC 86 65 4325 LDY FLAG6 64F7- 91 7D 4330 STA (BAS.EN),Y 64F9- A5 7D 4335 LDA *BAS.EN 64FB- D0 02 4340 BNE B64FF 4345 ; 64FD- C6 7E 4350 DEC *BAS.EN+1 64FF- C6 7D 4355 B64FF DEC *BAS.EN 6501- A5 7D 4360 LDA *BAS.EN 6503- C5 99 4365 CMP *Z99 6505- D0 E9 4370 BNE B64F0 4375 ; 6507- A5 7E 4380 LDA *BAS.EN+1 6509- C5 9A 4385 CMP *Z9A 650B- D0 E3 4390 BNE B64F0 4395 ; 650D- 20 2C C3 4400 JSR LNKFIX 6510- 18 4405 CLC 6511- 68 4410 PLA 6512- 6D 86 65 4415 ADC FLAG6 6515- 85 7D 4420 STA *BAS.EN 6517- 68 4425 PLA 6518- 69 00 4430 ADC #$00 ;^@ 651A- 85 7E 4435 STA *BAS.EN+1 651C- 60 4440 RTS 4445 ; 651D- A5 87 4450 S651D LDA *TOPMEM 651F- A4 88 4455 LDY *TOPMEM+1 6521- 85 83 4460 STA *STRPTR 6523- 84 84 4465 STY *STRPTR+1 6525- A5 7D 4470 LDA *BAS.EN 6527- A4 7E 4475 LDY *BAS.EN+1 6529- 85 7F 4480 STA *BAS.EN+2 652B- 84 80 4485 STY *PROGEND-1 652D- 85 81 4490 STA *PROGEND 652F- 84 82 4495 STY *PROGEND+1 6531- 4C 0A C6 4500 JMP JC60A 4505 ; 6534- 18 4510 S6534 CLC 6535- E9 2F 4515 SBC #$2F ;/ 6537- 8D 87 65 4520 STA FLAG7 653A- A5 1D 4525 LDA *RESULT+1 653C- 85 72 4530 STA *Z72 653E- C9 19 4535 CMP #$19 ;^Y 6540- B0 22 4540 BCS B6564 4545 ; 6542- A5 1C 4550 LDA *RESULT 6544- 0A 4555 ASL A 6545- 26 72 4560 ROL *Z72 6547- 0A 4565 ASL A 6548- 26 72 4570 ROL *Z72 654A- 65 1C 4575 ADC *RESULT 654C- 85 1C 4580 STA *RESULT 654E- A5 72 4585 LDA *Z72 6550- 65 1D 4590 ADC *RESULT+1 6552- 85 1D 4595 STA *RESULT+1 6554- 06 1C 4600 ASL *RESULT 6556- 26 1D 4605 ROL *RESULT+1 6558- A5 1C 4610 LDA *RESULT 655A- 6D 87 65 4615 ADC FLAG7 655D- 85 1C 4620 STA *RESULT 655F- 90 02 4625 BCC B6563 4630 ; 6561- E6 1D 4635 INC *RESULT+1 6563- 60 4640 B6563 RTS 4645 ; 6564- 4C 34 60 4650 B6564 JMP B6034 4655 ; 6567- 4E 4F 20 4660 INDEX_MSG .BY 'NO INDEX' 656A- 49 4E 44 656D- 45 58 656F- FF 4665 .BY $FF 6570- 50 41 4B 4670 PAK_MSG .BY 'PAK 1' $0D 6573- 20 31 0D 6576- 46 52 45 4675 .BY 'FRE 1' $0D 6579- 20 31 0D 4680 657C- 4685 TMPEN_FLG .DS 1 657D- 4690 CHAIN_FLG .DS 1 657E- 4695 RUN_FLG .DS 1 657F- 4700 APPEND_FLG .DS 1 6580- 4705 FLAG .DS 1 6581- 4710 FLAG1 .DS 1 6582- 4715 FLAG2 .DS 1 6583- 4720 FLAG3 .DS 1 6584- 4725 DELET_FLG .DS 1 6585- 4730 FLAG5 .DS 1 6586- 4735 FLAG6 .DS 1 6587- 4740 FLAG7 .DS 1 6588- 4745 FLAG8 .DS 1 6589- 4750 FLAG9 .DS 3 658C- 4755 FLAGC .DS 1 658D- 4760 FLAGD .DS 1 658E- 4765 FLAGE .DS 1 658F- 4770 FLAGF .DS 1 6590- 4775 FLAG90 .DS 1 6591- 4780 FLAG91 .DS 1 6592- 4785 FLAG92 .DS 1 6593- 4790 FLAG93 .DS 17 4795 65A4- 68 4800 INPUT PLA 65A5- 68 4805 PLA 65A6- AD 30 68 4810 LDA A6830 65A9- D0 15 4815 BNE B65C0 4820 ; 65AB- 2C 33 68 4825 BIT A6833 65AE- 10 05 4830 BPL B65B5 4835 ; 65B0- C6 88 4840 DEC *TOPMEM+1 65B2- EE 33 68 4845 INC A6833 65B5- 20 D1 65 4850 B65B5 JSR S65D1 65B8- 8C 30 68 4855 J65B8 STY A6830 65BB- A9 00 4860 LDA #$00 ;^@ 65BD- 8D 31 68 4865 STA A6831 65C0- AC 31 68 4870 B65C0 LDY A6831 65C3- B9 35 01 4875 LDA BAS_BUFR,Y 65C6- EE 31 68 4880 INC A6831 65C9- CE 30 68 4885 DEC A6830 65CC- C9 0D 4890 CMP #$0D ;^M 65CE- 4C 3E 8A 4895 JMP INRT2 4900 ; 65D1- A0 00 4905 S65D1 LDY #$00 ;^@ 65D3- 2C 32 68 4910 BIT A6832 65D6- 10 28 4915 BPL B6600 4920 ; 65D8- A5 FF 4925 LDA *ZFF 65DA- AA 4930 TAX 65DB- 20 0B 68 4935 JSR S680B 65DE- A5 FE 4940 LDA *ZFE 65E0- 20 0B 68 4945 JSR S680B 65E3- A5 FE 4950 LDA *ZFE 65E5- 20 F4 82 4955 JSR OUTXAH 65E8- 20 42 83 4960 JSR SPACE 65EB- A9 20 4965 LDA #$20 ; 65ED- 99 35 01 4970 STA BAS_BUFR,Y 65F0- C8 4975 INY 65F1- 18 4980 CLC 65F2- F8 4985 SED 65F3- A5 FE 4990 LDA *ZFE 65F5- 65 FA 4995 ADC *ZFA 65F7- 85 FE 5000 STA *ZFE 65F9- A5 FF 5005 LDA *ZFF 65FB- 65 FB 5010 ADC *ZFB 65FD- 85 FF 5015 STA *ZFF 65FF- D8 5020 CLD 6600- 20 E5 67 5025 B6600 JSR S67E5 6603- F0 FB 5030 BEQ B6600 5035 ; 6605- 99 35 01 5040 STA BAS_BUFR,Y 6608- C8 5045 INY 6609- C9 0D 5050 CMP #$0D ;^M 660B- D0 01 5055 BNE B660E 5060 ; 660D- 60 5065 RTS 5070 ; 660E- C9 01 5075 B660E CMP #$01 ;^A 6610- D0 41 5080 BNE B6653 5085 ; 6612- C0 06 5090 CPY #$06 ;^F 6614- F0 69 5095 BEQ J667F 5100 ; 6616- C0 01 5105 CPY #$01 ;^A 6618- D0 39 5110 BNE B6653 5115 ; 661A- A9 41 5120 LDA #$41 ;A 661C- 20 4F 75 5125 JSR S754F 661F- 20 42 83 5130 JSR SPACE 6622- 20 86 8B 5135 JSR ACCESS 6625- 20 20 82 5140 JSR PARM 6628- F0 05 5145 BEQ B662F 5150 ; 662A- A2 08 5155 LDX #$08 ;^H 662C- 4C 58 C2 5160 JMP ERRMSG 5165 ; 662F- AC 49 A6 5170 B662F LDY PARNR 6632- F0 14 5175 BEQ B6648 5180 ; 6634- 88 5185 DEY 6635- D0 0B 5190 BNE B6642 5195 ; 6637- 20 08 82 5200 JSR PSHOVE 663A- A9 10 5205 LDA #$10 ;^P 663C- 8D 4A A6 5210 STA P3L 663F- 8C 4B A6 5215 STY P3H 6642- 20 72 88 5220 B6642 JSR PTRIN 6645- 20 9C 82 5225 JSR P2SCR 6648- A9 FF 5230 B6648 LDA #$FF ;. 664A- 8D 32 68 5235 STA A6832 664D- 20 8A 75 5240 JSR S758A 6650- 4C D1 65 5245 B6650 JMP S65D1 5250 ; 6653- C9 08 5255 B6653 CMP #$08 ;^H 6655- D0 0A 5260 BNE B6661 5265 ; 6657- 88 5270 DEY 6658- 88 5275 DEY 6659- 30 F5 5280 BMI B6650 5285 ; 665B- 20 DD 67 5290 JSR S67DD 665E- 4C 00 66 5295 JMP B6600 5300 ; 6661- C9 18 5305 B6661 CMP #$18 ;^X 6663- D0 09 5310 BNE B666E 5315 ; 6665- 88 5320 J6665 DEY 6666- F0 E8 5325 BEQ B6650 5330 ; 6668- 20 D8 67 5335 JSR S67D8 666B- 4C 65 66 5340 JMP J6665 5345 ; 666E- C9 03 5350 B666E CMP #$03 ;^C 6670- D0 8E 5355 BNE B6600 5360 ; 6672- A9 58 5365 LDA #L,INTCHR 6674- 8D 61 A6 5370 STA INVEC 6677- A9 8A 5375 LDA #H,INTCHR 6679- 8D 62 A6 5380 STA INVEC+1 667C- 20 35 80 5385 JSR USRENT 667F- A9 00 5390 J667F LDA #$00 ;^@ 6681- 8D 30 68 5395 STA A6830 6684- 20 94 67 5400 JSR S6794 6687- 4C 7E C2 5405 JMP BAS.WARM 5410 ; 668A- C9 2E 5415 B668A CMP #$2E 668C- F0 0A 5420 BEQ B6698 5425 ; 668E- 38 5430 B668E SEC 668F- E9 30 5435 SBC #$30 ;0 6691- 4C E0 00 5440 JMP ZE0 5445 ; 6694- A9 2E 5450 B6694 LDA #$2E ;. 6696- D0 F6 5455 BNE B668E 5460 ; 6698- BA 5465 B6698 TSX 6699- 86 15 5470 STX *Z15 669B- A9 D3 5475 LDA #$D3 ;.S 669D- DD 01 01 5480 CMP STACK,X 66A0- D0 F2 5485 BNE B6694 5490 ; 66A2- A9 C5 5495 LDA #$C5 ;.E 66A4- DD 02 01 5500 CMP STACK+1,X 66A7- D0 EB 5505 BNE B6694 5510 ; 66A9- 20 F8 67 5515 JSR S67F8 66AC- A9 20 5520 LDA #$20 ; 66AE- 8D 83 72 5525 STA A7283 66B1- 20 34 76 5530 JSR SET2 66B4- A0 FF 5535 LDY #$FF ;. 66B6- 8C 7C 65 5540 STY TMPEN_FLG 66B9- 8C 7D 65 5545 STY CHAIN_FLG 66BC- 8C 7E 65 5550 STY RUN_FLG 66BF- 8C 7F 65 5555 STY APPEND_FLG 66C2- 8C 80 65 5560 STY FLAG 66C5- 8C 82 65 5565 STY FLAG2 66C8- 8C 84 65 5570 STY DELET_FLG 66CB- 8C 70 72 5575 STY A7270 66CE- C8 5580 INY 66CF- 20 EB 67 5585 JSR OUR_GET 66D2- AE FA 66 5590 LDX CMDS 66D5- A0 00 5595 B66D5 LDY #$00 ;^@ 66D7- B1 D3 5600 LDA (CHRGOT+1),Y 66D9- DD FB 66 5605 CMP CMDS+1,X 66DC- D0 08 5610 BNE B66E6 5615 ; 66DE- C8 5620 INY 66DF- B1 D3 5625 LDA (CHRGOT+1),Y 66E1- DD FC 66 5630 CMP CMDS+2,X 66E4- F0 07 5635 BEQ B66ED 5640 ; 66E6- CA 5645 B66E6 DEX 66E7- CA 5650 DEX 66E8- 10 EB 5655 BPL B66D5 5660 ; 66EA- 4C 34 60 5665 JMP B6034 5670 ; 66ED- 88 5675 B66ED DEY 66EE- 20 EB 67 5680 JSR OUR_GET 66F1- BD 14 67 5685 LDA CMDS1+1,X 66F4- 48 5690 PHA 66F5- BD 13 67 5695 LDA CMDS1,X 66F8- 48 5700 PHA 66F9- 60 5705 RTS 5710 ; 66FA- 16 45 4E 5715 CMDS .BY $16 'EN' 'LO' $93 66FD- 4C 4F 93 6700- 20 44 43 5720 .BY ' DC' 'NU' 'GT' 6703- 4E 55 47 6706- 54 6707- 42 59 44 5725 .BY 'BY' 'DE' 'CH' 670A- 45 43 48 670D- 52 55 41 5730 .BY 'RU' 'AP' 'DI' 6710- 50 44 49 5735 5740 CMDS1 6713- 50 60 5745 EN .SI TEMPEN-1 6715- 53 60 5750 LO .SI LOAD-1 6717- 53 60 5755 LO1 .SI LOAD-1 6719- 2A 67 5760 DC .SI DCCMD-1 671B- 6C 67 5765 NU .SI NUM-1 671D- 7F 67 5770 GT .SI GOTO-1 671F- 7F 73 5775 BY .SI FODS_WARM-1 6721- 3E 60 5780 DE .SI DELET-1 6723- 43 60 5785 CH .SI CHAIN-1 6725- 46 60 5790 RU .SI RUN-1 6727- 4B 60 5795 AP .SI APPEND-1 6729- 8C 62 5800 DI .SI DIR-1 5805 672B- A2 00 5810 DCCMD LDX #$00 672D- 20 CC 00 5815 JSR CHRGET 6730- C9 2C 5820 CMP #$2C ;, 6732- D0 07 5825 BNE B673B 5830 ; 6734- 20 CC 00 5835 JSR CHRGET 6737- C9 22 5840 CMP #$22 ;" 6739- F0 07 5845 BEQ B6742 5850 ; 673B- 4C 34 60 5855 B673B JMP B6034 5860 ; 673E- 9D 80 72 5865 B673E STA TXBUF,X 6741- E8 5870 INX 6742- 20 EB 67 5875 B6742 JSR OUR_GET 6745- F0 07 5880 BEQ B674E 5885 ; 6747- C9 22 5890 CMP #$22 ;" 6749- D0 F3 5895 BNE B673E 5900 ; 674B- 20 CC 00 5905 JSR CHRGET 674E- A9 0D 5910 B674E LDA #$0D ;^M 6750- 9D 80 72 5915 STA TXBUF,X 6753- 20 B3 79 5920 JSR CMDINT 6756- 20 62 67 5925 BRK.VEC JSR RET_ZPAGE 6759- A6 15 5930 LDX *Z15 675B- 9A 5935 TXS 675C- 20 03 68 5940 JSR OFF_DISK 675F- 4C D2 00 5945 JMP CHRGOT 5950 ; 6762- A2 0F 5955 RET_ZPAGE LDX #$0F ;^O 6764- BD 20 68 5960 B6764 LDA TMP_PAGE_A,X 6767- 95 A0 5965 STA *ZA0,X 6769- CA 5970 DEX 676A- 10 F8 5975 BPL B6764 5980 ; 676C- 60 5985 RTS 5990 ; 676D- A2 00 5995 NUM LDX #$00 676F- BD 34 68 6000 B676F LDA NUM.MSG,X 6772- F0 06 6005 BEQ B677A 6010 ; 6774- 9D 80 72 6015 STA TXBUF,X 6777- E8 6020 INX 6778- D0 F5 6025 BNE B676F 6030 ; 677A- 20 B3 79 6035 B677A JSR CMDINT 677D- 4C 62 67 6040 JMP RET_ZPAGE 6045 ; 6780- 20 CC 00 6050 GOTO JSR CHRGET 6783- 20 43 CB 6055 JSR EVARG 6786- 20 AD D5 6060 JSR INTFLT 6789- 20 32 C7 6065 JSR ENGOTO 678C- 4C 62 67 6070 JMP RET_ZPAGE 6075 ; 678F- A9 FF 6080 S678F LDA #$FF ;. 6791- 8D 33 68 6085 STA A6833 6794- 20 03 68 6090 S6794 JSR OFF_DISK 6797- 20 86 8B 6095 JSR ACCESS 679A- A9 56 6100 LDA #L,BRK.VEC 679C- 8D 76 A6 6105 STA USR_IRQ 679F- EA 6110 NOP 67A0- EA 6115 NOP 67A1- EA 6120 NOP 67A2- A9 67 6125 LDA #H,BRK.VEC 67A4- 8D 77 A6 6130 STA USR_IRQ+1 67A7- EA 6135 NOP 67A8- EA 6140 NOP 67A9- EA 6145 NOP 67AA- A9 A4 6150 LDA #L,INPUT 67AC- 8D 61 A6 6155 STA INVEC 67AF- A9 65 6160 LDA #H,INPUT 67B1- 8D 62 A6 6165 STA INVEC+1 67B4- A9 DF 6170 LDA #L,TRIGST 67B6- 85 C4 6175 STA *TRIG.JMP 67B8- A9 68 6180 LDA #H,TRIGST 67BA- 85 C5 6185 STA *TRIG.JMP+1 67BC- A9 4C 6190 LDA #$4C ;L 67BE- 85 DD 6195 STA *ZDD 67C0- A9 8A 6200 LDA #L,B668A 67C2- 85 DE 6205 STA *ZDE 67C4- A9 66 6210 LDA #H,B668A 67C6- 85 DF 6215 STA *ZDF 67C8- A9 10 6220 LDA #$10 ;^P 67CA- 85 FA 6225 STA *ZFA 67CC- 85 FE 6230 STA *ZFE 67CE- A9 00 6235 LDA #$00 ;^@ 67D0- 85 FB 6240 STA *ZFB 67D2- 85 FF 6245 STA *ZFF 67D4- 8D 32 68 6250 STA A6832 67D7- 60 6255 RTS 6260 ; 67D8- A9 08 6265 S67D8 LDA #$08 ;^H 67DA- 20 4F 75 6270 JSR S754F 67DD- 20 42 83 6275 S67DD JSR SPACE 67E0- A9 08 6280 LDA #$08 ;^H 67E2- 4C 4F 75 6285 JMP S754F 6290 ; 67E5- 20 58 8A 6295 S67E5 JSR INTCHR 67E8- 29 7F 6300 AND #$7F ; 67EA- 60 6305 RTS 6310 ; 67EB- E6 D3 6315 OUR_GET INC *CHRGOT+1 67ED- D0 02 6320 BNE B67F1 6325 ; 67EF- E6 D4 6330 INC *CHRGOT+2 67F1- B1 D3 6335 B67F1 LDA (CHRGOT+1),Y 67F3- F0 02 6340 BEQ B67F7 6345 ; 67F5- C9 3A 6350 CMP #$3A ;: 67F7- 60 6355 B67F7 RTS 6360 ; 67F8- A2 0F 6365 S67F8 LDX #$0F ;^O 67FA- B5 A0 6370 B67FA LDA *ZA0,X 67FC- 9D 20 68 6375 STA TMP_PAGE_A,X 67FF- CA 6380 DEX 6800- 10 F8 6385 BPL B67FA 6390 ; 6802- 60 6395 RTS 6400 ; 6803- A9 20 6405 OFF_DISK LDA #$20 ; 6805- 20 5D 76 6410 JSR DSKRW 6808- 4C 34 76 6415 JMP SET2 6420 ; 680B- 48 6425 S680B PHA 680C- 4A 6430 LSR A 680D- 4A 6435 LSR A 680E- 4A 6440 LSR A 680F- 4A 6445 LSR A 6810- 20 09 83 6450 JSR NIBASC 6813- 99 35 01 6455 STA BAS_BUFR,Y 6816- C8 6460 INY 6817- 68 6465 PLA 6818- 20 09 83 6470 JSR NIBASC 681B- 99 35 01 6475 STA BAS_BUFR,Y 681E- C8 6480 INY 681F- 60 6485 RTS 6490 ; 6820- 6495 TMP_PAGE_A .DS 16 6830- 6500 A6830 .DS 1 6831- 6505 A6831 .DS 1 6832- 6510 A6832 .DS 1 6833- 6515 A6833 .DS 1 6834- 4E 55 4D 6520 NUM.MSG .BY 'NUM ' $00 6837- 20 00 6839- 30 38 31 6525 MEM_DFLT .BY '08192' $0D 683C- 39 32 0D 6530 6535 ; TRIG PATCH 6540 683F- 0B 6545 CONST1 .BY $0B 6840- 76 B3 83 6550 .BY $76 $B3 $83 $BD $D3 6843- BD D3 6845- 79 1E F4 6555 .BY $79 $1E $F4 $A6 $F5 6848- A6 F5 684A- 7B 83 FC 6560 .BY $7B $83 $FC $B0 $10 684D- B0 10 684F- 7C 0C 1F 6565 .BY $7C $0C $1F $67 $CA 6852- 67 CA 6854- 7C DE 53 6570 .BY $7C $DE $53 $CB $C1 6857- CB C1 6859- 7D 14 64 6575 .BY $7D $14 $64 $70 $4C 685C- 70 4C 685E- 7D B7 EA 6580 .BY $7D $B7 $EA $51 $7A 6861- 51 7A 6863- 7D 63 30 6585 .BY $7D $63 $30 $88 $7E 6866- 88 7E 6868- 7E 92 44 6590 .BY $7E $92 $44 $99 $3A 686B- 99 3A 686D- 7E 4C CC 6595 .BY $7E $4C $CC $91 $C7 6870- 91 C7 6872- 7F AA AA 6600 .BY $7F $AA $AA $AA $13 6875- AA 13 6877- 81 00 00 6605 .BY $81 $00 $00 $00 $00 687A- 00 00 6610 687C- A5 B6 6615 ATAN LDA *SIGN.1 687E- 48 6620 PHA 687F- 10 03 6625 BPL B6884 6630 ; 6881- 20 36 DD 6635 JSR CHGSGN 6884- A5 B1 6640 B6884 LDA *EXP 6886- 48 6645 PHA 6887- C5 81 6650 CMP *PROGEND 6889- 90 07 6655 BCC B6892 6660 ; 688B- A9 72 6665 LDA #L,CONSTANT 688D- A0 D7 6670 LDY #H,CONSTANT 688F- 20 C5 D8 6675 JSR DIVMF 6892- A9 3F 6680 B6892 LDA #L,CONST1 6894- A0 68 6685 LDY #H,CONST1 6896- 20 C2 DD 6690 JSR FLOAT1 6899- 68 6695 PLA 689A- C9 81 6700 CMP #$81 ;.^A 689C- 90 07 6705 BCC B68A5 6710 ; 689E- A9 AC 6715 LDA #L,CONST2 68A0- A0 68 6720 LDY #H,CONST2 68A2- 20 06 D6 6725 JSR SUBMF 68A5- 68 6730 B68A5 PLA 68A6- 10 03 6735 BPL B68AB 6740 ; 68A8- 4C 36 DD 6745 JMP CHGSGN 6750 ; 68AB- 60 6755 B68AB RTS 6760 ; 68AC- 81 49 0F 6765 CONST2 .BY $81 $49 $0F $DA $A2 68AF- DA A2 68B1- 7F 00 00 6770 CONST3 .BY $7F $00 $00 $00 $00 68B4- 00 00 6775 68B6- 05 6780 CONST4 .BY $05 68B7- 84 E6 1A 6785 .BY $84 $E6 $1A $2D $1B 68BA- 2D 1B 68BC- 86 28 07 6790 .BY $86 $28 $07 $FB $F8 68BF- FB F8 68C1- 87 99 68 6795 .BY $87 $99 $68 $89 $01 68C4- 89 01 68C6- 87 23 35 6800 .BY $87 $23 $35 $DF $E1 68C9- DF E1 68CB- 86 A5 5D 6805 .BY $86 $A5 $5D $E7 $28 68CE- E7 28 6810 68D0- 83 49 0F 6815 CONST5 .BY $83 $49 $0F $DA $A2 68D3- DA A2 68D5- A1 54 46 6820 .BY $A1 $54 $46 $8F $13 68D8- 8F 13 68DA- 8F 52 43 6825 .BY $8F $52 $43 $89 $CD 68DD- 89 CD 6830 68DF- C0 72 6835 TRIGST CPY #$72 68E1- F0 44 6840 BEQ B6927 6845 ; 68E3- 90 3B 6850 BCC B6920 6855 ; 68E5- C0 76 6860 CPY #$76 ;v 68E7- F0 93 6865 BEQ ATAN 6870 ; 68E9- 20 80 D9 6875 JSR FLOAT2 68EC- A9 00 6880 LDA #$00 ;^@ 68EE- 85 16 6885 STA *COM.FLG 68F0- A9 68 6890 LDA #$68 ;h 68F2- 48 6895 PHA 68F3- A9 F9 6900 LDA #$F9 ;.y 68F5- 48 6905 PHA 68F6- 4C 27 69 6910 JMP B6927 6915 ; 68F9- EA 6920 NOP 68FA- A2 9E 6925 LDX #$9E ;.^^ 68FC- A0 00 6930 LDY #$00 ;^@ 68FE- 20 8A D9 6935 JSR FLOAT3 6901- A9 A7 6940 LDA #$A7 ;.' 6903- A0 00 6945 LDY #$00 ;^@ 6905- 20 58 D9 6950 JSR MEMFAC 6908- A9 00 6955 LDA #$00 ;^@ 690A- 85 B6 6960 STA *SIGN.1 690C- A9 69 6965 LDA #$69 ;i 690E- 48 6970 PHA 690F- A9 18 6975 LDA #$18 ;^X 6911- 48 6980 PHA 6912- A5 16 6985 LDA *COM.FLG 6914- 48 6990 PHA 6915- 4C 59 69 6995 JMP J6959 7000 ; 6918- EA 7005 NOP 6919- A9 9E 7010 LDA #$9E ;.^^ 691B- A0 00 7015 LDY #$00 ;^@ 691D- 4C C5 D8 7020 JMP DIVMF 7025 ; 6920- A9 AC 7030 B6920 LDA #L,CONST2 6922- A0 68 7035 LDY #H,CONST2 6924- 20 1D D6 7040 JSR ADDMF 6927- 20 C2 D9 7045 B6927 JSR FLOAT4 692A- A9 D0 7050 LDA #L,CONST5 692C- A0 68 7055 LDY #H,CONST5 692E- A6 BE 7060 LDX *SIGN.2 6930- 20 BD D8 7065 JSR DIVAM 6933- 20 C2 D9 7070 JSR FLOAT4 6936- 20 82 DA 7075 JSR INTFAC 6939- A9 00 7080 LDA #$00 ;^@ 693B- 85 BF 7085 STA *SIGN.COM 693D- 20 09 D6 7090 JSR SUBAF 6940- A9 B1 7095 LDA #L,CONST3 6942- A0 68 7100 LDY #H,CONST3 6944- 20 06 D6 7105 JSR SUBMF 6947- A5 B6 7110 LDA *SIGN.1 6949- 48 7115 PHA 694A- 10 0D 7120 BPL J6959 7125 ; 694C- 20 FF D5 7130 JSR ADDHALF 694F- A5 B6 7135 LDA *SIGN.1 6951- 30 09 7140 BMI B695C 7145 ; 6953- A5 16 7150 LDA *COM.FLG 6955- 49 FF 7155 EOR #$FF ;. 6957- 85 16 7160 STA *COM.FLG 6959- 20 36 DD 7165 J6959 JSR CHGSGN 695C- A9 B1 7170 B695C LDA #L,CONST3 695E- A0 68 7175 LDY #H,CONST3 6960- 20 1D D6 7180 JSR ADDMF 6963- 68 7185 PLA 6964- 10 03 7190 BPL B6969 7195 ; 6966- 20 36 DD 7200 JSR CHGSGN 6969- A9 B6 7205 B6969 LDA #L,CONST4 696B- A0 68 7210 LDY #H,CONST4 696D- 4C C2 DD 7215 JMP FLOAT1 7220 ; 7225 .EN 0000,6970,6970 >