Z80BASIC.zdsp 7/30/2025 15:36:2 //////////////////////////////////////////////////////////////////// INCLUDE Z80BASIC_EQU.asm xRAMSTART EQU 8000 xISRSTART EQU 0000 xBASICSTART EQU 0150 xROMSIZE EQU 2000 xTMPSTACKOS EQU 00ED xWSOFFSET EQU 0045 ORG 0000 DEFS 8192 bytes = FF RTS_HIGH EQU 00D6 RTS_LOW EQU 0096 SIO_CONTROL EQU 0080 SIO_DATA EQU 0081 SER_BUFFERSIZE EQU 003F SER_FULLSIZE EQU 0030 SER_EMPTYSIZE EQU 0005 SER_BUFFER EQU 8000 SER_INPOINTER EQU 803F SER_RDPOINTER EQU 8041 SER_BUFFERUSED EQU 8043 BASICSTARTED EQU 8044 TEMPSTACK EQU 80ED CTRLC EQU 0003 CTRLG EQU 0007 BKSP EQU 0008 LF EQU 000A CS EQU 000C CR EQU 000D CTRLO EQU 000F CTRLQ EQU 0011 CTRLR EQU 0012 CTRLS EQU 0013 CTRLU EQU 0015 ESC EQU 001B DEL EQU 007F WS EQU 8045 wWARMSTART EQU 8045 wUSRFUNCT EQU 8048 wOUTSUB EQU 804B wOUTPORT EQU 804C wDIVSUPPORT EQU 804E wDIV1 EQU 804F wDIV2 EQU 8053 wDIV3 EQU 8057 wDIV4 EQU 805A wSEED EQU 805C wLASTRANDOM EQU 807F wINSUB EQU 8083 wINPORT EQU 8084 wNULLS EQU 8086 wTERMWIDTH EQU 8087 wCOMMAWIDTH EQU 8088 wNULLFLAG EQU 8089 wCTRLOFLAG EQU 808A wLINECOUNTER EQU 808B wLINENUMBER EQU 808D wCHECKSUM EQU 808F wNMIFLAG EQU 8091 wBREAKFLAG EQU 8092 wRINPUT EQU 8093 wPOINT EQU 8096 wSET EQU 8099 wRESET EQU 809C wSTRINGSPACE EQU 809F wTHISLINE EQU 80A1 wBASTXTBEG EQU 80A3 wBUFFER EQU 80A6 wSTACK EQU 80AB wCURSORPOS EQU 80F0 wLCRFLAG EQU 80F1 wDATATYPE EQU 80F2 wDATAFLAG EQU 80F3 wLASTRAM EQU 80F4 wTMPSTRPTR EQU 80F6 wTMPSTRPOOL EQU 80F8 wTMPSTRING EQU 8104 wSTRINGBOTTOM EQU 8108 wTHISOPERATOR EQU 810A wLOOPSTART EQU 810C wDATALINE EQU 810E wFORFLAG EQU 8110 wLASTBYTEIN EQU 8111 wREADFLAG EQU 8112 wBREAKLINE EQU 8113 wNEXTOPERATOR EQU 8115 wERRORLINE EQU 8117 wCONTINUEADDR EQU 8119 wPROGRAMEND EQU 811B wVARIABLESEND EQU 811D wARRAYSEND EQU 811F wNEXTDATA EQU 8121 wFUNCTARGNAME EQU 8123 wFUNCTNARG EQU 8125 wFLOATMAN EQU 8129 wFLOATEXP EQU 812C wSIGNRESULT EQU 812D wPRINTBUFF EQU 812E wMULTVALUE EQU 813B wPROGRAMBEG EQU 813E wMEMTESTBEG EQU 81A2 eNF EQU 0000 eSN EQU 0002 eRG EQU 0004 eOD EQU 0006 eFC EQU 0008 eOF EQU 000A eOM EQU 000C eUL EQU 000E eBS EQU 0010 eDD EQU 0012 eDZ EQU 0014 eID EQU 0016 eTM EQU 0018 eOS EQU 001A eLS EQU 001C eST EQU 001E eCN EQU 0020 eUF EQU 0022 eMO EQU 0024 eHX EQU 0026 eBN EQU 0028 tDATA EQU 0083 tDIV EQU 00AF tEND EQU 0080 tEQUAL EQU 00B4 tFN EQU 00A7 tFOR EQU 0081 tGOSUB EQU 008C tGOTO EQU 0088 tGTH EQU 00B3 tLEFT EQU 00CF tLTH EQU 00B5 tMINUS EQU 00AD tNEW EQU 00A4 tNOT EQU 00AA tOR EQU 00B2 tPLUS EQU 00AC tPOINT EQU 00C7 tPRINT EQU 009E tREM EQU 008E tSGN EQU 00B6 tSTEP EQU 00AB tTAB EQU 00A5 tTO EQU 00A6 tSPC EQU 00A8 tTHEN EQU 00A9 tTIMES EQU 00AE End of INCLUDE //////////////////////////////////////////////////////////////////// INCLUDE Z80BASIC_ISR.asm ORG 0000 0000:F3 RST00 DI 0001:C3B800 JP ISR_INITIALIZE ORG 0008 0008:C39F00 RST08 JP SER_TRANSMIT ORG 0010 0010:C37400 RST10 JP SER_RECEIVE ORG 0018 0018:C3AA00 RST18 JP CKINCHAR ORG 0038 0038:1800 RST38 JR SER_INITIALIZE 003A:F5 SER_INITIALIZE PUSH AF 003B:E5 PUSH HL 003C:DB80 IN A,(80) 003E:E601 AND 01 0040:282D JR Z,SER_RTS0 0042:DB81 IN A,(81) 0044:F5 PUSH AF 0045:3A4380 LD A,(SER_BUFFERUSED) 0048:FE3F CP 3F 004A:2003 JR NZ,SER_NOTFULL 004C:F1 POP AF 004D:1820 JR SER_RTS0 004F:2A3F80 SER_NOTFULL LD HL,(SER_INPOINTER) 0052:23 INC HL 0053:7D LD A,L 0054:FE3F CP 3F 0056:2003 JR NZ,SER_NOTWRAP 0058:210080 LD HL,xRAMSTART 005B:223F80 SER_NOTWRAP LD (SER_INPOINTER),HL 005E:F1 POP AF 005F:77 LD (HL),A 0060:3A4380 LD A,(SER_BUFFERUSED) 0063:3C INC A 0064:324380 LD (SER_BUFFERUSED),A 0067:FE30 CP 30 0069:3804 JR C,SER_RTS0 006B:3ED6 LD A,D6 006D:D380 OUT (80),A 006F:E1 SER_RTS0 POP HL 0070:F1 POP AF 0071:FB EI 0072:ED4D RETI 0074:3A4380 SER_RECEIVE LD A,(SER_BUFFERUSED) 0077:FE00 CP 00 0079:28F9 JR Z,SER_RECEIVE 007B:E5 PUSH HL 007C:2A4180 LD HL,(SER_RDPOINTER) 007F:23 INC HL 0080:7D LD A,L 0081:FE3F CP 3F 0083:2003 JR NZ,SER_NOTRDWRAP 0085:210080 LD HL,xRAMSTART 0088:F3 SER_NOTRDWRAP DI 0089:224180 LD (SER_RDPOINTER),HL 008C:3A4380 LD A,(SER_BUFFERUSED) 008F:3D DEC A 0090:324380 LD (SER_BUFFERUSED),A 0093:FE05 CP 05 0095:3004 JR NC,SER_RTS1 0097:3E96 LD A,96 0099:D380 OUT (80),A 009B:7E SER_RTS1 LD A,(HL) 009C:FB EI 009D:E1 POP HL 009E:C9 RET 009F:F5 SER_TRANSMIT PUSH AF 00A0:DB80 SER_CONOUT1 IN A,(80) 00A2:CB4F BIT 1,A 00A4:28FA JR Z,SER_CONOUT1 00A6:F1 POP AF 00A7:D381 OUT (81),A 00A9:C9 RET 00AA:3A4380 CKINCHAR LD A,(SER_BUFFERUSED) 00AD:FE00 CP 00 00AF:C9 RET 00B0:7E ISR_PRINT LD A,(HL) 00B1:B7 OR A 00B2:C8 RET Z 00B3:CF RST 08 00B4:23 INC HL 00B5:18F9 JR ISR_PRINT 00B7:C9 RET 00B8:21ED80 ISR_INITIALIZE LD HL,TEMPSTACK 00BB:F9 LD SP,HL 00BC:210080 LD HL,xRAMSTART 00BF:223F80 LD (SER_INPOINTER),HL 00C2:224180 LD (SER_RDPOINTER),HL 00C5:AF XOR A 00C6:324380 LD (SER_BUFFERUSED),A 00C9:3E96 LD A,96 00CB:D380 OUT (80),A 00CD:ED56 IM 1 00CF:FB EI 00D0:210901 LD HL,DISP_SIGNON1 00D3:CDB000 CALL ISR_PRINT 00D6:3A4480 LD A,(BASICSTARTED) 00D9:FE59 CP 59 00DB:2016 JR NZ,ISR_COLDSTART 00DD:212401 LD HL,DISP_SIGNON2 00E0:CDB000 CALL ISR_PRINT 00E3:CD7400 ISR_CORW CALL SER_RECEIVE 00E6:E6DF AND DF 00E8:FE43 CP 43 00EA:200F JR NZ,ISR_CHECKWARM 00EC:CF RST 08 00ED:3E0D LD A,0D 00EF:CF RST 08 00F0:3E0A LD A,0A 00F2:CF RST 08 00F3:3E59 ISR_COLDSTART LD A,59 00F5:324480 LD (BASICSTARTED),A 00F8:C35001 JP BASIC_COLD 00FB:FE57 ISR_CHECKWARM CP 57 00FD:20E4 JR NZ,ISR_CORW 00FF:CF RST 08 0100:3E0D LD A,0D 0102:CF RST 08 0103:3E0A LD A,0A 0105:CF RST 08 0106:C35301 JP BASIC_WARM 0109:0C DISP_SIGNON1 DEFB of1 010A:5A383020 DEFB of26 010E:53424320 0112:42792047 0116:72616E74 011A:20536561 011E:726C650D 0122:0A00 0124:0D0A DISP_SIGNON2 DEFB of2 0126:436F6C64 DEFB of30 012A:206F7220 012E:7761726D 0132:20737461 0136:72742028 013A:43206F72 013E:2057293F 0142:2000 End of INCLUDE //////////////////////////////////////////////////////////////////// ORG 0150 0150:C35601 BASIC_COLD JP COLDSTART 0153:C3F401 BASIC_WARM JP WARMSTART 0156:DD210000 COLDSTART LD IX,0000 015A:C36101 JP CSTART 015D:070A TABLE_INTEGER DEFW of1 015F:7D11 DEFW of1 0161:214580 CSTART LD HL,WS 0164:F9 LD SP,HL 0165:C39C1D JP INITBREAK 0168:112E04 INITBASIC LD DE,042E 016B:0663 LD B,63 016D:214580 LD HL,WS 0170:1A COPYWSPC_LOOP LD A,(DE) 0171:77 LD (HL),A 0172:23 INC HL 0173:13 INC DE 0174:05 DEC B 0175:C27001 JP NZ,COPYWSPC_LOOP 0178:F9 LD SP,HL 0179:CD2F06 CALL NEW_CLEARREGS 017C:CDFD0B CALL PRINT_CRLF 017F:32EF80 LD (80EF),A 0182:323E81 LD (wPROGRAMBEG),A 0185:214302 MESSAGESIZE LD HL,DISP_MEMTOP 0188:CD9B12 CALL STR_PRINTSTR 018B:CD4C06 CALL NEW_INPWPROMPT 018E:CD5509 CALL GETBYTEFROMRAM 0191:B7 OR A 0192:C2AA01 JP NZ,TESTMEMORY 0195:21A281 LD HL,wMEMTESTBEG 0198:23 MESSAGELOOP INC HL 0199:7C LD A,H 019A:B5 OR L 019B:CABC01 JP Z,SETMEMORYTOP 019E:7E LD A,(HL) 019F:47 LD B,A 01A0:2F CPL 01A1:77 LD (HL),A 01A2:BE CP (HL) 01A3:70 LD (HL),B 01A4:CA9801 JP Z,MESSAGELOOP 01A7:C3BC01 JP SETMEMORYTOP 01AA:CD210A TESTMEMORY CALL ASC2DE 01AD:B7 OR A 01AE:C2FD04 JP NZ,ERROR_SN 01B1:EB EX DE,HL 01B2:2B DEC HL 01B3:3ED9 LD A,D9 01B5:46 LD B,(HL) 01B6:77 LD (HL),A 01B7:BE CP (HL) 01B8:70 LD (HL),B 01B9:C28501 JP NZ,MESSAGESIZE 01BC:2B SETMEMORYTOP DEC HL 01BD:11A181 LD DE,81A1 01C0:CDC507 CALL COMPAREDEHL 01C3:DA8501 JP C,MESSAGESIZE 01C6:11CEFF LD DE,FFCE 01C9:22F480 LD (wLASTRAM),HL 01CC:19 ADD HL,DE 01CD:229F80 LD (wSTRINGSPACE),HL 01D0:CD0A06 CALL NEW_CLEARPTR 01D3:2A9F80 LD HL,(wSTRINGSPACE) 01D6:11EFFF LD DE,FFEF 01D9:19 ADD HL,DE 01DA:113E81 LD DE,813E 01DD:7D LD A,L 01DE:93 SUB E 01DF:6F LD L,A 01E0:7C LD A,H 01E1:9A SBC A,D 01E2:67 LD H,A 01E3:E5 PUSH HL 01E4:210C02 LD HL,DISP_SIGNON 01E7:CD9B12 CALL STR_PRINTSTR 01EA:E1 POP HL 01EB:CD3E19 CALL ASC2FLT_PRNTHL 01EE:21FD01 LD HL,DISP_BYTESFREE 01F1:CD9B12 CALL STR_PRINTSTR 01F4:31AB80 WARMSTART LD SP,80AB 01F7:CD2F06 BREAKRETURN CALL NEW_CLEARREGS 01FA:C34805 JP PRINTERR_PUTOK 01FD:20427974 DISP_BYTESFREE DEFB of15 0201:65732066 0205:7265650D 0209:0A0000 020C:5A383020 DISP_SIGNON DEFB of20 0210:42415349 0214:43205665 0218:7220342E 021C:37620D0A 0220:436F7079 DEFB of13 0224:72696768 0228:74202843 022C:29 022D:20313937 DEFB of22 0231:38206279 0235:204D6963 0239:726F736F 023D:66740D0A 0241:0000 0243:4D656D6F DISP_MEMTOP DEFB of11 0247:72792074 024B:6F7000 024E:B317 TABLE_FUNCTION DEFW of1 0250:7718 DEFW of1 0252:C917 DEFW of1 0254:4880 DEFW of1 0256:5B11 DEFW of1 0258:E014 DEFW of1 025A:8911 DEFW of1 025C:3D1A DEFW of1 025E:1C1B DEFW of1 0260:5816 DEFW of1 0262:8B1A DEFW of1 0264:911B DEFW of1 0266:971B DEFW of1 0268:F81B DEFW of1 026A:0D1C DEFW of1 026C:3415 DEFW of1 026E:781C DEFW of1 0270:9680 DEFW of1 0272:0D14 DEFW of1 0274:2512 DEFW of1 0276:A714 DEFW of1 0278:1C14 DEFW of1 027A:2D14 DEFW of1 027C:9A1C DEFW of1 027E:2D1D DEFW of1 0280:3D14 DEFW of1 0282:6D14 DEFW of1 0284:7714 DEFW of1 0286:C54E44 TABLE_RESERVED DEFB of3 0289:C64F52 DEFB of3 028C:CE455854 DEFB of4 0290:C4415441 DEFB of4 0294:C94E5055 DEFB of5 0298:54 0299:C4494D DEFB of3 029C:D2454144 DEFB of4 02A0:CC4554 DEFB of3 02A3:C74F544F DEFB of4 02A7:D2554E DEFB of3 02AA:C946 DEFB of2 02AC:D2455354 DEFB of7 02B0:4F5245 02B3:C74F5355 DEFB of5 02B7:42 02B8:D2455455 DEFB of6 02BC:524E 02BE:D2454D DEFB of3 02C1:D3544F50 DEFB of4 02C5:CF5554 DEFB of3 02C8:CF4E DEFB of2 02CA:CE554C4C DEFB of4 02CE:D7414954 DEFB of4 02D2:C44546 DEFB of3 02D5:D04F4B45 DEFB of4 02D9:C44F4B45 DEFB of4 02DD:D3435245 DEFB of6 02E1:454E 02E3:CC494E45 DEFB of5 02E7:53 02E8:C34C53 DEFB of3 02EB:D7494454 DEFB of5 02EF:48 02F0:CD4F4E49 DEFB of7 02F4:544F52 02F7:D34554 DEFB of3 02FA:D2455345 DEFB of5 02FE:54 02FF:D052494E DEFB of5 0303:54 0304:C34F4E54 DEFB of4 0308:CC495354 DEFB of4 030C:C34C4541 DEFB of5 0310:52 0311:C34C4F41 DEFB of5 0315:44 0316:C3534156 DEFB of5 031A:45 031B:CE4557 DEFB of3 031E:D4414228 DEFB of4 0322:D44F DEFB of2 0324:C64E DEFB of2 0326:D3504328 DEFB of4 032A:D448454E DEFB of4 032E:CE4F54 DEFB of3 0331:D3544550 DEFB of4 0335:AB DEFB of1 0336:AD DEFB of1 0337:AA DEFB of1 0338:AF DEFB of1 0339:DE DEFB of1 033A:C14E44 DEFB of3 033D:CF52 DEFB of2 033F:BE DEFB of1 0340:BD DEFB of1 0341:BC DEFB of1 0342:D3474E DEFB of3 0345:C94E54 DEFB of3 0348:C14253 DEFB of3 034B:D55352 DEFB of3 034E:C65245 DEFB of3 0351:C94E50 DEFB of3 0354:D04F53 DEFB of3 0357:D35152 DEFB of3 035A:D24E44 DEFB of3 035D:CC4F47 DEFB of3 0360:C55850 DEFB of3 0363:C34F53 DEFB of3 0366:D3494E DEFB of3 0369:D4414E DEFB of3 036C:C1544E DEFB of3 036F:D045454B DEFB of4 0373:C445454B DEFB of4 0377:D04F494E DEFB of5 037B:54 037C:CC454E DEFB of3 037F:D3545224 DEFB of4 0383:D6414C DEFB of3 0386:C15343 DEFB of3 0389:C3485224 DEFB of4 038D:C8455824 DEFB of4 0391:C2494E24 DEFB of4 0395:CC454654 DEFB of5 0399:24 039A:D2494748 DEFB of6 039E:5424 03A0:CD494424 DEFB of4 03A4:80 DEFB of1 03A5:9F09 TABLE_KEYWORD DEFW of1 03A7:9C08 DEFW of1 03A9:770D DEFW of1 03AB:EC0A DEFW of1 03AD:7E0C DEFW of1 03AF:B30F DEFW of1 03B1:AD0C DEFW of1 03B3:030B DEFW of1 03B5:A90A DEFW of1 03B7:8C0A DEFW of1 03B9:7B0B DEFW of1 03BB:6509 DEFW of1 03BD:980A DEFW of1 03BF:C70A DEFW of1 03C1:EE0A DEFW of1 03C3:9D09 DEFW of1 03C5:EC14 DEFW of1 03C7:5D0B DEFW of1 03C9:DE09 DEFW of1 03CB:F214 DEFW of1 03CD:9111 DEFW of1 03CF:3B15 DEFW of1 03D1:831C DEFW of1 03D3:EE0A DEFW of1 03D5:691C DEFW of1 03D7:5C1C DEFW of1 03D9:611C DEFW of1 03DB:991D DEFW of1 03DD:9980 DEFW of1 03DF:9C80 DEFW of1 03E1:9F0B DEFW of1 03E3:CB09 DEFW of1 03E5:1108 DEFW of1 03E7:460A DEFW of1 03E9:EE0A DEFW of1 03EB:EE0A DEFW of1 03ED:0906 DEFW of1 03EF:79 TABLE_MATHORDR DEFB of1 03F0:2519 DEFW of1 03F2:79 DEFB of1 03F3:5915 DEFW of1 03F5:7C DEFB of1 03F6:9716 DEFW of1 03F8:7C DEFB of1 03F9:F816 DEFW of1 03FB:7F DEFB of1 03FC:461A DEFW of1 03FE:50 DEFB of1 03FF:0C0F DEFW of1 0401:46 DEFB of1 0402:0B0F DEFW of1 0404:4E46 TABLE_ERRORS DEFB of2 0406:534E DEFB of2 0408:5247 DEFB of2 040A:4F44 DEFB of2 040C:4643 DEFB of2 040E:4F56 DEFB of2 0410:4F4D DEFB of2 0412:554C DEFB of2 0414:4253 DEFB of2 0416:4444 DEFB of2 0418:2F30 DEFB of2 041A:4944 DEFB of2 041C:544D DEFB of2 041E:4F53 DEFB of2 0420:4C53 DEFB of2 0422:5354 DEFB of2 0424:434E DEFB of2 0426:5546 DEFB of2 0428:4D4F DEFB of2 042A:4858 DEFB of2 042C:424E DEFB of2 042E:C3F401 wiWARMSTART JP WARMSTART 0431:C31C0A wiUSRFUNCT JP GETINTEGER_ERR 0434:D3 wiOUTSUB DEFB of1 0435:00 wiOUTPORT DEFB of1 0436:C9 DEFB of1 0437:D6 wiDIVSUPPORT DEFB of1 0438:00 wiDIV1 DEFB of1 0439:6F DEFB of1 043A:7C DEFB of1 043B:DE DEFB of1 043C:00 wiDIV2 DEFB of1 043D:67 DEFB of1 043E:78 DEFB of1 043F:DE DEFB of1 0440:00 wiDIV3 DEFB of1 0441:47 DEFB of1 0442:3E DEFB of1 0443:00 wiDIV4 DEFB of1 0444:C9 DEFB of1 0445:000000 wiSEED DEFB of3 0448:354ACA99 DEFB of4 044C:391C7698 DEFB of4 0450:2295B398 DEFB of4 0454:0ADD4798 DEFB of4 0458:53D19999 DEFB of4 045C:0A1A9F98 DEFB of4 0460:65BCCD98 DEFB of4 0464:D6773E98 DEFB of4 0468:52C74F80 wiLASTRANDOM DEFB of4 046C:DB wiINSUB DEFB of1 046D:00 wiINPORT DEFB of1 046E:C9 DEFB of1 046F:01 wiNULLS DEFB of1 0470:FF wiTERMWIDTH DEFB of1 0471:1C wiCOMMAWIDTH DEFB of1 0472:00 wiNULLFLAG DEFB of1 0473:00 wiCTRLOFLAG DEFB of1 0474:1400 wiLINECOUNTER DEFW of1 0476:1400 wiLINENUMBER DEFW of1 0478:0000 wiCHECKSUM DEFW of1 047A:00 wiNMIFLAG DEFB of1 047B:00 wiBREAKFLAG DEFB of1 047C:C34207 wiRINPUT JP DELCHAR_LNGET 047F:C30000 wiPOINT JP RST00 0482:C30000 wiSET JP RST00 0485:C30000 wiRESET JP RST00 0488:A281 wiSTRINGSPACE DEFW of1 048A:FEFF wiTHISLINE DEFW of1 048C:3F81 wiBASTXTBEG DEFW of1 048E:20457272 DISP_ERROR DEFB of7 0492:6F7200 0495:20696E20 DISP_IN DEFB of5 0499:00 DISP_ZBYTE EQU 0499 049A:4F6B0D0A DISP_OK DEFB of6 049E:0000 04A0:42726561 DISP_BREAK DEFB of6 04A4:6B00 04A6:210400 FINDFOR LD HL,eRG 04A9:39 ADD HL,SP 04AA:7E FINDFOR_LOOP LD A,(HL) 04AB:23 INC HL 04AC:FE81 CP 81 04AE:C0 RET NZ 04AF:4E LD C,(HL) 04B0:23 INC HL 04B1:46 LD B,(HL) 04B2:23 INC HL 04B3:E5 PUSH HL 04B4:69 LD L,C 04B5:60 LD H,B 04B6:7A LD A,D 04B7:B3 OR E 04B8:EB EX DE,HL 04B9:CAC004 JP Z,FINDFOR_INDEX 04BC:EB EX DE,HL 04BD:CDC507 CALL COMPAREDEHL 04C0:010D00 FINDFOR_INDEX LD BC,000D 04C3:E1 POP HL 04C4:C8 RET Z 04C5:09 ADD HL,BC 04C6:C3AA04 JP FINDFOR_LOOP 04C9:CDE304 MAKESPACE CALL CHECKSTACK_OK 04CC:C5 MAKESPACE_STR PUSH BC 04CD:E3 EX (SP),HL 04CE:C1 POP BC 04CF:CDC507 MAKESPACE_LOOP CALL COMPAREDEHL 04D2:7E LD A,(HL) 04D3:02 LD (BC),A 04D4:C8 RET Z 04D5:0B DEC BC 04D6:2B DEC HL 04D7:C3CF04 JP MAKESPACE_LOOP 04DA:E5 CHECKSTACK PUSH HL 04DB:2A1F81 LD HL,(wARRAYSEND) 04DE:0600 LD B,00 04E0:09 ADD HL,BC 04E1:09 ADD HL,BC 04E2:3E DEFB of1 04E3:E5 CHECKSTACK_OK PUSH HL 04E4:3ED0 LD A,D0 04E6:95 SUB L 04E7:6F LD L,A 04E8:3EFF LD A,FF 04EA:9C SBC A,H 04EB:DAF204 JP C,CHECKSTACK_ERR 04EE:67 LD H,A 04EF:39 ADD HL,SP 04F0:E1 POP HL 04F1:D8 RET C 04F2:1E0C CHECKSTACK_ERR LD E,0C 04F4:C31105 JP PRINTERR 04F7:2A0E81 ERROR_DATLIN LD HL,(wDATALINE) 04FA:22A180 LD (wTHISLINE),HL 04FD:1E02 ERROR_SN LD E,02 04FF:01 DEFB of1 0500:1E14 ERROR_DZ LD E,14 0502:01 DEFB of1 0503:1E00 ERROR_NF LD E,00 0505:01 DEFB of1 0506:1E12 ERROR_DD LD E,12 0508:01 DEFB of1 0509:1E22 ERROR_UF LD E,22 050B:01 DEFB of1 050C:1E0A ERROR_OV LD E,0A 050E:01 DEFB of1 050F:1E18 ERROR_TM LD E,18 0511:CD2F06 PRINTERR CALL NEW_CLEARREGS 0514:328A80 LD (wCTRLOFLAG),A 0517:CDF00B CALL PRINT_NEWLINE 051A:210404 LD HL,TABLE_ERRORS 051D:57 LD D,A 051E:3E3F LD A,3F 0520:CDD607 CALL PUTCHAR 0523:19 ADD HL,DE 0524:7E LD A,(HL) 0525:CDD607 CALL PUTCHAR 0528:CD5509 CALL GETBYTEFROMRAM 052B:CDD607 CALL PUTCHAR 052E:218E04 LD HL,wTABLE_END 0531:CD9B12 PRINTERR_LINE CALL STR_PRINTSTR 0534:2AA180 LD HL,(wTHISLINE) 0537:11FEFF LD DE,FFFE 053A:CDC507 CALL COMPAREDEHL 053D:CA6101 JP Z,CSTART 0540:7C LD A,H 0541:A5 AND L 0542:3C INC A 0543:C43619 CALL NZ,1936 0546:3E DEFB of1 0547:C1 PRINTERR_BFERR POP BC 0548:AF PRINTERR_PUTOK XOR A 0549:328A80 LD (wCTRLOFLAG),A 054C:CDF00B CALL PRINT_NEWLINE 054F:219A04 LD HL,DISP_OK 0552:CD9B12 CALL STR_PRINTSTR 0555:21FFFF EDIT_COMMAND LD HL,FFFF 0558:22A180 LD (wTHISLINE),HL 055B:CD4207 CALL DELCHAR_LNGET 055E:DA5505 JP C,EDIT_COMMAND 0561:CD5509 CALL GETBYTEFROMRAM 0564:3C INC A 0565:3D DEC A 0566:CA5505 JP Z,EDIT_COMMAND 0569:F5 PUSH AF 056A:CD210A CALL ASC2DE 056D:D5 PUSH DE 056E:CD5906 CALL NEW_CRUNCHCODE 0571:47 LD B,A 0572:D1 POP DE 0573:F1 POP AF 0574:D23509 JP NC,FOR_EXECUTE 0577:D5 PUSH DE 0578:C5 PUSH BC 0579:AF XOR A 057A:321181 LD (wLASTBYTEIN),A 057D:CD5509 CALL GETBYTEFROMRAM 0580:B7 OR A 0581:F5 PUSH AF 0582:CDE905 CALL SEARCHLINE 0585:DA8E05 JP C,EDIT_LINEFOUND 0588:F1 POP AF 0589:F5 PUSH AF 058A:CAC20A JP Z,GOTO_UNDEFNLN 058D:B7 OR A 058E:C5 EDIT_LINEFOUND PUSH BC 058F:D2A505 JP NC,EDIT_INSNEWLN 0592:EB EX DE,HL 0593:2A1B81 LD HL,(wPROGRAMEND) 0596:1A EDIT_SHFTLNSDN LD A,(DE) 0597:02 LD (BC),A 0598:03 INC BC 0599:13 INC DE 059A:CDC507 CALL COMPAREDEHL 059D:C29605 JP NZ,EDIT_SHFTLNSDN 05A0:60 LD H,B 05A1:69 LD L,C 05A2:221B81 LD (wPROGRAMEND),HL 05A5:D1 EDIT_INSNEWLN POP DE 05A6:F1 POP AF 05A7:CACC05 JP Z,EDIT_SETLNPTR 05AA:2A1B81 LD HL,(wPROGRAMEND) 05AD:E3 EX (SP),HL 05AE:C1 POP BC 05AF:09 ADD HL,BC 05B0:E5 PUSH HL 05B1:CDC904 CALL MAKESPACE 05B4:E1 POP HL 05B5:221B81 LD (wPROGRAMEND),HL 05B8:EB EX DE,HL 05B9:74 LD (HL),H 05BA:D1 POP DE 05BB:23 INC HL 05BC:23 INC HL 05BD:73 LD (HL),E 05BE:23 INC HL 05BF:72 LD (HL),D 05C0:23 INC HL 05C1:11A680 LD DE,80A6 05C4:1A EDIT_MOVEBUFF LD A,(DE) 05C5:77 LD (HL),A 05C6:23 INC HL 05C7:13 INC DE 05C8:B7 OR A 05C9:C2C405 JP NZ,EDIT_MOVEBUFF 05CC:CD1506 EDIT_SETLNPTR CALL NEW_RUNFRESH 05CF:23 INC HL 05D0:EB EX DE,HL 05D1:62 EDIT_POINTERLP LD H,D 05D2:6B LD L,E 05D3:7E LD A,(HL) 05D4:23 INC HL 05D5:B6 OR (HL) 05D6:CA5505 JP Z,EDIT_COMMAND 05D9:23 INC HL 05DA:23 INC HL 05DB:23 INC HL 05DC:AF XOR A 05DD:BE EDIT_FINDLNEND CP (HL) 05DE:23 INC HL 05DF:C2DD05 JP NZ,EDIT_FINDLNEND 05E2:EB EX DE,HL 05E3:73 LD (HL),E 05E4:23 INC HL 05E5:72 LD (HL),D 05E6:C3D105 JP EDIT_POINTERLP 05E9:2AA380 SEARCHLINE LD HL,(wBASTXTBEG) 05EC:44 SEARCHLINE_LP LD B,H 05ED:4D LD C,L 05EE:7E LD A,(HL) 05EF:23 INC HL 05F0:B6 OR (HL) 05F1:2B DEC HL 05F2:C8 RET Z 05F3:23 INC HL 05F4:23 INC HL 05F5:7E LD A,(HL) 05F6:23 INC HL 05F7:66 LD H,(HL) 05F8:6F LD L,A 05F9:CDC507 CALL COMPAREDEHL 05FC:60 LD H,B 05FD:69 LD L,C 05FE:7E LD A,(HL) 05FF:23 INC HL 0600:66 LD H,(HL) 0601:6F LD L,A 0602:3F CCF 0603:C8 RET Z 0604:3F CCF 0605:D0 RET NC 0606:C3EC05 JP SEARCHLINE_LP 0609:C0 fNEW RET NZ 060A:2AA380 NEW_CLEARPTR LD HL,(wBASTXTBEG) 060D:AF XOR A 060E:77 LD (HL),A 060F:23 INC HL 0610:77 LD (HL),A 0611:23 INC HL 0612:221B81 LD (wPROGRAMEND),HL 0615:2AA380 NEW_RUNFRESH LD HL,(wBASTXTBEG) 0618:2B DEC HL 0619:221381 NEW_INITVARS LD (wBREAKLINE),HL 061C:2AF480 LD HL,(wLASTRAM) 061F:220881 LD (wSTRINGBOTTOM),HL 0622:AF XOR A 0623:CD6509 CALL fRESTORE 0626:2A1B81 LD HL,(wPROGRAMEND) 0629:221D81 LD (wVARIABLESEND),HL 062C:221F81 LD (wARRAYSEND),HL 062F:C1 NEW_CLEARREGS POP BC 0630:2A9F80 LD HL,(wSTRINGSPACE) 0633:F9 LD SP,HL 0634:21F880 LD HL,wTMPSTRPOOL 0637:22F680 LD (wTMPSTRPTR),HL 063A:AF XOR A 063B:6F LD L,A 063C:67 LD H,A 063D:221981 LD (wCONTINUEADDR),HL 0640:321081 LD (wFORFLAG),A 0643:222381 LD (wFUNCTARGNAME),HL 0646:E5 PUSH HL 0647:C5 PUSH BC 0648:2A1381 NEW_DOITAGAIN LD HL,(wBREAKLINE) 064B:C9 RET 064C:3E3F NEW_INPWPROMPT LD A,3F 064E:CDD607 CALL PUTCHAR 0651:3E20 LD A,20 0653:CDD607 CALL PUTCHAR 0656:C39380 JP wRINPUT 0659:AF NEW_CRUNCHCODE XOR A 065A:32F380 LD (wDATAFLAG),A 065D:0E05 LD C,05 065F:11A680 LD DE,80A6 0662:7E NEW_CRUNCHLOOP LD A,(HL) 0663:FE20 CP 20 0665:CAE106 JP Z,NEW_COPYDIRECT 0668:47 LD B,A 0669:FE22 CP 22 066B:CA0107 JP Z,NEW_CPYLITERAL 066E:B7 OR A 066F:CA0807 JP Z,SETBUFFEREND 0672:3AF380 LD A,(wDATAFLAG) 0675:B7 OR A 0676:7E LD A,(HL) 0677:C2E106 JP NZ,NEW_COPYDIRECT 067A:FE3F CP 3F 067C:3E9E LD A,9E 067E:CAE106 JP Z,NEW_COPYDIRECT 0681:7E LD A,(HL) 0682:FE30 CP 30 0684:DA8C06 JP C,NEW_FINDWORD 0687:FE3C CP 3C 0689:DAE106 JP C,NEW_COPYDIRECT 068C:D5 NEW_FINDWORD PUSH DE 068D:118502 LD DE,0285 0690:C5 PUSH BC 0691:01DD06 LD BC,06DD 0694:C5 PUSH BC 0695:067F LD B,7F 0697:7E LD A,(HL) 0698:FE61 CP 61 069A:DAA506 JP C,NEW_SEARCHWRDS 069D:FE7B CP 7B 069F:D2A506 JP NC,NEW_SEARCHWRDS 06A2:E65F AND 5F 06A4:77 LD (HL),A 06A5:4E NEW_SEARCHWRDS LD C,(HL) 06A6:EB EX DE,HL 06A7:23 NEW_GETNEXT INC HL 06A8:B6 OR (HL) 06A9:F2A706 JP P,NEW_GETNEXT 06AC:04 INC B 06AD:7E LD A,(HL) 06AE:E67F AND 7F 06B0:C8 RET Z 06B1:B9 CP C 06B2:C2A706 JP NZ,NEW_GETNEXT 06B5:EB EX DE,HL 06B6:E5 PUSH HL 06B7:13 NEW_NEXTBYTE INC DE 06B8:1A LD A,(DE) 06B9:B7 OR A 06BA:FAD906 JP M,NEW_MATCHFOUND 06BD:4F LD C,A 06BE:78 LD A,B 06BF:FE88 CP 88 06C1:C2C806 JP NZ,NEW_NOSPACES 06C4:CD5509 CALL GETBYTEFROMRAM 06C7:2B DEC HL 06C8:23 NEW_NOSPACES INC HL 06C9:7E LD A,(HL) 06CA:FE61 CP 61 06CC:DAD106 JP C,NEW_NOCHANGES 06CF:E65F AND 5F 06D1:B9 NEW_NOCHANGES CP C 06D2:CAB706 JP Z,NEW_NEXTBYTE 06D5:E1 POP HL 06D6:C3A506 JP NEW_SEARCHWRDS 06D9:48 NEW_MATCHFOUND LD C,B 06DA:F1 POP AF 06DB:EB EX DE,HL 06DC:C9 RET 06DD:EB NEW_SETRETURN EX DE,HL 06DE:79 LD A,C 06DF:C1 POP BC 06E0:D1 POP DE 06E1:23 NEW_COPYDIRECT INC HL 06E2:12 LD (DE),A 06E3:13 INC DE 06E4:0C INC C 06E5:D63A SUB 3A 06E7:CAEF06 JP Z,NEW_SETLITERAL 06EA:FE49 CP 49 06EC:C2F206 JP NZ,NEW_TESTFORREM 06EF:32F380 NEW_SETLITERAL LD (wDATAFLAG),A 06F2:D654 NEW_TESTFORREM SUB 54 06F4:C26206 JP NZ,NEW_CRUNCHLOOP 06F7:47 LD B,A 06F8:7E NEW_NEXTCHARLP LD A,(HL) 06F9:B7 OR A 06FA:CA0807 JP Z,SETBUFFEREND 06FD:B8 CP B 06FE:CAE106 JP Z,NEW_COPYDIRECT 0701:23 NEW_CPYLITERAL INC HL 0702:12 LD (DE),A 0703:0C INC C 0704:13 INC DE 0705:C3F806 JP NEW_NEXTCHARLP 0708:21A580 SETBUFFEREND LD HL,80A5 070B:12 LD (DE),A 070C:13 INC DE 070D:12 LD (DE),A 070E:13 INC DE 070F:12 LD (DE),A 0710:C9 RET 0711:3A8980 DELETE LD A,(wNULLFLAG) 0714:B7 OR A 0715:3E00 LD A,00 0717:328980 LD (wNULLFLAG),A 071A:C22507 JP NZ,DELETE_ECHO 071D:05 DEC B 071E:CA4207 JP Z,DELCHAR_LNGET 0721:CDD607 CALL PUTCHAR 0724:3E DEFB of1 0725:05 DELETE_ECHO DEC B 0726:2B DEC HL 0727:CA3907 JP Z,DELCHAR_LNOUT 072A:7E LD A,(HL) 072B:CDD607 CALL PUTCHAR 072E:C34B07 JP DELCHAR_DOMORE 0731:05 DELCHAR DEC B 0732:2B DEC HL 0733:CDD607 CALL PUTCHAR 0736:C24B07 JP NZ,DELCHAR_DOMORE 0739:CDD607 DELCHAR_LNOUT CALL PUTCHAR 073C:CDFD0B DELCHAR_LINE CALL PRINT_CRLF 073F:C34207 JP DELCHAR_LNGET 0742:21A680 DELCHAR_LNGET LD HL,wBUFFER 0745:0601 LD B,01 0747:AF XOR A 0748:328980 LD (wNULLFLAG),A 074B:CD0008 DELCHAR_DOMORE CALL CONTROLOTEST 074E:4F LD C,A 074F:FE7F CP 7F 0751:CA1107 JP Z,DELETE 0754:3A8980 LD A,(wNULLFLAG) 0757:B7 OR A 0758:CA6407 JP Z,DELCHAR_PROC 075B:3E00 LD A,00 075D:CDD607 CALL PUTCHAR 0760:AF XOR A 0761:328980 LD (wNULLFLAG),A 0764:79 DELCHAR_PROC LD A,C 0765:FE07 CP 07 0767:CAA807 JP Z,PUTBUFF_CTRL 076A:FE03 CP 03 076C:CCFD0B CALL Z,0BFD 076F:37 SCF 0770:C8 RET Z 0771:FE0D CP 0D 0773:CAF80B JP Z,PRINT_BUFFEND 0776:FE15 CP 15 0778:CA3C07 JP Z,DELCHAR_LINE 077B:FE40 CP 40 077D:CA3907 JP Z,DELCHAR_LNOUT 0780:FE5F CP 5F 0782:CA3107 JP Z,DELCHAR 0785:FE08 CP 08 0787:CA3107 JP Z,DELCHAR 078A:FE12 CP 12 078C:C2A307 JP NZ,PUTBUFF 078F:C5 PUSH BC 0790:D5 PUSH DE 0791:E5 PUSH HL 0792:3600 LD (HL),00 0794:CDAD1D CALL PRINTWITHCRLF 0797:21A680 LD HL,wBUFFER 079A:CD9B12 CALL STR_PRINTSTR 079D:E1 POP HL 079E:D1 POP DE 079F:C1 POP BC 07A0:C34B07 JP DELCHAR_DOMORE 07A3:FE20 PUTBUFF CP 20 07A5:DA4B07 JP C,DELCHAR_DOMORE 07A8:78 PUTBUFF_CTRL LD A,B 07A9:FE49 CP 49 07AB:3E07 LD A,07 07AD:D2BD07 JP NC,PUTBUFF_ANDDEL 07B0:79 LD A,C 07B1:71 LD (HL),C 07B2:321181 LD (wLASTBYTEIN),A 07B5:23 INC HL 07B6:04 INC B 07B7:CDD607 PUTBUFF_LOOP CALL PUTCHAR 07BA:C34B07 JP DELCHAR_DOMORE 07BD:CDD607 PUTBUFF_ANDDEL CALL PUTCHAR 07C0:3E08 LD A,08 07C2:C3B707 JP PUTBUFF_LOOP 07C5:7C COMPAREDEHL LD A,H 07C6:92 SUB D 07C7:C0 RET NZ 07C8:7D LD A,L 07C9:93 SUB E 07CA:C9 RET 07CB:7E TESTSYNTAX LD A,(HL) 07CC:E3 EX (SP),HL 07CD:BE CP (HL) 07CE:23 INC HL 07CF:E3 EX (SP),HL 07D0:CA5509 JP Z,GETBYTEFROMRAM 07D3:C3FD04 JP ERROR_SN 07D6:F5 PUTCHAR PUSH AF 07D7:3A8A80 LD A,(wCTRLOFLAG) 07DA:B7 OR A 07DB:C2D012 JP NZ,STR_POPAF 07DE:F1 POP AF 07DF:C5 PUSH BC 07E0:F5 PUSH AF 07E1:FE20 CP 20 07E3:DAFA07 JP C,DINPOS 07E6:3A8780 LD A,(wTERMWIDTH) 07E9:47 LD B,A 07EA:3AF080 LD A,(wCURSORPOS) 07ED:04 INC B 07EE:CAF607 JP Z,INCLEN 07F1:05 DEC B 07F2:B8 CP B 07F3:CCFD0B CALL Z,0BFD 07F6:3C INCLEN INC A 07F7:32F080 LD (wCURSORPOS),A 07FA:F1 DINPOS POP AF 07FB:C1 POP BC 07FC:CD961D CALL MONITOROUT 07FF:C9 RET 0800:CD5A1C CONTROLOTEST CALL GETCHAR 0803:E67F AND 7F 0805:FE0F CP 0F 0807:C0 RET NZ 0808:3A8A80 LD A,(wCTRLOFLAG) 080B:2F CPL 080C:328A80 LD (wCTRLOFLAG),A 080F:AF XOR A 0810:C9 RET 0811:CD210A fLIST CALL ASC2DE 0814:C0 RET NZ 0815:C1 POP BC 0816:CDE905 CALL SEARCHLINE 0819:C5 PUSH BC 081A:CD6708 CALL LINECOUNT_STUP 081D:E1 LIST_LOOP1 POP HL 081E:4E LD C,(HL) 081F:23 INC HL 0820:46 LD B,(HL) 0821:23 INC HL 0822:78 LD A,B 0823:B1 OR C 0824:CA4805 JP Z,PRINTERR_PUTOK 0827:CD7008 CALL LINECOUNT 082A:CD8009 CALL TESTBREAK 082D:C5 PUSH BC 082E:CDFD0B CALL PRINT_CRLF 0831:5E LD E,(HL) 0832:23 INC HL 0833:56 LD D,(HL) 0834:23 INC HL 0835:E5 PUSH HL 0836:EB EX DE,HL 0837:CD3E19 CALL ASC2FLT_PRNTHL 083A:3E20 LD A,20 083C:E1 POP HL 083D:CDD607 LIST_LOOP2 CALL PUTCHAR 0840:7E LIST_LOOP3 LD A,(HL) 0841:B7 OR A 0842:23 INC HL 0843:CA1D08 JP Z,LIST_LOOP1 0846:F23D08 JP P,LIST_LOOP2 0849:D67F SUB 7F 084B:4F LD C,A 084C:118602 LD DE,0286 084F:1A LIST_TOKENLOOP LD A,(DE) 0850:13 INC DE 0851:B7 OR A 0852:F24F08 JP P,LIST_TOKENLOOP 0855:0D DEC C 0856:C24F08 JP NZ,LIST_TOKENLOOP 0859:E67F LIST_PRINTWDLP AND 7F 085B:CDD607 CALL PUTCHAR 085E:1A LD A,(DE) 085F:13 INC DE 0860:B7 OR A 0861:F25908 JP P,LIST_PRINTWDLP 0864:C34008 JP LIST_LOOP3 0867:E5 LINECOUNT_STUP PUSH HL 0868:2A8D80 LD HL,(wLINENUMBER) 086B:228B80 LD (wLINECOUNTER),HL 086E:E1 POP HL 086F:C9 RET 0870:E5 LINECOUNT PUSH HL 0871:D5 PUSH DE 0872:2A8B80 LD HL,(wLINECOUNTER) 0875:11FFFF LD DE,FFFF 0878:ED5A ADC HL,DE 087A:228B80 LD (wLINECOUNTER),HL 087D:D1 POP DE 087E:E1 POP HL 087F:F0 RET P 0880:E5 PUSH HL 0881:2A8D80 LD HL,(wLINENUMBER) 0884:228B80 LD (wLINECOUNTER),HL 0887:CD5A1C CALL GETCHAR 088A:FE03 CP 03 088C:CA9308 JP Z,LINECOUNT_RSET 088F:E1 POP HL 0890:C37008 JP LINECOUNT 0893:2A8D80 LINECOUNT_RSET LD HL,(wLINENUMBER) 0896:228B80 LD (wLINECOUNTER),HL 0899:C3F701 JP BREAKRETURN 089C:3E64 fFOR LD A,64 089E:321081 LD (wFORFLAG),A 08A1:CD030B CALL fLET 08A4:C1 POP BC 08A5:E5 PUSH HL 08A6:CDEC0A CALL fDATA 08A9:220C81 LD (wLOOPSTART),HL 08AC:210200 LD HL,eSN 08AF:39 ADD HL,SP 08B0:CDAA04 FOR_LOOP CALL FINDFOR_LOOP 08B3:D1 POP DE 08B4:C2CC08 JP NZ,FOR_FIND 08B7:09 ADD HL,BC 08B8:D5 PUSH DE 08B9:2B DEC HL 08BA:56 LD D,(HL) 08BB:2B DEC HL 08BC:5E LD E,(HL) 08BD:23 INC HL 08BE:23 INC HL 08BF:E5 PUSH HL 08C0:2A0C81 LD HL,(wLOOPSTART) 08C3:CDC507 CALL COMPAREDEHL 08C6:E1 POP HL 08C7:C2B008 JP NZ,FOR_LOOP 08CA:D1 POP DE 08CB:F9 LD SP,HL 08CC:EB FOR_FIND EX DE,HL 08CD:0E08 LD C,08 08CF:CDDA04 CALL CHECKSTACK 08D2:E5 PUSH HL 08D3:2A0C81 LD HL,(wLOOPSTART) 08D6:E3 EX (SP),HL 08D7:E5 PUSH HL 08D8:2AA180 LD HL,(wTHISLINE) 08DB:E3 EX (SP),HL 08DC:CDC50D CALL EVALEXP_TSTNUM 08DF:CDCB07 CALL TESTSYNTAX 08E2:A6 DEFB of1 08E3:CDC20D CALL EVALEXP_GETNUM 08E6:E5 PUSH HL 08E7:CDF017 CALL FLOATLOAD_PTR 08EA:E1 POP HL 08EB:C5 PUSH BC 08EC:D5 PUSH DE 08ED:010081 LD BC,8100 08F0:51 LD D,C 08F1:5A LD E,D 08F2:7E LD A,(HL) 08F3:FEAB CP AB 08F5:3E01 LD A,01 08F7:C20809 JP NZ,FOR_STEPSAVE 08FA:CD5509 CALL GETBYTEFROMRAM 08FD:CDC20D CALL EVALEXP_GETNUM 0900:E5 PUSH HL 0901:CDF017 CALL FLOATLOAD_PTR 0904:CDA417 CALL TESTSGN 0907:E1 POP HL 0908:C5 FOR_STEPSAVE PUSH BC 0909:D5 PUSH DE 090A:F5 PUSH AF 090B:33 INC SP 090C:E5 PUSH HL 090D:2A1381 LD HL,(wBREAKLINE) 0910:E3 EX (SP),HL 0911:0681 FOR_IDSAVE LD B,81 0913:C5 PUSH BC 0914:33 INC SP 0915:CD8009 FOR_BREAKTEST CALL TESTBREAK 0918:221381 LD (wBREAKLINE),HL 091B:7E LD A,(HL) 091C:FE3A CP 3A 091E:CA3509 JP Z,FOR_EXECUTE 0921:B7 OR A 0922:C2FD04 JP NZ,ERROR_SN 0925:23 INC HL 0926:7E LD A,(HL) 0927:23 INC HL 0928:B6 OR (HL) 0929:CAA709 JP Z,BREAK_ENDPRG 092C:23 INC HL 092D:5E LD E,(HL) 092E:23 INC HL 092F:56 LD D,(HL) 0930:EB EX DE,HL 0931:22A180 LD (wTHISLINE),HL 0934:EB EX DE,HL 0935:CD5509 FOR_EXECUTE CALL GETBYTEFROMRAM 0938:111509 LD DE,0915 093B:D5 PUSH DE 093C:C8 FOR_IFJUMP RET Z 093D:D680 FOR_ONJUMP SUB 80 093F:DA030B JP C,fLET 0942:FE25 CP 25 0944:D2FD04 JP NC,ERROR_SN 0947:07 RLCA 0948:4F LD C,A 0949:0600 LD B,00 094B:EB EX DE,HL 094C:21A503 LD HL,TABLE_KEYWORD 094F:09 ADD HL,BC 0950:4E LD C,(HL) 0951:23 INC HL 0952:46 LD B,(HL) 0953:C5 PUSH BC 0954:EB EX DE,HL 0955:23 GETBYTEFROMRAM INC HL 0956:7E LD A,(HL) 0957:FE3A CP 3A 0959:D0 RET NC 095A:FE20 CP 20 095C:CA5509 JP Z,GETBYTEFROMRAM 095F:FE30 CP 30 0961:3F CCF 0962:3C INC A 0963:3D DEC A 0964:C9 RET 0965:EB fRESTORE EX DE,HL 0966:2AA380 LD HL,(wBASTXTBEG) 0969:CA7A09 JP Z,RESTORE_NEWLN 096C:EB EX DE,HL 096D:CD210A CALL ASC2DE 0970:E5 PUSH HL 0971:CDE905 CALL SEARCHLINE 0974:60 LD H,B 0975:69 LD L,C 0976:D1 POP DE 0977:D2C20A JP NC,GOTO_UNDEFNLN 097A:2B RESTORE_NEWLN DEC HL 097B:222181 RESTORE_DATPTR LD (wNEXTDATA),HL 097E:EB EX DE,HL 097F:C9 RET 0980:DF TESTBREAK RST 18 0981:C8 RET Z 0982:D7 RST 10 0983:FE1B CP 1B 0985:2811 JR Z,TESTBREAK_SETF 0987:FE03 CP 03 0989:280D JR Z,TESTBREAK_SETF 098B:FE13 CP 13 098D:C0 RET NZ 098E:D7 TESTBREAK_WAIT RST 10 098F:FE11 CP 11 0991:C8 RET Z 0992:FE03 CP 03 0994:2807 JR Z,fSTOP 0996:18F6 JR TESTBREAK_WAIT 0998:3EFF TESTBREAK_SETF LD A,FF 099A:329280 LD (wBREAKFLAG),A 099D:C0 fSTOP RET NZ 099E:F6 DEFB of1 099F:C0 fEND RET NZ 09A0:221381 LD (wBREAKLINE),HL 09A3:21 DEFB of1 09A4:F6FF BREAK_USERINP OR FF 09A6:C1 POP BC 09A7:2AA180 BREAK_ENDPRG LD HL,(wTHISLINE) 09AA:F5 PUSH AF 09AB:7D LD A,L 09AC:A4 AND H 09AD:3C INC A 09AE:CABA09 JP Z,BREAK_NOLINEN 09B1:221781 LD (wERRORLINE),HL 09B4:2A1381 LD HL,(wBREAKLINE) 09B7:221981 LD (wCONTINUEADDR),HL 09BA:AF BREAK_NOLINEN XOR A 09BB:328A80 LD (wCTRLOFLAG),A 09BE:CDF00B CALL PRINT_NEWLINE 09C1:F1 POP AF 09C2:21A004 LD HL,DISP_BREAK 09C5:C23105 JP NZ,PRINTERR_LINE 09C8:C34805 JP PRINTERR_PUTOK 09CB:2A1981 fCONTINUE LD HL,(wCONTINUEADDR) 09CE:7C LD A,H 09CF:B5 OR L 09D0:1E20 LD E,20 09D2:CA1105 JP Z,PRINTERR 09D5:EB EX DE,HL 09D6:2A1781 LD HL,(wERRORLINE) 09D9:22A180 LD (wTHISLINE),HL 09DC:EB EX DE,HL 09DD:C9 RET 09DE:CD2315 fNULL CALL FINDNUM_GETINT 09E1:C0 RET NZ 09E2:328680 LD (wNULLS),A 09E5:C9 RET 09E6:E5 ACCUMCHECKSUM PUSH HL 09E7:2A8F80 LD HL,(wCHECKSUM) 09EA:0600 LD B,00 09EC:4F LD C,A 09ED:09 ADD HL,BC 09EE:228F80 LD (wCHECKSUM),HL 09F1:E1 POP HL 09F2:C9 RET 09F3:7E TESTFORLETTERS LD A,(HL) 09F4:FE41 CP 41 09F6:D8 RET C 09F7:FE5B CP 5B 09F9:3F CCF 09FA:C9 RET 09FB:CD5509 GETINTEGER_IDX CALL GETBYTEFROMRAM 09FE:CDC20D GETINTEGER_POS CALL EVALEXP_GETNUM 0A01:CDA417 GETINTEGER_BYT CALL TESTSGN 0A04:FA1C0A JP M,GETINTEGER_ERR 0A07:3A2C81 GETINTEGER LD A,(wFLOATEXP) 0A0A:FE90 CP 90 0A0C:DA4C18 JP C,FLT2INT 0A0F:018090 LD BC,9080 0A12:110000 LD DE,0000 0A15:E5 PUSH HL 0A16:CD1F18 CALL COMPNUMBER 0A19:E1 POP HL 0A1A:51 LD D,C 0A1B:C8 RET Z 0A1C:1E08 GETINTEGER_ERR LD E,08 0A1E:C31105 JP PRINTERR 0A21:2B ASC2DE DEC HL 0A22:110000 ASC2DE_LNNMBR LD DE,0000 0A25:CD5509 ASC2DE_LNNMBRL CALL GETBYTEFROMRAM 0A28:D0 RET NC 0A29:E5 PUSH HL 0A2A:F5 PUSH AF 0A2B:219819 LD HL,1998 0A2E:CDC507 CALL COMPAREDEHL 0A31:DAFD04 JP C,ERROR_SN 0A34:62 LD H,D 0A35:6B LD L,E 0A36:19 ADD HL,DE 0A37:29 ADD HL,HL 0A38:19 ADD HL,DE 0A39:29 ADD HL,HL 0A3A:F1 POP AF 0A3B:D630 SUB 30 0A3D:5F LD E,A 0A3E:1600 LD D,00 0A40:19 ADD HL,DE 0A41:EB EX DE,HL 0A42:E1 POP HL 0A43:C3250A JP ASC2DE_LNNMBRL 0A46:CA1906 fCLEAR JP Z,NEW_INITVARS 0A49:CDFE09 CALL GETINTEGER_POS 0A4C:2B DEC HL 0A4D:CD5509 CALL GETBYTEFROMRAM 0A50:E5 PUSH HL 0A51:2AF480 LD HL,(wLASTRAM) 0A54:CA690A JP Z,CLEAR_FMSTORED 0A57:E1 POP HL 0A58:CDCB07 CALL TESTSYNTAX 0A5B:2C DEFB of1 0A5C:D5 PUSH DE 0A5D:CDFE09 CALL GETINTEGER_POS 0A60:2B DEC HL 0A61:CD5509 CALL GETBYTEFROMRAM 0A64:C2FD04 JP NZ,ERROR_SN 0A67:E3 EX (SP),HL 0A68:EB EX DE,HL 0A69:7D CLEAR_FMSTORED LD A,L 0A6A:93 SUB E 0A6B:5F LD E,A 0A6C:7C LD A,H 0A6D:9A SBC A,D 0A6E:57 LD D,A 0A6F:DAF204 JP C,CHECKSTACK_ERR 0A72:E5 PUSH HL 0A73:2A1B81 LD HL,(wPROGRAMEND) 0A76:012800 LD BC,0028 0A79:09 ADD HL,BC 0A7A:CDC507 CALL COMPAREDEHL 0A7D:D2F204 JP NC,CHECKSTACK_ERR 0A80:EB EX DE,HL 0A81:229F80 LD (wSTRINGSPACE),HL 0A84:E1 POP HL 0A85:22F480 LD (wLASTRAM),HL 0A88:E1 POP HL 0A89:C31906 JP NEW_INITVARS 0A8C:CA1506 fRUN JP Z,NEW_RUNFRESH 0A8F:CD1906 CALL NEW_INITVARS 0A92:011509 LD BC,0915 0A95:C3A80A JP GOSUB_RUNLNNBR 0A98:0E03 fGOSUB LD C,03 0A9A:CDDA04 CALL CHECKSTACK 0A9D:C1 POP BC 0A9E:E5 PUSH HL 0A9F:E5 PUSH HL 0AA0:2AA180 LD HL,(wTHISLINE) 0AA3:E3 EX (SP),HL 0AA4:3E8C LD A,8C 0AA6:F5 PUSH AF 0AA7:33 INC SP 0AA8:C5 GOSUB_RUNLNNBR PUSH BC 0AA9:CD210A fGOTO CALL ASC2DE 0AAC:CDEE0A CALL fREM 0AAF:E5 PUSH HL 0AB0:2AA180 LD HL,(wTHISLINE) 0AB3:CDC507 CALL COMPAREDEHL 0AB6:E1 POP HL 0AB7:23 INC HL 0AB8:DCEC05 CALL C,05EC 0ABB:D4E905 CALL NC,05E9 0ABE:60 LD H,B 0ABF:69 LD L,C 0AC0:2B DEC HL 0AC1:D8 RET C 0AC2:1E0E GOTO_UNDEFNLN LD E,0E 0AC4:C31105 JP PRINTERR 0AC7:C0 fRETURN RET NZ 0AC8:16FF LD D,FF 0ACA:CDA604 CALL FINDFOR 0ACD:F9 LD SP,HL 0ACE:FE8C CP 8C 0AD0:1E04 LD E,04 0AD2:C21105 JP NZ,PRINTERR 0AD5:E1 POP HL 0AD6:22A180 LD (wTHISLINE),HL 0AD9:23 INC HL 0ADA:7C LD A,H 0ADB:B5 OR L 0ADC:C2E60A JP NZ,RETURN_RUNPROG 0ADF:3A1181 LD A,(wLASTBYTEIN) 0AE2:B7 OR A 0AE3:C24705 JP NZ,PRINTERR_BFERR 0AE6:211509 RETURN_RUNPROG LD HL,FOR_BREAKTEST 0AE9:E3 EX (SP),HL 0AEA:3E DEFB of1 0AEB:E1 RETURN_NXTSTMT POP HL 0AEC:013A fDATA DEFB of2 0AEE:0E00 fREM LD C,00 0AF0:0600 LD B,00 0AF2:79 NEXTSTMNT_TSTL LD A,C 0AF3:48 LD C,B 0AF4:47 LD B,A 0AF5:7E NEXTSTMNT_TST LD A,(HL) 0AF6:B7 OR A 0AF7:C8 RET Z 0AF8:B8 CP B 0AF9:C8 RET Z 0AFA:23 INC HL 0AFB:FE22 CP 22 0AFD:CAF20A JP Z,NEXTSTMNT_TSTL 0B00:C3F50A JP NEXTSTMNT_TST 0B03:CDB80F fLET CALL DIM_GETVARADDR 0B06:CDCB07 CALL TESTSYNTAX 0B09:B4 DEFB of1 0B0A:D5 PUSH DE 0B0B:3AF280 LD A,(wDATATYPE) 0B0E:F5 PUSH AF 0B0F:CDD40D CALL EVALEXP 0B12:F1 POP AF 0B13:E3 EX (SP),HL 0B14:221381 LD (wBREAKLINE),HL 0B17:1F RRA 0B18:CDC70D CALL EVALEXP_CHKTYP 0B1B:CA560B JP Z,LET_NUMBER 0B1E:E5 LET_STRING PUSH HL 0B1F:2A2981 LD HL,(wFLOATMAN) 0B22:E5 PUSH HL 0B23:23 INC HL 0B24:23 INC HL 0B25:5E LD E,(HL) 0B26:23 INC HL 0B27:56 LD D,(HL) 0B28:2AA380 LD HL,(wBASTXTBEG) 0B2B:CDC507 CALL COMPAREDEHL 0B2E:D2450B JP NC,LET_CREATESTR 0B31:2A9F80 LD HL,(wSTRINGSPACE) 0B34:CDC507 CALL COMPAREDEHL 0B37:D1 POP DE 0B38:D24D0B JP NC,LET_MOVESTRPTR 0B3B:210481 LD HL,wTMPSTRING 0B3E:CDC507 CALL COMPAREDEHL 0B41:D24D0B JP NC,LET_MOVESTRPTR 0B44:3E DEFB of1 0B45:D1 LET_CREATESTR POP DE 0B46:CDFC13 CALL STRINGBACK2TMP 0B49:EB EX DE,HL 0B4A:CD3512 CALL STR_SAVE 0B4D:CDFC13 LET_MOVESTRPTR CALL STRINGBACK2TMP 0B50:E1 POP HL 0B51:CDFF17 CALL FLOATPTRINHL_4 0B54:E1 POP HL 0B55:C9 RET 0B56:E5 LET_NUMBER PUSH HL 0B57:CDFC17 CALL FLOATPTRINHL 0B5A:D1 POP DE 0B5B:E1 POP HL 0B5C:C9 RET 0B5D:CD2315 fON CALL FINDNUM_GETINT 0B60:7E LD A,(HL) 0B61:47 LD B,A 0B62:FE8C CP 8C 0B64:CA6C0B JP Z,ON_GOXX 0B67:CDCB07 CALL TESTSYNTAX 0B6A:88 DEFB of1 0B6B:2B DEC HL 0B6C:4B ON_GOXX LD C,E 0B6D:0D ON_GOXXLOOP DEC C 0B6E:78 LD A,B 0B6F:CA3D09 JP Z,FOR_ONJUMP 0B72:CD220A CALL ASC2DE_LNNMBR 0B75:FE2C CP 2C 0B77:C0 RET NZ 0B78:C36D0B JP ON_GOXXLOOP 0B7B:CDD40D fIF CALL EVALEXP 0B7E:7E LD A,(HL) 0B7F:FE88 CP 88 0B81:CA890B JP Z,IF_GOTO 0B84:CDCB07 CALL TESTSYNTAX 0B87:A9 DEFB of1 0B88:2B DEC HL 0B89:CDC50D IF_GOTO CALL EVALEXP_TSTNUM 0B8C:CDA417 CALL TESTSGN 0B8F:CAEE0A JP Z,fREM 0B92:CD5509 CALL GETBYTEFROMRAM 0B95:DAA90A JP C,fGOTO 0B98:C33C09 JP FOR_IFJUMP 0B9B:2B PRINT_MORE DEC HL 0B9C:CD5509 CALL GETBYTEFROMRAM 0B9F:CAFD0B fPRINT JP Z,PRINT_CRLF 0BA2:C8 PRINT_LOOP RET Z 0BA3:FEA5 CP A5 0BA5:CA300C JP Z,PRINT_TAB 0BA8:FEA8 CP A8 0BAA:CA300C JP Z,PRINT_TAB 0BAD:E5 PUSH HL 0BAE:FE2C CP 2C 0BB0:CA190C JP Z,PRINT_COMMA 0BB3:FE3B CP 3B 0BB5:CA530C JP Z,PRINT_NEXTITEM 0BB8:C1 POP BC 0BB9:CDD40D CALL EVALEXP 0BBC:E5 PUSH HL 0BBD:3AF280 LD A,(wDATATYPE) 0BC0:B7 OR A 0BC1:C2E90B JP NZ,PRINT_STRING 0BC4:CD4919 CALL ASC2FLT_2ASCII 0BC7:CD5912 CALL STR_CREATETEMP 0BCA:3620 LD (HL),20 0BCC:2A2981 LD HL,(wFLOATMAN) 0BCF:34 INC (HL) 0BD0:2A2981 LD HL,(wFLOATMAN) 0BD3:3A8780 LD A,(wTERMWIDTH) 0BD6:47 LD B,A 0BD7:04 INC B 0BD8:CAE50B JP Z,PRINT_NUMBER 0BDB:04 INC B 0BDC:3AF080 LD A,(wCURSORPOS) 0BDF:86 ADD A,(HL) 0BE0:3D DEC A 0BE1:B8 CP B 0BE2:D4FD0B CALL NC,0BFD 0BE5:CD9E12 PRINT_NUMBER CALL STR_PRINTSTR1 0BE8:AF XOR A 0BE9:C49E12 PRINT_STRING CALL NZ,129E 0BEC:E1 POP HL 0BED:C39B0B JP PRINT_MORE 0BF0:3AF080 PRINT_NEWLINE LD A,(wCURSORPOS) 0BF3:B7 OR A 0BF4:C8 RET Z 0BF5:C3FD0B JP PRINT_CRLF 0BF8:3600 PRINT_BUFFEND LD (HL),00 0BFA:21A580 LD HL,80A5 0BFD:3E0D PRINT_CRLF LD A,0D 0BFF:CDD607 CALL PUTCHAR 0C02:3E0A LD A,0A 0C04:CDD607 CALL PUTCHAR 0C07:AF PRINT_NULL XOR A 0C08:32F080 LD (wCURSORPOS),A 0C0B:3A8680 LD A,(wNULLS) 0C0E:3D PRINT_NULLP DEC A 0C0F:C8 RET Z 0C10:F5 PUSH AF 0C11:AF XOR A 0C12:CDD607 CALL PUTCHAR 0C15:F1 POP AF 0C16:C30E0C JP PRINT_NULLP 0C19:3A8880 PRINT_COMMA LD A,(wCOMMAWIDTH) 0C1C:47 LD B,A 0C1D:3AF080 LD A,(wCURSORPOS) 0C20:B8 CP B 0C21:D4FD0B CALL NC,0BFD 0C24:D2530C JP NC,PRINT_NEXTITEM 0C27:D60E PRINT_ZONELP SUB 0E 0C29:D2270C JP NC,PRINT_ZONELP 0C2C:2F CPL 0C2D:C3480C JP PRINT_SPCXA 0C30:F5 PRINT_TAB PUSH AF 0C31:CD2015 CALL FINDNUM 0C34:CDCB07 CALL TESTSYNTAX 0C37:29 DEFB of1 0C38:2B DEC HL 0C39:F1 POP AF 0C3A:D6A8 SUB A8 0C3C:E5 PUSH HL 0C3D:CA430C JP Z,PRINT_SPCXE 0C40:3AF080 LD A,(wCURSORPOS) 0C43:2F PRINT_SPCXE CPL 0C44:83 ADD A,E 0C45:D2530C JP NC,PRINT_NEXTITEM 0C48:3C PRINT_SPCXA INC A 0C49:47 LD B,A 0C4A:3E20 LD A,20 0C4C:CDD607 PRINT_SPACELP CALL PUTCHAR 0C4F:05 DEC B 0C50:C24C0C JP NZ,PRINT_SPACELP 0C53:E1 PRINT_NEXTITEM POP HL 0C54:CD5509 CALL GETBYTEFROMRAM 0C57:C3A20B JP PRINT_LOOP 0C5A:3F526564 DISP_REDO DEFB of19 0C5E:6F206672 0C62:6F6D2073 0C66:74617274 0C6A:0D0A00 0C6D:3A1281 BADINPUT LD A,(wREADFLAG) 0C70:B7 OR A 0C71:C2F704 JP NZ,ERROR_DATLIN 0C74:C1 POP BC 0C75:215A0C LD HL,DISP_REDO 0C78:CD9B12 CALL STR_PRINTSTR 0C7B:C34806 JP NEW_DOITAGAIN 0C7E:CD0612 fINPUT CALL TESTID 0C81:7E LD A,(HL) 0C82:FE22 CP 22 0C84:3E00 LD A,00 0C86:328A80 LD (wCTRLOFLAG),A 0C89:C2980C JP NZ,INPUT_NOPROMPT 0C8C:CD5A12 CALL STR_QUOTED 0C8F:CDCB07 CALL TESTSYNTAX 0C92:3B DEFB of1 0C93:E5 PUSH HL 0C94:CD9E12 CALL STR_PRINTSTR1 0C97:3E DEFB of1 0C98:E5 INPUT_NOPROMPT PUSH HL 0C99:CD4C06 CALL NEW_INPWPROMPT 0C9C:C1 POP BC 0C9D:DAA409 JP C,BREAK_USERINP 0CA0:23 INC HL 0CA1:7E LD A,(HL) 0CA2:B7 OR A 0CA3:2B DEC HL 0CA4:C5 PUSH BC 0CA5:CAEB0A JP Z,RETURN_NXTSTMT 0CA8:362C LD (HL),2C 0CAA:C3B20C JP READ_NEXTITEM 0CAD:E5 fREAD PUSH HL 0CAE:2A2181 LD HL,(wNEXTDATA) 0CB1:F6 DEFB of1 0CB2:AF READ_NEXTITEM XOR A 0CB3:321281 LD (wREADFLAG),A 0CB6:E3 EX (SP),HL 0CB7:C3BE0C JP GETVALS 0CBA:CDCB07 GETVALS_MORE CALL TESTSYNTAX 0CBD:2C DEFB of1 0CBE:CDB80F GETVALS CALL DIM_GETVARADDR 0CC1:E3 EX (SP),HL 0CC2:D5 PUSH DE 0CC3:7E LD A,(HL) 0CC4:FE2C CP 2C 0CC6:CAE60C JP Z,GETVALS_ANOTHR 0CC9:3A1281 LD A,(wREADFLAG) 0CCC:B7 OR A 0CCD:C2530D JP NZ,DATAFINDNEXT 0CD0:3E3F LD A,3F 0CD2:CDD607 CALL PUTCHAR 0CD5:CD4C06 CALL NEW_INPWPROMPT 0CD8:D1 POP DE 0CD9:C1 POP BC 0CDA:DAA409 JP C,BREAK_USERINP 0CDD:23 INC HL 0CDE:7E LD A,(HL) 0CDF:B7 OR A 0CE0:2B DEC HL 0CE1:C5 PUSH BC 0CE2:CAEB0A JP Z,RETURN_NXTSTMT 0CE5:D5 PUSH DE 0CE6:3AF280 GETVALS_ANOTHR LD A,(wDATATYPE) 0CE9:B7 OR A 0CEA:CA100D JP Z,LETSTR_BININP 0CED:CD5509 CALL GETBYTEFROMRAM 0CF0:57 LD D,A 0CF1:47 LD B,A 0CF2:FE22 CP 22 0CF4:CA040D JP Z,GETVALS_STRENT 0CF7:3A1281 LD A,(wREADFLAG) 0CFA:B7 OR A 0CFB:57 LD D,A 0CFC:CA010D JP Z,GETVALS_ITMSEP 0CFF:163A LD D,3A 0D01:062C GETVALS_ITMSEP LD B,2C 0D03:2B DEC HL 0D04:CD5D12 GETVALS_STRENT CALL STR_DTERMINATD 0D07:EB EX DE,HL 0D08:211B0D LD HL,LETSTR 0D0B:E3 EX (SP),HL 0D0C:D5 PUSH DE 0D0D:C31E0B JP LET_STRING 0D10:CD5509 LETSTR_BININP CALL GETBYTEFROMRAM 0D13:CDAB18 CALL ASC2FLT 0D16:E3 EX (SP),HL 0D17:CDFC17 CALL FLOATPTRINHL 0D1A:E1 POP HL 0D1B:2B LETSTR DEC HL 0D1C:CD5509 CALL GETBYTEFROMRAM 0D1F:CA270D JP Z,LETSTR_GETMORE 0D22:FE2C CP 2C 0D24:C26D0C JP NZ,BADINPUT 0D27:E3 LETSTR_GETMORE EX (SP),HL 0D28:2B DEC HL 0D29:CD5509 CALL GETBYTEFROMRAM 0D2C:C2BA0C JP NZ,GETVALS_MORE 0D2F:D1 POP DE 0D30:3A1281 LD A,(wREADFLAG) 0D33:B7 OR A 0D34:EB EX DE,HL 0D35:C27B09 JP NZ,RESTORE_DATPTR 0D38:D5 PUSH DE 0D39:B6 OR (HL) 0D3A:21420D LD HL,DISP_IGNOREEXT 0D3D:C49B12 CALL NZ,129B 0D40:E1 POP HL 0D41:C9 RET 0D42:3F457874 DISP_IGNOREEXT DEFB of17 0D46:72612069 0D4A:676E6F72 0D4E:65640D0A 0D52:00 0D53:CDEC0A DATAFINDNEXT CALL fDATA 0D56:B7 OR A 0D57:C26C0D JP NZ,DATAFINDNEXT_1 0D5A:23 INC HL 0D5B:7E LD A,(HL) 0D5C:23 INC HL 0D5D:B6 OR (HL) 0D5E:1E06 LD E,06 0D60:CA1105 JP Z,PRINTERR 0D63:23 INC HL 0D64:5E LD E,(HL) 0D65:23 INC HL 0D66:56 LD D,(HL) 0D67:EB EX DE,HL 0D68:220E81 LD (wDATALINE),HL 0D6B:EB EX DE,HL 0D6C:CD5509 DATAFINDNEXT_1 CALL GETBYTEFROMRAM 0D6F:FE83 CP 83 0D71:C2530D JP NZ,DATAFINDNEXT 0D74:C3E60C JP GETVALS_ANOTHR 0D77:110000 fNEXT LD DE,0000 0D7A:C4B80F NEXT_RENTRY CALL NZ,0FB8 0D7D:221381 LD (wBREAKLINE),HL 0D80:CDA604 CALL FINDFOR 0D83:C20305 JP NZ,ERROR_NF 0D86:F9 LD SP,HL 0D87:D5 PUSH DE 0D88:7E LD A,(HL) 0D89:23 INC HL 0D8A:F5 PUSH AF 0D8B:D5 PUSH DE 0D8C:CDE217 CALL FLOATSAVE 0D8F:E3 EX (SP),HL 0D90:E5 PUSH HL 0D91:CD4F15 CALL ROUND_FLTADDHL 0D94:E1 POP HL 0D95:CDFC17 CALL FLOATPTRINHL 0D98:E1 POP HL 0D99:CDF317 CALL FLOATLOAD 0D9C:E5 PUSH HL 0D9D:CD1F18 CALL COMPNUMBER 0DA0:E1 POP HL 0DA1:C1 POP BC 0DA2:90 SUB B 0DA3:CDF317 CALL FLOATLOAD 0DA6:CAB20D JP Z,FORBLOCKKILL 0DA9:EB EX DE,HL 0DAA:22A180 LD (wTHISLINE),HL 0DAD:69 LD L,C 0DAE:60 LD H,B 0DAF:C31109 JP FOR_IDSAVE 0DB2:F9 FORBLOCKKILL LD SP,HL 0DB3:2A1381 LD HL,(wBREAKLINE) 0DB6:7E LD A,(HL) 0DB7:FE2C CP 2C 0DB9:C21509 JP NZ,FOR_BREAKTEST 0DBC:CD5509 CALL GETBYTEFROMRAM 0DBF:CD7A0D CALL NEXT_RENTRY 0DC2:CDD40D EVALEXP_GETNUM CALL EVALEXP 0DC5:F6 EVALEXP_TSTNUM DEFB of1 0DC6:37 EVALEXP_TSTSTR SCF 0DC7:3AF280 EVALEXP_CHKTYP LD A,(wDATATYPE) 0DCA:8F ADC A,A 0DCB:B7 OR A 0DCC:E8 RET PE 0DCD:C30F05 JP ERROR_TM 0DD0:CDCB07 EVALEXP_OPNPAR CALL TESTSYNTAX 0DD3:28 DEFB of1 0DD4:2B EVALEXP DEC HL 0DD5:1600 LD D,00 0DD7:D5 EVALEXP_PREBRK PUSH DE 0DD8:0E01 LD C,01 0DDA:CDDA04 CALL CHECKSTACK 0DDD:CD4B0E CALL OPERND 0DE0:221581 EVALEXP_NEXT LD (wNEXTOPERATOR),HL 0DE3:2A1581 EVALEXP_CONT LD HL,(wNEXTOPERATOR) 0DE6:C1 POP BC 0DE7:78 LD A,B 0DE8:FE78 CP 78 0DEA:D4C50D CALL NC,0DC5 0DED:7E LD A,(HL) 0DEE:1600 LD D,00 0DF0:D6B3 EVALEXP_OPERLP SUB B3 0DF2:DA0C0E JP C,EVALOPERATOR 0DF5:FE03 CP 03 0DF7:D20C0E JP NC,EVALOPERATOR 0DFA:FE01 CP 01 0DFC:17 RLA 0DFD:AA XOR D 0DFE:BA CP D 0DFF:57 LD D,A 0E00:DAFD04 JP C,ERROR_SN 0E03:220A81 LD (wTHISOPERATOR),HL 0E06:CD5509 CALL GETBYTEFROMRAM 0E09:C3F00D JP EVALEXP_OPERLP 0E0C:7A EVALOPERATOR LD A,D 0E0D:B7 OR A 0E0E:C2330F JP NZ,COMPARE 0E11:7E LD A,(HL) 0E12:220A81 LD (wTHISOPERATOR),HL 0E15:D6AC SUB AC 0E17:D8 RET C 0E18:FE07 CP 07 0E1A:D0 RET NC 0E1B:5F LD E,A 0E1C:3AF280 LD A,(wDATATYPE) 0E1F:3D DEC A 0E20:B3 OR E 0E21:7B LD A,E 0E22:CA9113 JP Z,STR_CONCAT 0E25:07 RLCA 0E26:83 ADD A,E 0E27:5F LD E,A 0E28:21EF03 LD HL,TABLE_MATHORDR 0E2B:19 ADD HL,DE 0E2C:78 LD A,B 0E2D:56 LD D,(HL) 0E2E:BA CP D 0E2F:D0 RET NC 0E30:23 INC HL 0E31:CDC50D CALL EVALEXP_TSTNUM 0E34:C5 TOKENONSTACK PUSH BC 0E35:01E30D LD BC,0DE3 0E38:C5 PUSH BC 0E39:43 LD B,E 0E3A:4A LD C,D 0E3B:CDD517 CALL FLOATTOSTACK 0E3E:58 LD E,B 0E3F:51 LD D,C 0E40:4E LD C,(HL) 0E41:23 INC HL 0E42:46 LD B,(HL) 0E43:23 INC HL 0E44:C5 PUSH BC 0E45:2A0A81 LD HL,(wTHISOPERATOR) 0E48:C3D70D JP EVALEXP_PREBRK 0E4B:AF OPERND XOR A 0E4C:32F280 LD (wDATATYPE),A 0E4F:CD5509 CALL GETBYTEFROMRAM 0E52:1E24 LD E,24 0E54:CA1105 JP Z,PRINTERR 0E57:DAAB18 JP C,ASC2FLT 0E5A:CDF309 CALL TESTFORLETTERS 0E5D:D2B20E JP NC,FINDVAR_ADDR 0E60:FE26 CP 26 0E62:2012 JR NZ,OPERND_NAMPSD 0E64:CD5509 CALL GETBYTEFROMRAM 0E67:FE48 CP 48 0E69:CAEF1C JP Z,HEX2FLT 0E6C:FE42 CP 42 0E6E:CA5F1D JP Z,BIN2FLT 0E71:1E02 LD E,02 0E73:CA1105 JP Z,PRINTERR 0E76:FEAC OPERND_NAMPSD CP AC 0E78:CA4B0E JP Z,OPERND 0E7B:FE2E CP 2E 0E7D:CAAB18 JP Z,ASC2FLT 0E80:FEAD CP AD 0E82:CAA10E JP Z,EVALMINUS 0E85:FE22 CP 22 0E87:CA5A12 JP Z,STR_QUOTED 0E8A:FEAA CP AA 0E8C:CA930F JP Z,BOOLEAN_NOT 0E8F:FEA7 CP A7 0E91:CABE11 JP Z,EXECUTEUSERFN 0E94:D6B6 SUB B6 0E96:D2C30E JP NC,EVALFUNCT_ADDR 0E99:CDD00D OPERND_EVALPAR CALL EVALEXP_OPNPAR 0E9C:CDCB07 CALL TESTSYNTAX 0E9F:29 DEFB of1 0EA0:C9 RET 0EA1:167D EVALMINUS LD D,7D 0EA3:CDD70D CALL EVALEXP_PREBRK 0EA6:2A1581 LD HL,(wNEXTOPERATOR) 0EA9:E5 PUSH HL 0EAA:CDCD17 CALL ABS_INVSIGN 0EAD:CDC50D EVALMINUS_RETN CALL EVALEXP_TSTNUM 0EB0:E1 POP HL 0EB1:C9 RET 0EB2:CDB80F FINDVAR_ADDR CALL DIM_GETVARADDR 0EB5:E5 FINDVAR_FROM PUSH HL 0EB6:EB EX DE,HL 0EB7:222981 LD (wFLOATMAN),HL 0EBA:3AF280 LD A,(wDATATYPE) 0EBD:B7 OR A 0EBE:CCE217 CALL Z,17E2 0EC1:E1 POP HL 0EC2:C9 RET 0EC3:0600 EVALFUNCT_ADDR LD B,00 0EC5:07 RLCA 0EC6:4F LD C,A 0EC7:C5 PUSH BC 0EC8:CD5509 CALL GETBYTEFROMRAM 0ECB:79 LD A,C 0ECC:FE31 CP 31 0ECE:DAEA0E JP C,EVALFUNCT 0ED1:CDD00D CALL EVALEXP_OPNPAR 0ED4:CDCB07 CALL TESTSYNTAX 0ED7:2C DEFB of1 0ED8:CDC60D CALL EVALEXP_TSTSTR 0EDB:EB EX DE,HL 0EDC:2A2981 LD HL,(wFLOATMAN) 0EDF:E3 EX (SP),HL 0EE0:E5 PUSH HL 0EE1:EB EX DE,HL 0EE2:CD2315 CALL FINDNUM_GETINT 0EE5:EB EX DE,HL 0EE6:E3 EX (SP),HL 0EE7:C3F20E JP EVALFUNCT_JUMP 0EEA:CD990E EVALFUNCT CALL OPERND_EVALPAR 0EED:E3 EX (SP),HL 0EEE:11AD0E LD DE,0EAD 0EF1:D5 PUSH DE 0EF2:014E02 EVALFUNCT_JUMP LD BC,024E 0EF5:09 ADD HL,BC 0EF6:4E LD C,(HL) 0EF7:23 INC HL 0EF8:66 LD H,(HL) 0EF9:69 LD L,C 0EFA:E9 JP (HL) 0EFB:15 EXPONENTSIGN DEC D 0EFC:FEAD CP AD 0EFE:C8 RET Z 0EFF:FE2D CP 2D 0F01:C8 RET Z 0F02:14 INC D 0F03:FE2B CP 2B 0F05:C8 RET Z 0F06:FEAC CP AC 0F08:C8 RET Z 0F09:2B DEC HL 0F0A:C9 RET 0F0B:F6 BOOLEAN_OR DEFB of1 0F0C:AF BOOLEAN_AND XOR A 0F0D:F5 PUSH AF 0F0E:CDC50D CALL EVALEXP_TSTNUM 0F11:CD070A CALL GETINTEGER 0F14:F1 POP AF 0F15:EB EX DE,HL 0F16:C1 POP BC 0F17:E3 EX (SP),HL 0F18:EB EX DE,HL 0F19:CDE517 CALL FLOATSAVE_BCDE 0F1C:F5 PUSH AF 0F1D:CD070A CALL GETINTEGER 0F20:F1 POP AF 0F21:C1 POP BC 0F22:79 LD A,C 0F23:217C11 LD HL,FREE_ACPASS 0F26:C22E0F JP NZ,BOOLEAN_OR1 0F29:A3 AND E 0F2A:4F LD C,A 0F2B:78 LD A,B 0F2C:A2 AND D 0F2D:E9 JP (HL) 0F2E:B3 BOOLEAN_OR1 OR E 0F2F:4F LD C,A 0F30:78 LD A,B 0F31:B2 OR D 0F32:E9 JP (HL) 0F33:21450F COMPARE LD HL,COMPARE_LOGIC1 0F36:3AF280 LD A,(wDATATYPE) 0F39:1F RRA 0F3A:7A LD A,D 0F3B:17 RLA 0F3C:5F LD E,A 0F3D:1664 LD D,64 0F3F:78 LD A,B 0F40:BA CP D 0F41:D0 RET NC 0F42:C3340E JP TOKENONSTACK 0F45:470F COMPARE_LOGIC1 DEFW of1 0F47:79 COMPARE_LOGIC2 LD A,C 0F48:B7 OR A 0F49:1F RRA 0F4A:C1 POP BC 0F4B:D1 POP DE 0F4C:F5 PUSH AF 0F4D:CDC70D CALL EVALEXP_CHKTYP 0F50:21890F LD HL,COMPARE_RESULT 0F53:E5 PUSH HL 0F54:CA1F18 JP Z,COMPNUMBER 0F57:AF XOR A 0F58:32F280 LD (wDATATYPE),A 0F5B:D5 PUSH DE 0F5C:CDDE13 CALL GETSTR_CURRENT 0F5F:7E LD A,(HL) 0F60:23 INC HL 0F61:23 INC HL 0F62:4E LD C,(HL) 0F63:23 INC HL 0F64:46 LD B,(HL) 0F65:D1 POP DE 0F66:C5 PUSH BC 0F67:F5 PUSH AF 0F68:CDE213 CALL GETSTR_DE 0F6B:CDF317 CALL FLOATLOAD 0F6E:F1 POP AF 0F6F:57 LD D,A 0F70:E1 POP HL 0F71:7B COMPARE_STRLP LD A,E 0F72:B2 OR D 0F73:C8 RET Z 0F74:7A LD A,D 0F75:D601 SUB 01 0F77:D8 RET C 0F78:AF XOR A 0F79:BB CP E 0F7A:3C INC A 0F7B:D0 RET NC 0F7C:15 DEC D 0F7D:1D DEC E 0F7E:0A LD A,(BC) 0F7F:BE CP (HL) 0F80:23 INC HL 0F81:03 INC BC 0F82:CA710F JP Z,COMPARE_STRLP 0F85:3F CCF 0F86:C3AF17 JP TESTSGN_FLGDIF 0F89:3C COMPARE_RESULT INC A 0F8A:8F ADC A,A 0F8B:C1 POP BC 0F8C:A0 AND B 0F8D:C6FF ADD A,FF 0F8F:9F SBC A,A 0F90:C3B617 JP SGN_FLTGREL 0F93:165A BOOLEAN_NOT LD D,5A 0F95:CDD70D CALL EVALEXP_PREBRK 0F98:CDC50D CALL EVALEXP_TSTNUM 0F9B:CD070A CALL GETINTEGER 0F9E:7B LD A,E 0F9F:2F CPL 0FA0:4F LD C,A 0FA1:7A LD A,D 0FA2:2F CPL 0FA3:CD7C11 CALL FREE_ACPASS 0FA6:C1 POP BC 0FA7:C3E30D JP EVALEXP_CONT 0FAA:2B DIM_RETURN DEC HL 0FAB:CD5509 CALL GETBYTEFROMRAM 0FAE:C8 RET Z 0FAF:CDCB07 CALL TESTSYNTAX 0FB2:2C DEFB of1 0FB3:01AA0F fDIM LD BC,0FAA 0FB6:C5 PUSH BC 0FB7:F6 DEFB of1 0FB8:AF DIM_GETVARADDR XOR A 0FB9:32F180 LD (wLCRFLAG),A 0FBC:46 LD B,(HL) 0FBD:CDF309 DIM_GETFNCTNME CALL TESTFORLETTERS 0FC0:DAFD04 JP C,ERROR_SN 0FC3:AF XOR A 0FC4:4F LD C,A 0FC5:32F280 LD (wDATATYPE),A 0FC8:CD5509 CALL GETBYTEFROMRAM 0FCB:DAD40F JP C,DIM_SAVENAME2 0FCE:CDF309 CALL TESTFORLETTERS 0FD1:DAE10F JP C,DIM_CHKCHARTYP 0FD4:4F DIM_SAVENAME2 LD C,A 0FD5:CD5509 DIM_ENDOFNAME CALL GETBYTEFROMRAM 0FD8:DAD50F JP C,DIM_ENDOFNAME 0FDB:CDF309 CALL TESTFORLETTERS 0FDE:D2D50F JP NC,DIM_ENDOFNAME 0FE1:D624 DIM_CHKCHARTYP SUB 24 0FE3:C2F00F JP NZ,DIM_NOTASTRING 0FE6:3C INC A 0FE7:32F280 LD (wDATATYPE),A 0FEA:0F RRCA 0FEB:81 ADD A,C 0FEC:4F LD C,A 0FED:CD5509 CALL GETBYTEFROMRAM 0FF0:3A1081 DIM_NOTASTRING LD A,(wFORFLAG) 0FF3:3D DEC A 0FF4:CA9D10 JP Z,ARRAYINDX_ADDR 0FF7:F20010 JP P,DIM_SMPVARFOR0 0FFA:7E LD A,(HL) 0FFB:D628 SUB 28 0FFD:CA7510 JP Z,ARRAYINDX 1000:AF DIM_SMPVARFOR0 XOR A 1001:321081 LD (wFORFLAG),A 1004:E5 PUSH HL 1005:50 LD D,B 1006:59 LD E,C 1007:2A2381 LD HL,(wFUNCTARGNAME) 100A:CDC507 CALL COMPAREDEHL 100D:112581 LD DE,8125 1010:CAE516 JP Z,LOG_POPHANDRET 1013:2A1D81 LD HL,(wVARIABLESEND) 1016:EB EX DE,HL 1017:2A1B81 LD HL,(wPROGRAMEND) 101A:CDC507 DIM_FINDVARLP CALL COMPAREDEHL 101D:CA3310 JP Z,CALLEDFROMEVAL 1020:79 LD A,C 1021:96 SUB (HL) 1022:23 INC HL 1023:C22810 JP NZ,DIM_FNDANOTHER 1026:78 LD A,B 1027:96 SUB (HL) 1028:23 DIM_FNDANOTHER INC HL 1029:CA6710 JP Z,RETURNADDR 102C:23 INC HL 102D:23 INC HL 102E:23 INC HL 102F:23 INC HL 1030:C31A10 JP DIM_FINDVARLP 1033:E1 CALLEDFROMEVAL POP HL 1034:E3 EX (SP),HL 1035:D5 PUSH DE 1036:11B50E LD DE,0EB5 1039:CDC507 CALL COMPAREDEHL 103C:D1 POP DE 103D:CA6A10 JP Z,RETURNNULL 1040:E3 EX (SP),HL 1041:E5 PUSH HL 1042:C5 PUSH BC 1043:010600 LD BC,0006 1046:2A1F81 LD HL,(wARRAYSEND) 1049:E5 PUSH HL 104A:09 ADD HL,BC 104B:C1 POP BC 104C:E5 PUSH HL 104D:CDC904 CALL MAKESPACE 1050:E1 POP HL 1051:221F81 LD (wARRAYSEND),HL 1054:60 LD H,B 1055:69 LD L,C 1056:221D81 LD (wVARIABLESEND),HL 1059:2B RETURNADDR_LP DEC HL 105A:3600 LD (HL),00 105C:CDC507 CALL COMPAREDEHL 105F:C25910 JP NZ,RETURNADDR_LP 1062:D1 POP DE 1063:73 LD (HL),E 1064:23 INC HL 1065:72 LD (HL),D 1066:23 INC HL 1067:EB RETURNADDR EX DE,HL 1068:E1 POP HL 1069:C9 RET 106A:322C81 RETURNNULL LD (wFLOATEXP),A 106D:219904 LD HL,DISP_ZBYTE 1070:222981 LD (wFLOATMAN),HL 1073:E1 POP HL 1074:C9 RET 1075:E5 ARRAYINDX PUSH HL 1076:2AF180 LD HL,(wLCRFLAG) 1079:E3 EX (SP),HL 107A:57 LD D,A 107B:D5 ARRAYINDX_LOOP PUSH DE 107C:C5 PUSH BC 107D:CDFB09 CALL GETINTEGER_IDX 1080:C1 POP BC 1081:F1 POP AF 1082:EB EX DE,HL 1083:E3 EX (SP),HL 1084:E5 PUSH HL 1085:EB EX DE,HL 1086:3C INC A 1087:57 LD D,A 1088:7E LD A,(HL) 1089:FE2C CP 2C 108B:CA7B10 JP Z,ARRAYINDX_LOOP 108E:CDCB07 CALL TESTSYNTAX 1091:29 DEFB of1 1092:221581 LD (wNEXTOPERATOR),HL 1095:E1 POP HL 1096:22F180 LD (wLCRFLAG),HL 1099:1E00 LD E,00 109B:D5 PUSH DE 109C:11 DEFB of1 109D:E5 ARRAYINDX_ADDR PUSH HL 109E:F5 PUSH AF 109F:2A1D81 LD HL,(wVARIABLESEND) 10A2:3E DEFB of1 10A3:19 ARRAYINDX_FIND ADD HL,DE 10A4:EB EX DE,HL 10A5:2A1F81 LD HL,(wARRAYSEND) 10A8:EB EX DE,HL 10A9:CDC507 CALL COMPAREDEHL 10AC:CAD510 JP Z,ARRAYMAKE 10AF:7E LD A,(HL) 10B0:B9 CP C 10B1:23 INC HL 10B2:C2B710 JP NZ,ARRAYINDX_NEXT 10B5:7E LD A,(HL) 10B6:B8 CP B 10B7:23 ARRAYINDX_NEXT INC HL 10B8:5E LD E,(HL) 10B9:23 INC HL 10BA:56 LD D,(HL) 10BB:23 INC HL 10BC:C2A310 JP NZ,ARRAYINDX_FIND 10BF:3AF180 LD A,(wLCRFLAG) 10C2:B7 OR A 10C3:C20605 JP NZ,ERROR_DD 10C6:F1 POP AF 10C7:44 LD B,H 10C8:4D LD C,L 10C9:CAE516 JP Z,LOG_POPHANDRET 10CC:96 SUB (HL) 10CD:CA3311 JP Z,ARRAYMAKE_FIND 10D0:1E10 ARRAYINDX_BSER LD E,10 10D2:C31105 JP PRINTERR 10D5:110400 ARRAYMAKE LD DE,0004 10D8:F1 POP AF 10D9:CA1C0A JP Z,GETINTEGER_ERR 10DC:71 LD (HL),C 10DD:23 INC HL 10DE:70 LD (HL),B 10DF:23 INC HL 10E0:4F LD C,A 10E1:CDDA04 CALL CHECKSTACK 10E4:23 INC HL 10E5:23 INC HL 10E6:220A81 LD (wTHISOPERATOR),HL 10E9:71 LD (HL),C 10EA:23 INC HL 10EB:3AF180 LD A,(wLCRFLAG) 10EE:17 RLA 10EF:79 LD A,C 10F0:010B00 ARRAYMAKE_LP LD BC,000B 10F3:D2F810 JP NC,ARRAYMAKE_SIZE 10F6:C1 POP BC 10F7:03 INC BC 10F8:71 ARRAYMAKE_SIZE LD (HL),C 10F9:23 INC HL 10FA:70 LD (HL),B 10FB:23 INC HL 10FC:F5 PUSH AF 10FD:E5 PUSH HL 10FE:CD9018 CALL BCDEMULT 1101:EB EX DE,HL 1102:E1 POP HL 1103:F1 POP AF 1104:3D DEC A 1105:C2F010 JP NZ,ARRAYMAKE_LP 1108:F5 PUSH AF 1109:42 LD B,D 110A:4B LD C,E 110B:EB EX DE,HL 110C:19 ADD HL,DE 110D:DAF204 JP C,CHECKSTACK_ERR 1110:CDE304 CALL CHECKSTACK_OK 1113:221F81 LD (wARRAYSEND),HL 1116:2B ARRAYMAKE_ZLP DEC HL 1117:3600 LD (HL),00 1119:CDC507 CALL COMPAREDEHL 111C:C21611 JP NZ,ARRAYMAKE_ZLP 111F:03 INC BC 1120:57 LD D,A 1121:2A0A81 LD HL,(wTHISOPERATOR) 1124:5E LD E,(HL) 1125:EB EX DE,HL 1126:29 ADD HL,HL 1127:09 ADD HL,BC 1128:EB EX DE,HL 1129:2B DEC HL 112A:2B DEC HL 112B:73 LD (HL),E 112C:23 INC HL 112D:72 LD (HL),D 112E:23 INC HL 112F:F1 POP AF 1130:DA5711 JP C,ARRAYMAKE_END 1133:47 ARRAYMAKE_FIND LD B,A 1134:4F LD C,A 1135:7E LD A,(HL) 1136:23 INC HL 1137:16 DEFB of1 1138:E1 ARRAYMAKE_FLP POP HL 1139:5E LD E,(HL) 113A:23 INC HL 113B:56 LD D,(HL) 113C:23 INC HL 113D:E3 EX (SP),HL 113E:F5 PUSH AF 113F:CDC507 CALL COMPAREDEHL 1142:D2D010 JP NC,ARRAYINDX_BSER 1145:E5 PUSH HL 1146:CD9018 CALL BCDEMULT 1149:D1 POP DE 114A:19 ADD HL,DE 114B:F1 POP AF 114C:3D DEC A 114D:44 LD B,H 114E:4D LD C,L 114F:C23811 JP NZ,ARRAYMAKE_FLP 1152:29 ADD HL,HL 1153:29 ADD HL,HL 1154:C1 POP BC 1155:09 ADD HL,BC 1156:EB EX DE,HL 1157:2A1581 ARRAYMAKE_END LD HL,(wNEXTOPERATOR) 115A:C9 RET 115B:2A1F81 fFREE LD HL,(wARRAYSEND) 115E:EB EX DE,HL 115F:210000 LD HL,RST00 1162:39 ADD HL,SP 1163:3AF280 LD A,(wDATATYPE) 1166:B7 OR A 1167:CA7711 JP Z,FREE_NUMBER 116A:CDDE13 CALL GETSTR_CURRENT 116D:CDDE12 CALL STR_GARBGECOLL 1170:2A9F80 LD HL,(wSTRINGSPACE) 1173:EB EX DE,HL 1174:2A0881 LD HL,(wSTRINGBOTTOM) 1177:7D FREE_NUMBER LD A,L 1178:93 SUB E 1179:4F LD C,A 117A:7C LD A,H 117B:9A SBC A,D 117C:41 FREE_ACPASS LD B,C 117D:50 FREE_ABPASS LD D,B 117E:1E00 LD E,00 1180:21F280 LD HL,wDATATYPE 1183:73 LD (HL),E 1184:0690 LD B,90 1186:C3BB17 JP SGN_RETINT 1189:3AF080 fPOS LD A,(wCURSORPOS) 118C:47 POS_PASSA LD B,A 118D:AF XOR A 118E:C37D11 JP FREE_ABPASS 1191:CD1412 fDEF CALL CHECKFUNCTION 1194:CD0612 CALL TESTID 1197:01EC0A LD BC,0AEC 119A:C5 PUSH BC 119B:D5 PUSH DE 119C:CDCB07 CALL TESTSYNTAX 119F:28 DEFB of1 11A0:CDB80F CALL DIM_GETVARADDR 11A3:E5 PUSH HL 11A4:EB EX DE,HL 11A5:2B DEC HL 11A6:56 LD D,(HL) 11A7:2B DEC HL 11A8:5E LD E,(HL) 11A9:E1 POP HL 11AA:CDC50D CALL EVALEXP_TSTNUM 11AD:CDCB07 CALL TESTSYNTAX 11B0:29 DEFB of1 11B1:CDCB07 CALL TESTSYNTAX 11B4:B4 DEFB of1 11B5:44 LD B,H 11B6:4D LD C,L 11B7:E3 EX (SP),HL 11B8:71 LD (HL),C 11B9:23 INC HL 11BA:70 LD (HL),B 11BB:C35312 JP STR_SAVEADDR 11BE:CD1412 EXECUTEUSERFN CALL CHECKFUNCTION 11C1:D5 PUSH DE 11C2:CD990E CALL OPERND_EVALPAR 11C5:CDC50D CALL EVALEXP_TSTNUM 11C8:E3 EX (SP),HL 11C9:5E LD E,(HL) 11CA:23 INC HL 11CB:56 LD D,(HL) 11CC:23 INC HL 11CD:7A LD A,D 11CE:B3 OR E 11CF:CA0905 JP Z,ERROR_UF 11D2:7E LD A,(HL) 11D3:23 INC HL 11D4:66 LD H,(HL) 11D5:6F LD L,A 11D6:E5 PUSH HL 11D7:2A2381 LD HL,(wFUNCTARGNAME) 11DA:E3 EX (SP),HL 11DB:222381 LD (wFUNCTARGNAME),HL 11DE:2A2781 LD HL,(8127) 11E1:E5 PUSH HL 11E2:2A2581 LD HL,(wFUNCTNARG) 11E5:E5 PUSH HL 11E6:212581 LD HL,wFUNCTNARG 11E9:D5 PUSH DE 11EA:CDFC17 CALL FLOATPTRINHL 11ED:E1 POP HL 11EE:CDC20D CALL EVALEXP_GETNUM 11F1:2B DEC HL 11F2:CD5509 CALL GETBYTEFROMRAM 11F5:C2FD04 JP NZ,ERROR_SN 11F8:E1 POP HL 11F9:222581 LD (wFUNCTNARG),HL 11FC:E1 POP HL 11FD:222781 LD (8127),HL 1200:E1 POP HL 1201:222381 LD (wFUNCTARGNAME),HL 1204:E1 POP HL 1205:C9 RET 1206:E5 TESTID PUSH HL 1207:2AA180 LD HL,(wTHISLINE) 120A:23 INC HL 120B:7C LD A,H 120C:B5 OR L 120D:E1 POP HL 120E:C0 RET NZ 120F:1E16 LD E,16 1211:C31105 JP PRINTERR 1214:CDCB07 CHECKFUNCTION CALL TESTSYNTAX 1217:A7 DEFB of1 1218:3E80 LD A,80 121A:321081 LD (wFORFLAG),A 121D:B6 OR (HL) 121E:47 LD B,A 121F:CDBD0F CALL DIM_GETFNCTNME 1222:C3C50D JP EVALEXP_TSTNUM 1225:CDC50D fSTR CALL EVALEXP_TSTNUM 1228:CD4919 CALL ASC2FLT_2ASCII 122B:CD5912 STR_PBUFF2STR CALL STR_CREATETEMP 122E:CDDE13 CALL GETSTR_CURRENT 1231:013914 LD BC,1439 1234:C5 PUSH BC 1235:7E STR_SAVE LD A,(HL) 1236:23 INC HL 1237:23 INC HL 1238:E5 PUSH HL 1239:CDB412 CALL STR_TESTIFROOM 123C:E1 POP HL 123D:4E LD C,(HL) 123E:23 INC HL 123F:46 LD B,(HL) 1240:CD4D12 CALL STR_CREATE 1243:E5 PUSH HL 1244:6F LD L,A 1245:CDD113 CALL STR2STRBLK_MOV 1248:D1 POP DE 1249:C9 RET 124A:CDB412 STR_ISAVAIL CALL STR_TESTIFROOM 124D:210481 STR_CREATE LD HL,wTMPSTRING 1250:E5 PUSH HL 1251:77 LD (HL),A 1252:23 INC HL 1253:23 STR_SAVEADDR INC HL 1254:73 LD (HL),E 1255:23 INC HL 1256:72 LD (HL),D 1257:E1 POP HL 1258:C9 RET 1259:2B STR_CREATETEMP DEC HL 125A:0622 STR_QUOTED LD B,22 125C:50 LD D,B 125D:E5 STR_DTERMINATD PUSH HL 125E:0EFF LD C,FF 1260:23 STR_QUOTEDLOOP INC HL 1261:7E LD A,(HL) 1262:0C INC C 1263:B7 OR A 1264:CA6F12 JP Z,STR_MAKEENTRY 1267:BA CP D 1268:CA6F12 JP Z,STR_MAKEENTRY 126B:B8 CP B 126C:C26012 JP NZ,STR_QUOTEDLOOP 126F:FE22 STR_MAKEENTRY CP 22 1271:CC5509 CALL Z,0955 1274:E3 EX (SP),HL 1275:23 INC HL 1276:EB EX DE,HL 1277:79 LD A,C 1278:CD4D12 CALL STR_CREATE 127B:110481 STR_TEMPORARY LD DE,8104 127E:2AF680 LD HL,(wTMPSTRPTR) 1281:222981 LD (wFLOATMAN),HL 1284:3E01 LD A,01 1286:32F280 LD (wDATATYPE),A 1289:CDFF17 CALL FLOATPTRINHL_4 128C:CDC507 CALL COMPAREDEHL 128F:22F680 LD (wTMPSTRPTR),HL 1292:E1 POP HL 1293:7E LD A,(HL) 1294:C0 RET NZ 1295:1E1E LD E,1E 1297:C31105 JP PRINTERR 129A:23 STR_PRINTNUMB INC HL 129B:CD5912 STR_PRINTSTR CALL STR_CREATETEMP 129E:CDDE13 STR_PRINTSTR1 CALL GETSTR_CURRENT 12A1:CDF317 CALL FLOATLOAD 12A4:1C INC E 12A5:1D STR_PRINTSTRLP DEC E 12A6:C8 RET Z 12A7:0A LD A,(BC) 12A8:CDD607 CALL PUTCHAR 12AB:FE0D CP 0D 12AD:CC070C CALL Z,0C07 12B0:03 INC BC 12B1:C3A512 JP STR_PRINTSTRLP 12B4:B7 STR_TESTIFROOM OR A 12B5:0E DEFB of1 12B6:F1 STR_GARBAGEDNE POP AF 12B7:F5 PUSH AF 12B8:2A9F80 LD HL,(wSTRINGSPACE) 12BB:EB EX DE,HL 12BC:2A0881 LD HL,(wSTRINGBOTTOM) 12BF:2F CPL 12C0:4F LD C,A 12C1:06FF LD B,FF 12C3:09 ADD HL,BC 12C4:23 INC HL 12C5:CDC507 CALL COMPAREDEHL 12C8:DAD212 JP C,STR_TESTIFTIDY 12CB:220881 LD (wSTRINGBOTTOM),HL 12CE:23 INC HL 12CF:EB EX DE,HL 12D0:F1 STR_POPAF POP AF 12D1:C9 RET 12D2:F1 STR_TESTIFTIDY POP AF 12D3:1E1A LD E,1A 12D5:CA1105 JP Z,PRINTERR 12D8:BF CP A 12D9:F5 PUSH AF 12DA:01B612 LD BC,12B6 12DD:C5 PUSH BC 12DE:2AF480 STR_GARBGECOLL LD HL,(wLASTRAM) 12E1:220881 STR_GARBAGELP1 LD (wSTRINGBOTTOM),HL 12E4:210000 LD HL,RST00 12E7:E5 PUSH HL 12E8:2A9F80 LD HL,(wSTRINGSPACE) 12EB:E5 PUSH HL 12EC:21F880 LD HL,wTMPSTRPOOL 12EF:EB STR_GARBAGELP2 EX DE,HL 12F0:2AF680 LD HL,(wTMPSTRPTR) 12F3:EB EX DE,HL 12F4:CDC507 CALL COMPAREDEHL 12F7:01EF12 LD BC,12EF 12FA:C24313 JP NZ,STR_ISITINPOOL 12FD:2A1B81 LD HL,(wPROGRAMEND) 1300:EB STR_SIMPLEVARS EX DE,HL 1301:2A1D81 LD HL,(wVARIABLESEND) 1304:EB EX DE,HL 1305:CDC507 CALL COMPAREDEHL 1308:CA1613 JP Z,STR_ARRAYLOOP 130B:7E LD A,(HL) 130C:23 INC HL 130D:23 INC HL 130E:B7 OR A 130F:CD4613 CALL STR_ADDTOPOOL 1312:C30013 JP STR_SIMPLEVARS 1315:C1 STR_ARRAYMOV POP BC 1316:EB STR_ARRAYLOOP EX DE,HL 1317:2A1F81 LD HL,(wARRAYSEND) 131A:EB EX DE,HL 131B:CDC507 CALL COMPAREDEHL 131E:CA6C13 JP Z,STR_SCANTOEND 1321:CDF317 CALL FLOATLOAD 1324:7B LD A,E 1325:E5 PUSH HL 1326:09 ADD HL,BC 1327:B7 OR A 1328:F21513 JP P,STR_ARRAYMOV 132B:220A81 LD (wTHISOPERATOR),HL 132E:E1 POP HL 132F:4E LD C,(HL) 1330:0600 LD B,00 1332:09 ADD HL,BC 1333:09 ADD HL,BC 1334:23 INC HL 1335:EB STR_GARBGARRAY EX DE,HL 1336:2A0A81 LD HL,(wTHISOPERATOR) 1339:EB EX DE,HL 133A:CDC507 CALL COMPAREDEHL 133D:CA1613 JP Z,STR_ARRAYLOOP 1340:013513 LD BC,1335 1343:C5 STR_ISITINPOOL PUSH BC 1344:F680 OR 80 1346:7E STR_ADDTOPOOL LD A,(HL) 1347:23 INC HL 1348:23 INC HL 1349:5E LD E,(HL) 134A:23 INC HL 134B:56 LD D,(HL) 134C:23 INC HL 134D:F0 RET P 134E:B7 OR A 134F:C8 RET Z 1350:44 LD B,H 1351:4D LD C,L 1352:2A0881 LD HL,(wSTRINGBOTTOM) 1355:CDC507 CALL COMPAREDEHL 1358:60 LD H,B 1359:69 LD L,C 135A:D8 RET C 135B:E1 POP HL 135C:E3 EX (SP),HL 135D:CDC507 CALL COMPAREDEHL 1360:E3 EX (SP),HL 1361:E5 PUSH HL 1362:60 LD H,B 1363:69 LD L,C 1364:D0 RET NC 1365:C1 POP BC 1366:F1 POP AF 1367:F1 POP AF 1368:E5 PUSH HL 1369:D5 PUSH DE 136A:C5 PUSH BC 136B:C9 RET 136C:D1 STR_SCANTOEND POP DE 136D:E1 POP HL 136E:7D LD A,L 136F:B4 OR H 1370:C8 RET Z 1371:2B DEC HL 1372:46 LD B,(HL) 1373:2B DEC HL 1374:4E LD C,(HL) 1375:E5 PUSH HL 1376:2B DEC HL 1377:2B DEC HL 1378:6E LD L,(HL) 1379:2600 LD H,00 137B:09 ADD HL,BC 137C:50 LD D,B 137D:59 LD E,C 137E:2B DEC HL 137F:44 LD B,H 1380:4D LD C,L 1381:2A0881 LD HL,(wSTRINGBOTTOM) 1384:CDCC04 CALL MAKESPACE_STR 1387:E1 POP HL 1388:71 LD (HL),C 1389:23 INC HL 138A:70 LD (HL),B 138B:69 LD L,C 138C:60 LD H,B 138D:2B DEC HL 138E:C3E112 JP STR_GARBAGELP1 1391:C5 STR_CONCAT PUSH BC 1392:E5 PUSH HL 1393:2A2981 LD HL,(wFLOATMAN) 1396:E3 EX (SP),HL 1397:CD4B0E CALL OPERND 139A:E3 EX (SP),HL 139B:CDC60D CALL EVALEXP_TSTSTR 139E:7E LD A,(HL) 139F:E5 PUSH HL 13A0:2A2981 LD HL,(wFLOATMAN) 13A3:E5 PUSH HL 13A4:86 ADD A,(HL) 13A5:1E1C LD E,1C 13A7:DA1105 JP C,PRINTERR 13AA:CD4A12 CALL STR_ISAVAIL 13AD:D1 POP DE 13AE:CDE213 CALL GETSTR_DE 13B1:E3 EX (SP),HL 13B2:CDE113 CALL GETSTR_HL 13B5:E5 PUSH HL 13B6:2A0681 LD HL,(8106) 13B9:EB EX DE,HL 13BA:CDC813 CALL STR2STRBLK 13BD:CDC813 CALL STR2STRBLK 13C0:21E00D LD HL,EVALEXP_NEXT 13C3:E3 EX (SP),HL 13C4:E5 PUSH HL 13C5:C37B12 JP STR_TEMPORARY 13C8:E1 STR2STRBLK POP HL 13C9:E3 EX (SP),HL 13CA:7E LD A,(HL) 13CB:23 INC HL 13CC:23 INC HL 13CD:4E LD C,(HL) 13CE:23 INC HL 13CF:46 LD B,(HL) 13D0:6F LD L,A 13D1:2C STR2STRBLK_MOV INC L 13D2:2D STR2STRBLK_LP DEC L 13D3:C8 RET Z 13D4:0A LD A,(BC) 13D5:12 LD (DE),A 13D6:03 INC BC 13D7:13 INC DE 13D8:C3D213 JP STR2STRBLK_LP 13DB:CDC60D GETSTR CALL EVALEXP_TSTSTR 13DE:2A2981 GETSTR_CURRENT LD HL,(wFLOATMAN) 13E1:EB GETSTR_HL EX DE,HL 13E2:CDFC13 GETSTR_DE CALL STRINGBACK2TMP 13E5:EB EX DE,HL 13E6:C0 RET NZ 13E7:D5 PUSH DE 13E8:50 LD D,B 13E9:59 LD E,C 13EA:1B DEC DE 13EB:4E LD C,(HL) 13EC:2A0881 LD HL,(wSTRINGBOTTOM) 13EF:CDC507 CALL COMPAREDEHL 13F2:C2FA13 JP NZ,GETSTR_POPHL 13F5:47 LD B,A 13F6:09 ADD HL,BC 13F7:220881 LD (wSTRINGBOTTOM),HL 13FA:E1 GETSTR_POPHL POP HL 13FB:C9 RET 13FC:2AF680 STRINGBACK2TMP LD HL,(wTMPSTRPTR) 13FF:2B DEC HL 1400:46 LD B,(HL) 1401:2B DEC HL 1402:4E LD C,(HL) 1403:2B DEC HL 1404:2B DEC HL 1405:CDC507 CALL COMPAREDEHL 1408:C0 RET NZ 1409:22F680 LD (wTMPSTRPTR),HL 140C:C9 RET 140D:018C11 fLEN LD BC,118C 1410:C5 PUSH BC 1411:CDDB13 LEN_GETLEN CALL GETSTR 1414:AF XOR A 1415:57 LD D,A 1416:32F280 LD (wDATATYPE),A 1419:7E LD A,(HL) 141A:B7 OR A 141B:C9 RET 141C:018C11 fASC LD BC,118C 141F:C5 PUSH BC 1420:CD1114 CALL LEN_GETLEN 1423:CA1C0A JP Z,GETINTEGER_ERR 1426:23 INC HL 1427:23 INC HL 1428:5E LD E,(HL) 1429:23 INC HL 142A:56 LD D,(HL) 142B:1A LD A,(DE) 142C:C9 RET 142D:3E01 fCHR LD A,01 142F:CD4A12 CALL STR_ISAVAIL 1432:CD2615 CALL FINDNUM_MAKINT 1435:2A0681 LD HL,(8106) 1438:73 LD (HL),E 1439:C1 CHR_TOPOOL POP BC 143A:C37B12 JP STR_TEMPORARY 143D:CDD614 fLEFT CALL FINDNUM_RGTPAR 1440:AF XOR A 1441:E3 LEFT_RIGHT1 EX (SP),HL 1442:4F LD C,A 1443:E5 LEFT_MID1 PUSH HL 1444:7E LD A,(HL) 1445:B8 CP B 1446:DA4B14 JP C,LEFT_ALLFOL 1449:78 LD A,B 144A:11 DEFB of1 144B:0E00 LEFT_ALLFOL LD C,00 144D:C5 PUSH BC 144E:CDB412 CALL STR_TESTIFROOM 1451:C1 POP BC 1452:E1 POP HL 1453:E5 PUSH HL 1454:23 INC HL 1455:23 INC HL 1456:46 LD B,(HL) 1457:23 INC HL 1458:66 LD H,(HL) 1459:68 LD L,B 145A:0600 LD B,00 145C:09 ADD HL,BC 145D:44 LD B,H 145E:4D LD C,L 145F:CD4D12 CALL STR_CREATE 1462:6F LD L,A 1463:CDD113 CALL STR2STRBLK_MOV 1466:D1 POP DE 1467:CDE213 CALL GETSTR_DE 146A:C37B12 JP STR_TEMPORARY 146D:CDD614 fRIGHT CALL FINDNUM_RGTPAR 1470:D1 POP DE 1471:D5 PUSH DE 1472:1A LD A,(DE) 1473:90 SUB B 1474:C34114 JP LEFT_RIGHT1 1477:EB fMID EX DE,HL 1478:7E LD A,(HL) 1479:CDDB14 CALL FINDNUM_MIDNUM 147C:04 INC B 147D:05 DEC B 147E:CA1C0A JP Z,GETINTEGER_ERR 1481:C5 PUSH BC 1482:1EFF LD E,FF 1484:FE29 CP 29 1486:CA9014 JP Z,MID_SETSTART 1489:CDCB07 CALL TESTSYNTAX 148C:2C DEFB of1 148D:CD2315 CALL FINDNUM_GETINT 1490:CDCB07 MID_SETSTART CALL TESTSYNTAX 1493:29 DEFB of1 1494:F1 POP AF 1495:E3 EX (SP),HL 1496:014314 LD BC,1443 1499:C5 PUSH BC 149A:3D DEC A 149B:BE CP (HL) 149C:0600 LD B,00 149E:D0 RET NC 149F:4F LD C,A 14A0:7E LD A,(HL) 14A1:91 SUB C 14A2:BB CP E 14A3:47 LD B,A 14A4:D8 RET C 14A5:43 LD B,E 14A6:C9 RET 14A7:CD1114 fVAL CALL LEN_GETLEN 14AA:CAC415 JP Z,BCDESUBFLT_ISZ 14AD:5F LD E,A 14AE:23 INC HL 14AF:23 INC HL 14B0:7E LD A,(HL) 14B1:23 INC HL 14B2:66 LD H,(HL) 14B3:6F LD L,A 14B4:E5 PUSH HL 14B5:19 ADD HL,DE 14B6:46 LD B,(HL) 14B7:72 LD (HL),D 14B8:E3 EX (SP),HL 14B9:C5 PUSH BC 14BA:7E LD A,(HL) 14BB:FE24 CP 24 14BD:C2C514 JP NZ,VAL_1 14C0:CDEF1C CALL HEX2FLT 14C3:180D JR VAL_3 14C5:FE25 VAL_1 CP 25 14C7:C2CF14 JP NZ,VAL_2 14CA:CD5F1D CALL BIN2FLT 14CD:1803 JR VAL_3 14CF:CDAB18 VAL_2 CALL ASC2FLT 14D2:C1 VAL_3 POP BC 14D3:E1 POP HL 14D4:70 LD (HL),B 14D5:C9 RET 14D6:EB FINDNUM_RGTPAR EX DE,HL 14D7:CDCB07 CALL TESTSYNTAX 14DA:29 DEFB of1 14DB:C1 FINDNUM_MIDNUM POP BC 14DC:D1 POP DE 14DD:C5 PUSH BC 14DE:43 LD B,E 14DF:C9 RET 14E0:CD2615 fINP CALL FINDNUM_MAKINT 14E3:328480 LD (wINPORT),A 14E6:CD8380 CALL wINSUB 14E9:C38C11 JP POS_PASSA 14EC:CD1015 fOUT CALL SETIO 14EF:C34B80 JP wOUTSUB 14F2:CD1015 fWAIT CALL SETIO 14F5:F5 PUSH AF 14F6:1E00 LD E,00 14F8:2B DEC HL 14F9:CD5509 CALL GETBYTEFROMRAM 14FC:CA0615 JP Z,WAIT_NOXOR 14FF:CDCB07 CALL TESTSYNTAX 1502:2C DEFB of1 1503:CD2315 CALL FINDNUM_GETINT 1506:C1 WAIT_NOXOR POP BC 1507:CD8380 WAIT_LOOP CALL wINSUB 150A:AB XOR E 150B:A0 AND B 150C:CA0715 JP Z,WAIT_LOOP 150F:C9 RET 1510:CD2315 SETIO CALL FINDNUM_GETINT 1513:328480 LD (wINPORT),A 1516:324C80 LD (wOUTPORT),A 1519:CDCB07 CALL TESTSYNTAX 151C:2C DEFB of1 151D:C32315 JP FINDNUM_GETINT 1520:CD5509 FINDNUM CALL GETBYTEFROMRAM 1523:CDC20D FINDNUM_GETINT CALL EVALEXP_GETNUM 1526:CD010A FINDNUM_MAKINT CALL GETINTEGER_BYT 1529:7A LD A,D 152A:B7 OR A 152B:C21C0A JP NZ,GETINTEGER_ERR 152E:2B DEC HL 152F:CD5509 CALL GETBYTEFROMRAM 1532:7B LD A,E 1533:C9 RET 1534:CD070A fPEEK CALL GETINTEGER 1537:1A LD A,(DE) 1538:C38C11 JP POS_PASSA 153B:CDC20D fPOKE CALL EVALEXP_GETNUM 153E:CD070A CALL GETINTEGER 1541:D5 PUSH DE 1542:CDCB07 CALL TESTSYNTAX 1545:2C DEFB of1 1546:CD2315 CALL FINDNUM_GETINT 1549:D1 POP DE 154A:12 LD (DE),A 154B:C9 RET 154C:21221A ROUND LD HL,CONST_ONEHALF 154F:CDF317 ROUND_FLTADDHL CALL FLOATLOAD 1552:C35E15 JP HLSUBFLT_PBCDE 1555:CDF317 HLSUBFLT CALL FLOATLOAD 1558:21 DEFB of1 1559:C1 HLSUBFLT_PUB POP BC 155A:D1 POP DE 155B:CDCD17 HLSUBFLT_MBCDE CALL ABS_INVSIGN 155E:78 HLSUBFLT_PBCDE LD A,B 155F:B7 OR A 1560:C8 RET Z 1561:3A2C81 LD A,(wFLOATEXP) 1564:B7 OR A 1565:CAE517 JP Z,FLOATSAVE_BCDE 1568:90 SUB B 1569:D27815 JP NC,HLSUBFLT_NSWAP 156C:2F CPL 156D:3C INC A 156E:EB EX DE,HL 156F:CDD517 CALL FLOATTOSTACK 1572:EB EX DE,HL 1573:CDE517 CALL FLOATSAVE_BCDE 1576:C1 POP BC 1577:D1 POP DE 1578:FE19 HLSUBFLT_NSWAP CP 19 157A:D0 RET NC 157B:F5 PUSH AF 157C:CD0A18 CALL FLOATMSBSETSGN 157F:67 LD H,A 1580:F1 POP AF 1581:CD2316 CALL FLOATSCALE 1584:B4 OR H 1585:212981 LD HL,wFLOATMAN 1588:F29E15 JP P,BCDESUBFLT 158B:CD0316 CALL BCDEADDFLT 158E:D2E415 JP NC,BCDENRMLZE_RUP 1591:23 INC HL 1592:34 INC (HL) 1593:CA0C05 JP Z,ERROR_OV 1596:2E01 LD L,01 1598:CD3916 CALL FLOATSCALE_SR1 159B:C3E415 JP BCDENRMLZE_RUP 159E:AF BCDESUBFLT XOR A 159F:90 SUB B 15A0:47 LD B,A 15A1:7E LD A,(HL) 15A2:9B SBC A,E 15A3:5F LD E,A 15A4:23 INC HL 15A5:7E LD A,(HL) 15A6:9A SBC A,D 15A7:57 LD D,A 15A8:23 INC HL 15A9:7E LD A,(HL) 15AA:99 SBC A,C 15AB:4F LD C,A 15AC:DC0F16 BCDESUBFLT_POS CALL C,160F 15AF:68 BCDESUBFLT_NRM LD L,B 15B0:63 LD H,E 15B1:AF XOR A 15B2:47 BCDESUBFLT_NLP LD B,A 15B3:79 LD A,C 15B4:B7 OR A 15B5:C2D115 JP NZ,BCDENRMLZE 15B8:4A LD C,D 15B9:54 LD D,H 15BA:65 LD H,L 15BB:6F LD L,A 15BC:78 LD A,B 15BD:D608 SUB 08 15BF:FEE0 CP E0 15C1:C2B215 JP NZ,BCDESUBFLT_NLP 15C4:AF BCDESUBFLT_ISZ XOR A 15C5:322C81 BCDESUBFLT_EXP LD (wFLOATEXP),A 15C8:C9 RET 15C9:05 BCDENRMLZE_LP DEC B 15CA:29 ADD HL,HL 15CB:7A LD A,D 15CC:17 RLA 15CD:57 LD D,A 15CE:79 LD A,C 15CF:8F ADC A,A 15D0:4F LD C,A 15D1:F2C915 BCDENRMLZE JP P,BCDENRMLZE_LP 15D4:78 LD A,B 15D5:5C LD E,H 15D6:45 LD B,L 15D7:B7 OR A 15D8:CAE415 JP Z,BCDENRMLZE_RUP 15DB:212C81 LD HL,wFLOATEXP 15DE:86 ADD A,(HL) 15DF:77 LD (HL),A 15E0:D2C415 JP NC,BCDESUBFLT_ISZ 15E3:C8 RET Z 15E4:78 BCDENRMLZE_RUP LD A,B 15E5:212C81 BCDENRMLZE_RND LD HL,wFLOATEXP 15E8:B7 OR A 15E9:FCF615 CALL M,15F6 15EC:46 LD B,(HL) 15ED:23 INC HL 15EE:7E LD A,(HL) 15EF:E680 AND 80 15F1:A9 XOR C 15F2:4F LD C,A 15F3:C3E517 JP FLOATSAVE_BCDE 15F6:1C FLOATROUND INC E 15F7:C0 RET NZ 15F8:14 INC D 15F9:C0 RET NZ 15FA:0C INC C 15FB:C0 RET NZ 15FC:0E80 LD C,80 15FE:34 INC (HL) 15FF:C0 RET NZ 1600:C30C05 JP ERROR_OV 1603:7E BCDEADDFLT LD A,(HL) 1604:83 ADD A,E 1605:5F LD E,A 1606:23 INC HL 1607:7E LD A,(HL) 1608:8A ADC A,D 1609:57 LD D,A 160A:23 INC HL 160B:7E LD A,(HL) 160C:89 ADC A,C 160D:4F LD C,A 160E:C9 RET 160F:212D81 FLOATCOMPLEMNT LD HL,wSIGNRESULT 1612:7E LD A,(HL) 1613:2F CPL 1614:77 LD (HL),A 1615:AF XOR A 1616:6F LD L,A 1617:90 SUB B 1618:47 LD B,A 1619:7D LD A,L 161A:9B SBC A,E 161B:5F LD E,A 161C:7D LD A,L 161D:9A SBC A,D 161E:57 LD D,A 161F:7D LD A,L 1620:99 SBC A,C 1621:4F LD C,A 1622:C9 RET 1623:0600 FLOATSCALE LD B,00 1625:D608 FLOATSCALE_LP1 SUB 08 1627:DA3216 JP C,FLOATSCALE_SR 162A:43 LD B,E 162B:5A LD E,D 162C:51 LD D,C 162D:0E00 LD C,00 162F:C32516 JP FLOATSCALE_LP1 1632:C609 FLOATSCALE_SR ADD A,09 1634:6F LD L,A 1635:AF FLOATSCALE_LP2 XOR A 1636:2D DEC L 1637:C8 RET Z 1638:79 LD A,C 1639:1F FLOATSCALE_SR1 RRA 163A:4F LD C,A 163B:7A LD A,D 163C:1F RRA 163D:57 LD D,A 163E:7B LD A,E 163F:1F RRA 1640:5F LD E,A 1641:78 LD A,B 1642:1F RRA 1643:47 LD B,A 1644:C33516 JP FLOATSCALE_LP2 1647:00000081 CONST_UNITY DEFB of4 164B:03 TABLE_LOG DEFB of1 164C:AA561980 DEFB of4 1650:F1227680 DEFB of4 1654:45AA3882 DEFB of4 1658:CDA417 fLOG CALL TESTSGN 165B:B7 OR A 165C:EA1C0A JP PE,GETINTEGER_ERR 165F:212C81 LD HL,wFLOATEXP 1662:7E LD A,(HL) 1663:013580 LD BC,8035 1666:11F304 LD DE,04F3 1669:90 SUB B 166A:F5 PUSH AF 166B:70 LD (HL),B 166C:D5 PUSH DE 166D:C5 PUSH BC 166E:CD5E15 CALL HLSUBFLT_PBCDE 1671:C1 POP BC 1672:D1 POP DE 1673:04 INC B 1674:CDFA16 CALL DIV_FLTxBCDE 1677:214716 LD HL,CONST_UNITY 167A:CD5515 CALL HLSUBFLT 167D:214B16 LD HL,TABLE_LOG 1680:CDEC1A CALL SERIESSUM 1683:018080 LD BC,8080 1686:110000 LD DE,0000 1689:CD5E15 CALL HLSUBFLT_PBCDE 168C:F1 POP AF 168D:CD1F19 CALL ASC2FLT_RSCALE 1690:013180 LOG_FLTx2 LD BC,8031 1693:111872 LD DE,7218 1696:21 DEFB of1 1697:C1 LOG_FLTxN POP BC 1698:D1 POP DE 1699:CDA417 LOG_FLTxFLT CALL TESTSGN 169C:C8 RET Z 169D:2E00 LD L,00 169F:CD6217 CALL FLOATADDEXPS 16A2:79 LD A,C 16A3:323B81 LD (wMULTVALUE),A 16A6:EB EX DE,HL 16A7:223C81 LD (813C),HL 16AA:010000 LD BC,0000 16AD:50 LD D,B 16AE:58 LD E,B 16AF:21AF15 LD HL,BCDESUBFLT_NRM 16B2:E5 PUSH HL 16B3:21BB16 LD HL,LOG_FLTxBYT 16B6:E5 PUSH HL 16B7:E5 PUSH HL 16B8:212981 LD HL,wFLOATMAN 16BB:7E LOG_FLTxBYT LD A,(HL) 16BC:23 INC HL 16BD:B7 OR A 16BE:CAE716 JP Z,BYTESHIFTLEFT 16C1:E5 PUSH HL 16C2:2E08 LD L,08 16C4:1F LOG_FLTxBYTLP RRA 16C5:67 LD H,A 16C6:79 LD A,C 16C7:D2D516 JP NC,LOG_FLTxBYTSKP 16CA:E5 PUSH HL 16CB:2A3C81 LD HL,(813C) 16CE:19 ADD HL,DE 16CF:EB EX DE,HL 16D0:E1 POP HL 16D1:3A3B81 LD A,(wMULTVALUE) 16D4:89 ADC A,C 16D5:1F LOG_FLTxBYTSKP RRA 16D6:4F LD C,A 16D7:7A LD A,D 16D8:1F RRA 16D9:57 LD D,A 16DA:7B LD A,E 16DB:1F RRA 16DC:5F LD E,A 16DD:78 LD A,B 16DE:1F RRA 16DF:47 LD B,A 16E0:2D DEC L 16E1:7C LD A,H 16E2:C2C416 JP NZ,LOG_FLTxBYTLP 16E5:E1 LOG_POPHANDRET POP HL 16E6:C9 RET 16E7:43 BYTESHIFTLEFT LD B,E 16E8:5A LD E,D 16E9:51 LD D,C 16EA:4F LD C,A 16EB:C9 RET 16EC:CDD517 DIV_FLTx10 CALL FLOATTOSTACK 16EF:012084 LD BC,8420 16F2:110000 LD DE,0000 16F5:CDE517 CALL FLOATSAVE_BCDE 16F8:C1 DIV_BCDExFLT POP BC 16F9:D1 POP DE 16FA:CDA417 DIV_FLTxBCDE CALL TESTSGN 16FD:CA0005 JP Z,ERROR_DZ 1700:2EFF LD L,FF 1702:CD6217 CALL FLOATADDEXPS 1705:34 INC (HL) 1706:34 INC (HL) 1707:2B DEC HL 1708:7E LD A,(HL) 1709:325780 LD (wDIV3),A 170C:2B DEC HL 170D:7E LD A,(HL) 170E:325380 LD (wDIV2),A 1711:2B DEC HL 1712:7E LD A,(HL) 1713:324F80 LD (wDIV1),A 1716:41 LD B,C 1717:EB EX DE,HL 1718:AF XOR A 1719:4F LD C,A 171A:57 LD D,A 171B:5F LD E,A 171C:325A80 LD (wDIV4),A 171F:E5 DIV_LOOP PUSH HL 1720:C5 PUSH BC 1721:7D LD A,L 1722:CD4E80 CALL wDIVSUPPORT 1725:DE00 SBC A,00 1727:3F CCF 1728:D23217 JP NC,DIV_RESTOREDIV 172B:325A80 LD (wDIV4),A 172E:F1 POP AF 172F:F1 POP AF 1730:37 SCF 1731:D2 DEFB of1 1732:C1 DIV_RESTOREDIV POP BC 1733:E1 POP HL 1734:79 LD A,C 1735:3C INC A 1736:3D DEC A 1737:1F RRA 1738:FAE515 JP M,BCDENRMLZE_RND 173B:17 RLA 173C:7B LD A,E 173D:17 RLA 173E:5F LD E,A 173F:7A LD A,D 1740:17 RLA 1741:57 LD D,A 1742:79 LD A,C 1743:17 RLA 1744:4F LD C,A 1745:29 ADD HL,HL 1746:78 LD A,B 1747:17 RLA 1748:47 LD B,A 1749:3A5A80 LD A,(wDIV4) 174C:17 RLA 174D:325A80 LD (wDIV4),A 1750:79 LD A,C 1751:B2 OR D 1752:B3 OR E 1753:C21F17 JP NZ,DIV_LOOP 1756:E5 PUSH HL 1757:212C81 LD HL,wFLOATEXP 175A:35 DEC (HL) 175B:E1 POP HL 175C:C21F17 JP NZ,DIV_LOOP 175F:C30C05 JP ERROR_OV 1762:78 FLOATADDEXPS LD A,B 1763:B7 OR A 1764:CA8617 JP Z,TESTOVERFLOW_3 1767:7D LD A,L 1768:212C81 LD HL,wFLOATEXP 176B:AE XOR (HL) 176C:80 ADD A,B 176D:47 LD B,A 176E:1F RRA 176F:A8 XOR B 1770:78 LD A,B 1771:F28517 JP P,TESTOVERFLOW_2 1774:C680 ADD A,80 1776:77 LD (HL),A 1777:CAE516 JP Z,LOG_POPHANDRET 177A:CD0A18 CALL FLOATMSBSETSGN 177D:77 LD (HL),A 177E:2B DEC HL 177F:C9 RET 1780:CDA417 TESTOVERFLOW_1 CALL TESTSGN 1783:2F CPL 1784:E1 POP HL 1785:B7 TESTOVERFLOW_2 OR A 1786:E1 TESTOVERFLOW_3 POP HL 1787:F2C415 JP P,BCDESUBFLT_ISZ 178A:C30C05 JP ERROR_OV 178D:CDF017 FLOAT_MULTX10 CALL FLOATLOAD_PTR 1790:78 LD A,B 1791:B7 OR A 1792:C8 RET Z 1793:C602 ADD A,02 1795:DA0C05 JP C,ERROR_OV 1798:47 LD B,A 1799:CD5E15 CALL HLSUBFLT_PBCDE 179C:212C81 LD HL,wFLOATEXP 179F:34 INC (HL) 17A0:C0 RET NZ 17A1:C30C05 JP ERROR_OV 17A4:3A2C81 TESTSGN LD A,(wFLOATEXP) 17A7:B7 OR A 17A8:C8 RET Z 17A9:3A2B81 LD A,(812B) 17AC:FE DEFB of1 17AD:2F TESTSGN_RETREL CPL 17AE:17 RLA 17AF:9F TESTSGN_FLGDIF SBC A,A 17B0:C0 RET NZ 17B1:3C INC A 17B2:C9 RET 17B3:CDA417 fSGN CALL TESTSGN 17B6:0688 SGN_FLTGREL LD B,88 17B8:110000 LD DE,0000 17BB:212C81 SGN_RETINT LD HL,wFLOATEXP 17BE:4F LD C,A 17BF:70 LD (HL),B 17C0:0600 LD B,00 17C2:23 INC HL 17C3:3680 LD (HL),80 17C5:17 RLA 17C6:C3AC15 JP BCDESUBFLT_POS 17C9:CDA417 fABS CALL TESTSGN 17CC:F0 RET P 17CD:212B81 ABS_INVSIGN LD HL,812B 17D0:7E LD A,(HL) 17D1:EE80 XOR 80 17D3:77 LD (HL),A 17D4:C9 RET 17D5:EB FLOATTOSTACK EX DE,HL 17D6:2A2981 LD HL,(wFLOATMAN) 17D9:E3 EX (SP),HL 17DA:E5 PUSH HL 17DB:2A2B81 LD HL,(812B) 17DE:E3 EX (SP),HL 17DF:E5 PUSH HL 17E0:EB EX DE,HL 17E1:C9 RET 17E2:CDF317 FLOATSAVE CALL FLOATLOAD 17E5:EB FLOATSAVE_BCDE EX DE,HL 17E6:222981 LD (wFLOATMAN),HL 17E9:60 LD H,B 17EA:69 LD L,C 17EB:222B81 LD (812B),HL 17EE:EB EX DE,HL 17EF:C9 RET 17F0:212981 FLOATLOAD_PTR LD HL,wFLOATMAN 17F3:5E FLOATLOAD LD E,(HL) 17F4:23 INC HL 17F5:56 LD D,(HL) 17F6:23 INC HL 17F7:4E LD C,(HL) 17F8:23 INC HL 17F9:46 LD B,(HL) 17FA:23 FLOATLOAD_IHL INC HL 17FB:C9 RET 17FC:112981 FLOATPTRINHL LD DE,8129 17FF:0604 FLOATPTRINHL_4 LD B,04 1801:1A FLOATPTRINHL_L LD A,(DE) 1802:77 LD (HL),A 1803:13 INC DE 1804:23 INC HL 1805:05 DEC B 1806:C20118 JP NZ,FLOATPTRINHL_L 1809:C9 RET 180A:212B81 FLOATMSBSETSGN LD HL,812B 180D:7E LD A,(HL) 180E:07 RLCA 180F:37 SCF 1810:1F RRA 1811:77 LD (HL),A 1812:3F CCF 1813:1F RRA 1814:23 INC HL 1815:23 INC HL 1816:77 LD (HL),A 1817:79 LD A,C 1818:07 RLCA 1819:37 SCF 181A:1F RRA 181B:4F LD C,A 181C:1F RRA 181D:AE XOR (HL) 181E:C9 RET 181F:78 COMPNUMBER LD A,B 1820:B7 OR A 1821:CAA417 JP Z,TESTSGN 1824:21AD17 LD HL,TESTSGN_RETREL 1827:E5 PUSH HL 1828:CDA417 CALL TESTSGN 182B:79 LD A,C 182C:C8 RET Z 182D:212B81 LD HL,812B 1830:AE XOR (HL) 1831:79 LD A,C 1832:F8 RET M 1833:CD3918 CALL COMPFLOAT 1836:1F RRA 1837:A9 XOR C 1838:C9 RET 1839:23 COMPFLOAT INC HL 183A:78 LD A,B 183B:BE CP (HL) 183C:C0 RET NZ 183D:2B DEC HL 183E:79 LD A,C 183F:BE CP (HL) 1840:C0 RET NZ 1841:2B DEC HL 1842:7A LD A,D 1843:BE CP (HL) 1844:C0 RET NZ 1845:2B DEC HL 1846:7B LD A,E 1847:96 SUB (HL) 1848:C0 RET NZ 1849:E1 POP HL 184A:E1 POP HL 184B:C9 RET 184C:47 FLT2INT LD B,A 184D:4F LD C,A 184E:57 LD D,A 184F:5F LD E,A 1850:B7 OR A 1851:C8 RET Z 1852:E5 PUSH HL 1853:CDF017 CALL FLOATLOAD_PTR 1856:CD0A18 CALL FLOATMSBSETSGN 1859:AE XOR (HL) 185A:67 LD H,A 185B:FC7018 CALL M,1870 185E:3E98 LD A,98 1860:90 SUB B 1861:CD2316 CALL FLOATSCALE 1864:7C LD A,H 1865:17 RLA 1866:DCF615 CALL C,15F6 1869:0600 LD B,00 186B:DC0F16 CALL C,160F 186E:E1 POP HL 186F:C9 RET 1870:1B BCDEDECREMENT DEC DE 1871:7A LD A,D 1872:A3 AND E 1873:3C INC A 1874:C0 RET NZ 1875:0B DEC BC 1876:C9 RET 1877:212C81 fINT LD HL,wFLOATEXP 187A:7E LD A,(HL) 187B:FE98 CP 98 187D:3A2981 LD A,(wFLOATMAN) 1880:D0 RET NC 1881:7E LD A,(HL) 1882:CD4C18 CALL FLT2INT 1885:3698 LD (HL),98 1887:7B LD A,E 1888:F5 PUSH AF 1889:79 LD A,C 188A:17 RLA 188B:CDAC15 CALL BCDESUBFLT_POS 188E:F1 POP AF 188F:C9 RET 1890:210000 BCDEMULT LD HL,RST00 1893:78 LD A,B 1894:B1 OR C 1895:C8 RET Z 1896:3E10 LD A,10 1898:29 BCDEMULT_LOOP ADD HL,HL 1899:DAD010 JP C,ARRAYINDX_BSER 189C:EB EX DE,HL 189D:29 ADD HL,HL 189E:EB EX DE,HL 189F:D2A618 JP NC,BCDEMULT_NOADD 18A2:09 ADD HL,BC 18A3:DAD010 JP C,ARRAYINDX_BSER 18A6:3D BCDEMULT_NOADD DEC A 18A7:C29818 JP NZ,BCDEMULT_LOOP 18AA:C9 RET 18AB:FE2D ASC2FLT CP 2D 18AD:F5 PUSH AF 18AE:CAB718 JP Z,ASC2FLT_CONV 18B1:FE2B CP 2B 18B3:CAB718 JP Z,ASC2FLT_CONV 18B6:2B DEC HL 18B7:CDC415 ASC2FLT_CONV CALL BCDESUBFLT_ISZ 18BA:47 LD B,A 18BB:57 LD D,A 18BC:5F LD E,A 18BD:2F CPL 18BE:4F LD C,A 18BF:CD5509 ASC2FLT_MANLP CALL GETBYTEFROMRAM 18C2:DA0819 JP C,ASC2FLT_MANDIG 18C5:FE2E CP 2E 18C7:CAE318 JP Z,ASC2FLT_DPOINT 18CA:FE45 CP 45 18CC:C2E718 JP NZ,ASC2FLT_SCALE 18CF:CD5509 CALL GETBYTEFROMRAM 18D2:CDFB0E CALL EXPONENTSIGN 18D5:CD5509 ASC2FLT_EXPLP CALL GETBYTEFROMRAM 18D8:DA2A19 JP C,ASC2FLT_EXPDIG 18DB:14 INC D 18DC:C2E718 JP NZ,ASC2FLT_SCALE 18DF:AF XOR A 18E0:93 SUB E 18E1:5F LD E,A 18E2:0C INC C 18E3:0C ASC2FLT_DPOINT INC C 18E4:CABF18 JP Z,ASC2FLT_MANLP 18E7:E5 ASC2FLT_SCALE PUSH HL 18E8:7B LD A,E 18E9:90 SUB B 18EA:F40019 ASC2FLT_SGNNEG CALL P,1900 18ED:F2F618 JP P,ASC2FLT_END 18F0:F5 PUSH AF 18F1:CDEC16 CALL DIV_FLTx10 18F4:F1 POP AF 18F5:3C INC A 18F6:C2EA18 ASC2FLT_END JP NZ,ASC2FLT_SGNNEG 18F9:D1 POP DE 18FA:F1 POP AF 18FB:CCCD17 CALL Z,17CD 18FE:EB EX DE,HL 18FF:C9 RET 1900:C8 ASC2FLT_SGNPOS RET Z 1901:F5 ASC2FLT_X10 PUSH AF 1902:CD8D17 CALL FLOAT_MULTX10 1905:F1 POP AF 1906:3D DEC A 1907:C9 RET 1908:D5 ASC2FLT_MANDIG PUSH DE 1909:57 LD D,A 190A:78 LD A,B 190B:89 ADC A,C 190C:47 LD B,A 190D:C5 PUSH BC 190E:E5 PUSH HL 190F:D5 PUSH DE 1910:CD8D17 CALL FLOAT_MULTX10 1913:F1 POP AF 1914:D630 SUB 30 1916:CD1F19 CALL ASC2FLT_RSCALE 1919:E1 POP HL 191A:C1 POP BC 191B:D1 POP DE 191C:C3BF18 JP ASC2FLT_MANLP 191F:CDD517 ASC2FLT_RSCALE CALL FLOATTOSTACK 1922:CDB617 CALL SGN_FLTGREL 1925:C1 ASC2FLT_MANPAD POP BC 1926:D1 POP DE 1927:C35E15 JP HLSUBFLT_PBCDE 192A:7B ASC2FLT_EXPDIG LD A,E 192B:07 RLCA 192C:07 RLCA 192D:83 ADD A,E 192E:07 RLCA 192F:86 ADD A,(HL) 1930:D630 SUB 30 1932:5F LD E,A 1933:C3D518 JP ASC2FLT_EXPLP 1936:E5 ASC2FLT_LINEIN PUSH HL 1937:219504 LD HL,DISP_IN 193A:CD9B12 CALL STR_PRINTSTR 193D:E1 POP HL 193E:EB ASC2FLT_PRNTHL EX DE,HL 193F:AF XOR A 1940:0698 LD B,98 1942:CDBB17 CALL SGN_RETINT 1945:219A12 LD HL,STR_PRINTNUMB 1948:E5 PUSH HL 1949:212E81 ASC2FLT_2ASCII LD HL,wPRINTBUFF 194C:E5 PUSH HL 194D:CDA417 CALL TESTSGN 1950:3620 LD (HL),20 1952:F25719 JP P,ASC2FLT_LSPC 1955:362D LD (HL),2D 1957:23 ASC2FLT_LSPC INC HL 1958:3630 LD (HL),30 195A:CA0D1A JP Z,ASC2FLT_ZJUST 195D:E5 PUSH HL 195E:FCCD17 CALL M,17CD 1961:AF XOR A 1962:F5 PUSH AF 1963:CD131A CALL ASC2FLT_RNGTST 1966:014391 ASC2FLT_6DIGIT LD BC,9143 1969:11F84F LD DE,4FF8 196C:CD1F18 CALL COMPNUMBER 196F:B7 OR A 1970:E28419 JP PO,ASC2FLT_INRNG 1973:F1 POP AF 1974:CD0119 CALL ASC2FLT_X10 1977:F5 PUSH AF 1978:C36619 JP ASC2FLT_6DIGIT 197B:CDEC16 ASC2FLT_DIVX10 CALL DIV_FLTx10 197E:F1 POP AF 197F:3C INC A 1980:F5 PUSH AF 1981:CD131A CALL ASC2FLT_RNGTST 1984:CD4C15 ASC2FLT_INRNG CALL ROUND 1987:3C INC A 1988:CD4C18 CALL FLT2INT 198B:CDE517 CALL FLOATSAVE_BCDE 198E:010603 LD BC,0306 1991:F1 POP AF 1992:81 ADD A,C 1993:3C INC A 1994:FAA019 JP M,ASC2FLT_NUMBER 1997:FE08 CP 08 1999:D2A019 JP NC,ASC2FLT_NUMBER 199C:3C INC A 199D:47 LD B,A 199E:3E02 LD A,02 19A0:3D ASC2FLT_NUMBER DEC A 19A1:3D DEC A 19A2:E1 POP HL 19A3:F5 PUSH AF 19A4:11261A LD DE,1A26 19A7:05 DEC B 19A8:C2B119 JP NZ,ASC2FLT_DIGTXT 19AB:362E LD (HL),2E 19AD:23 INC HL 19AE:3630 LD (HL),30 19B0:23 INC HL 19B1:05 ASC2FLT_DIGTXT DEC B 19B2:362E LD (HL),2E 19B4:CCFA17 CALL Z,17FA 19B7:C5 PUSH BC 19B8:E5 PUSH HL 19B9:D5 PUSH DE 19BA:CDF017 CALL FLOATLOAD_PTR 19BD:E1 POP HL 19BE:062F LD B,2F 19C0:04 ASC2FLT_RETRY INC B 19C1:7B LD A,E 19C2:96 SUB (HL) 19C3:5F LD E,A 19C4:23 INC HL 19C5:7A LD A,D 19C6:9E SBC A,(HL) 19C7:57 LD D,A 19C8:23 INC HL 19C9:79 LD A,C 19CA:9E SBC A,(HL) 19CB:4F LD C,A 19CC:2B DEC HL 19CD:2B DEC HL 19CE:D2C019 JP NC,ASC2FLT_RETRY 19D1:CD0316 CALL BCDEADDFLT 19D4:23 INC HL 19D5:CDE517 CALL FLOATSAVE_BCDE 19D8:EB EX DE,HL 19D9:E1 POP HL 19DA:70 LD (HL),B 19DB:23 INC HL 19DC:C1 POP BC 19DD:0D DEC C 19DE:C2B119 JP NZ,ASC2FLT_DIGTXT 19E1:05 DEC B 19E2:CAF119 JP Z,ASC2FLT_EXPBIT 19E5:2B ASC2FLT_LZS DEC HL 19E6:7E LD A,(HL) 19E7:FE30 CP 30 19E9:CAE519 JP Z,ASC2FLT_LZS 19EC:FE2E CP 2E 19EE:C4FA17 CALL NZ,17FA 19F1:F1 ASC2FLT_EXPBIT POP AF 19F2:CA101A JP Z,ASC2FLT_NOEXP 19F5:3645 LD (HL),45 19F7:23 INC HL 19F8:362B LD (HL),2B 19FA:F2011A JP P,ASC2FLT_EXP 19FD:362D LD (HL),2D 19FF:2F CPL 1A00:3C INC A 1A01:062F ASC2FLT_EXP LD B,2F 1A03:04 ASC2FLT_EXPX10 INC B 1A04:D60A SUB 0A 1A06:D2031A JP NC,ASC2FLT_EXPX10 1A09:C63A ADD A,3A 1A0B:23 INC HL 1A0C:70 LD (HL),B 1A0D:23 ASC2FLT_ZJUST INC HL 1A0E:77 LD (HL),A 1A0F:23 INC HL 1A10:71 ASC2FLT_NOEXP LD (HL),C 1A11:E1 POP HL 1A12:C9 RET 1A13:017494 ASC2FLT_RNGTST LD BC,9474 1A16:11F723 LD DE,23F7 1A19:CD1F18 CALL COMPNUMBER 1A1C:B7 OR A 1A1D:E1 POP HL 1A1E:E27B19 JP PO,ASC2FLT_DIVX10 1A21:E9 JP (HL) 1A22:00000080 CONST_ONEHALF DEFB of4 1A26:A08601 TABLE_ASC2FLT DEFB of3 1A29:102700 DEFB of3 1A2C:E80300 DEFB of3 1A2F:640000 DEFB of3 1A32:0A0000 DEFB of3 1A35:010000 DEFB of3 1A38:21CD17 FLOATNEGATE LD HL,ABS_INVSIGN 1A3B:E3 EX (SP),HL 1A3C:E9 JP (HL) 1A3D:CDD517 fSQR CALL FLOATTOSTACK 1A40:21221A LD HL,CONST_ONEHALF 1A43:CDE217 CALL FLOATSAVE 1A46:C1 SQR_POWER POP BC 1A47:D1 POP DE 1A48:CDA417 CALL TESTSGN 1A4B:78 LD A,B 1A4C:CA8B1A JP Z,fEXP 1A4F:F2561A JP P,SQR_POWER1 1A52:B7 OR A 1A53:CA0005 JP Z,ERROR_DZ 1A56:B7 SQR_POWER1 OR A 1A57:CAC515 JP Z,BCDESUBFLT_EXP 1A5A:D5 PUSH DE 1A5B:C5 PUSH BC 1A5C:79 LD A,C 1A5D:F67F OR 7F 1A5F:CDF017 CALL FLOATLOAD_PTR 1A62:F2731A JP P,SQR_POWER2 1A65:D5 PUSH DE 1A66:C5 PUSH BC 1A67:CD7718 CALL fINT 1A6A:C1 POP BC 1A6B:D1 POP DE 1A6C:F5 PUSH AF 1A6D:CD1F18 CALL COMPNUMBER 1A70:E1 POP HL 1A71:7C LD A,H 1A72:1F RRA 1A73:E1 SQR_POWER2 POP HL 1A74:222B81 LD (812B),HL 1A77:E1 POP HL 1A78:222981 LD (wFLOATMAN),HL 1A7B:DC381A CALL C,1A38 1A7E:CCCD17 CALL Z,17CD 1A81:D5 PUSH DE 1A82:C5 PUSH BC 1A83:CD5816 CALL fLOG 1A86:C1 POP BC 1A87:D1 POP DE 1A88:CD9916 CALL LOG_FLTxFLT 1A8B:CDD517 fEXP CALL FLOATTOSTACK 1A8E:013881 LD BC,8138 1A91:113BAA LD DE,AA3B 1A94:CD9916 CALL LOG_FLTxFLT 1A97:3A2C81 LD A,(wFLOATEXP) 1A9A:FE88 CP 88 1A9C:D28017 JP NC,TESTOVERFLOW_1 1A9F:CD7718 CALL fINT 1AA2:C680 ADD A,80 1AA4:C602 ADD A,02 1AA6:DA8017 JP C,TESTOVERFLOW_1 1AA9:F5 PUSH AF 1AAA:214716 LD HL,CONST_UNITY 1AAD:CD4F15 CALL ROUND_FLTADDHL 1AB0:CD9016 CALL LOG_FLTx2 1AB3:F1 POP AF 1AB4:C1 POP BC 1AB5:D1 POP DE 1AB6:F5 PUSH AF 1AB7:CD5B15 CALL HLSUBFLT_MBCDE 1ABA:CDCD17 CALL ABS_INVSIGN 1ABD:21CB1A LD HL,TABLE_EXP 1AC0:CDFB1A CALL SERIESSUM_1 1AC3:110000 LD DE,0000 1AC6:C1 POP BC 1AC7:4A LD C,D 1AC8:C39916 JP LOG_FLTxFLT 1ACB:08 TABLE_EXP DEFB of1 1ACC:402E9474 DEFB of4 1AD0:704F2E77 DEFB of4 1AD4:6E02887A DEFB of4 1AD8:E6A02A7C DEFB of4 1ADC:50AAAA7E DEFB of4 1AE0:FFFF7F7F DEFB of4 1AE4:00008081 DEFB of4 1AE8:00000081 DEFB of4 1AEC:CDD517 SERIESSUM CALL FLOATTOSTACK 1AEF:119716 LD DE,1697 1AF2:D5 PUSH DE 1AF3:E5 PUSH HL 1AF4:CDF017 CALL FLOATLOAD_PTR 1AF7:CD9916 CALL LOG_FLTxFLT 1AFA:E1 POP HL 1AFB:CDD517 SERIESSUM_1 CALL FLOATTOSTACK 1AFE:7E LD A,(HL) 1AFF:23 INC HL 1B00:CDE217 CALL FLOATSAVE 1B03:06 DEFB of1 1B04:F1 SERIESSUM_LOOP POP AF 1B05:C1 POP BC 1B06:D1 POP DE 1B07:3D DEC A 1B08:C8 RET Z 1B09:D5 PUSH DE 1B0A:C5 PUSH BC 1B0B:F5 PUSH AF 1B0C:E5 PUSH HL 1B0D:CD9916 CALL LOG_FLTxFLT 1B10:E1 POP HL 1B11:CDF317 CALL FLOATLOAD 1B14:E5 PUSH HL 1B15:CD5E15 CALL HLSUBFLT_PBCDE 1B18:E1 POP HL 1B19:C3041B JP SERIESSUM_LOOP 1B1C:CDA417 fRND CALL TESTSGN 1B1F:215E80 LD HL,805E 1B22:FA7D1B JP M,RND_RESEED 1B25:217F80 LD HL,wLASTRANDOM 1B28:CDE217 CALL FLOATSAVE 1B2B:215E80 LD HL,805E 1B2E:C8 RET Z 1B2F:86 ADD A,(HL) 1B30:E607 AND 07 1B32:0600 LD B,00 1B34:77 LD (HL),A 1B35:23 INC HL 1B36:87 ADD A,A 1B37:87 ADD A,A 1B38:4F LD C,A 1B39:09 ADD HL,BC 1B3A:CDF317 CALL FLOATLOAD 1B3D:CD9916 CALL LOG_FLTxFLT 1B40:3A5D80 LD A,(805D) 1B43:3C INC A 1B44:E603 AND 03 1B46:0600 LD B,00 1B48:FE01 CP 01 1B4A:88 ADC A,B 1B4B:325D80 LD (805D),A 1B4E:21811B LD HL,1B81 1B51:87 ADD A,A 1B52:87 ADD A,A 1B53:4F LD C,A 1B54:09 ADD HL,BC 1B55:CD4F15 CALL ROUND_FLTADDHL 1B58:CDF017 RND_1 CALL FLOATLOAD_PTR 1B5B:7B LD A,E 1B5C:59 LD E,C 1B5D:EE4F XOR 4F 1B5F:4F LD C,A 1B60:3680 LD (HL),80 1B62:2B DEC HL 1B63:46 LD B,(HL) 1B64:3680 LD (HL),80 1B66:215C80 LD HL,wSEED 1B69:34 INC (HL) 1B6A:7E LD A,(HL) 1B6B:D6AB SUB AB 1B6D:C2741B JP NZ,RND_2 1B70:77 LD (HL),A 1B71:0C INC C 1B72:15 DEC D 1B73:1C INC E 1B74:CDAF15 RND_2 CALL BCDESUBFLT_NRM 1B77:217F80 LD HL,wLASTRANDOM 1B7A:C3FC17 JP FLOATPTRINHL 1B7D:77 RND_RESEED LD (HL),A 1B7E:2B DEC HL 1B7F:77 LD (HL),A 1B80:2B DEC HL 1B81:77 LD (HL),A 1B82:C3581B JP RND_1 1B85:68B14668 TABLE_RND DEFB of4 1B89:99E99269 DEFB of4 1B8D:10D17568 DEFB of4 1B91:21DB1B fCOS LD HL,CONST_HALFPI 1B94:CD4F15 CALL ROUND_FLTADDHL 1B97:CDD517 fSIN CALL FLOATTOSTACK 1B9A:014983 LD BC,8349 1B9D:11DB0F LD DE,0FDB 1BA0:CDE517 CALL FLOATSAVE_BCDE 1BA3:C1 POP BC 1BA4:D1 POP DE 1BA5:CDFA16 CALL DIV_FLTxBCDE 1BA8:CDD517 CALL FLOATTOSTACK 1BAB:CD7718 CALL fINT 1BAE:C1 POP BC 1BAF:D1 POP DE 1BB0:CD5B15 CALL HLSUBFLT_MBCDE 1BB3:21DF1B LD HL,CONST_ONEFORTH 1BB6:CD5515 CALL HLSUBFLT 1BB9:CDA417 CALL TESTSGN 1BBC:37 SCF 1BBD:F2C71B JP P,SIN_1 1BC0:CD4C15 CALL ROUND 1BC3:CDA417 CALL TESTSGN 1BC6:B7 OR A 1BC7:F5 SIN_1 PUSH AF 1BC8:F4CD17 CALL P,17CD 1BCB:21DF1B LD HL,CONST_ONEFORTH 1BCE:CD4F15 CALL ROUND_FLTADDHL 1BD1:F1 POP AF 1BD2:D4CD17 CALL NC,17CD 1BD5:21E31B LD HL,TABLE_SIN 1BD8:C3EC1A JP SERIESSUM 1BDB:DB0F4981 CONST_HALFPI DEFB of4 1BDF:0000007F CONST_ONEFORTH DEFB of4 1BE3:05 TABLE_SIN DEFB of1 1BE4:BAD71E86 DEFB of4 1BE8:64269987 DEFB of4 1BEC:58342387 DEFB of4 1BF0:E05DA586 DEFB of4 1BF4:DA0F4983 DEFB of4 1BF8:CDD517 fTAN CALL FLOATTOSTACK 1BFB:CD971B CALL fSIN 1BFE:C1 POP BC 1BFF:E1 POP HL 1C00:CDD517 CALL FLOATTOSTACK 1C03:EB EX DE,HL 1C04:CDE517 CALL FLOATSAVE_BCDE 1C07:CD911B CALL fCOS 1C0A:C3F816 JP DIV_BCDExFLT 1C0D:CDA417 fATN CALL TESTSGN 1C10:FC381A CALL M,1A38 1C13:FCCD17 CALL M,17CD 1C16:3A2C81 LD A,(wFLOATEXP) 1C19:FE81 CP 81 1C1B:DA2A1C JP C,ATN_1 1C1E:010081 LD BC,8100 1C21:51 LD D,C 1C22:59 LD E,C 1C23:CDFA16 CALL DIV_FLTxBCDE 1C26:215515 LD HL,HLSUBFLT 1C29:E5 PUSH HL 1C2A:21341C ATN_1 LD HL,TABLE_ATN 1C2D:CDEC1A CALL SERIESSUM 1C30:21DB1B LD HL,CONST_HALFPI 1C33:C9 RET 1C34:09 TABLE_ATN DEFB of1 1C35:4AD73B78 DEFB of4 1C39:026E847B DEFB of4 1C3D:FEC12F7C DEFB of4 1C41:74319A7D DEFB of4 1C45:843D5A7D DEFB of4 1C49:C87F917E DEFB of4 1C4D:E4BB4C7E DEFB of4 1C51:6CAAAA7F DEFB of4 1C55:00000081 DEFB of4 1C59:C9 ARET RET 1C5A:D7 GETCHAR RST 10 1C5B:C9 RET 1C5C:3E0C fCLS LD A,0C 1C5E:C3961D JP MONITOROUT 1C61:CD2315 fWIDTH CALL FINDNUM_GETINT 1C64:7B LD A,E 1C65:328780 LD (wTERMWIDTH),A 1C68:C9 RET 1C69:CDC20D fLINES CALL EVALEXP_GETNUM 1C6C:CD070A CALL GETINTEGER 1C6F:ED538B80 LD (wLINECOUNTER),DE 1C73:ED538D80 LD (wLINENUMBER),DE 1C77:C9 RET 1C78:CD070A fDEEK CALL GETINTEGER 1C7B:D5 PUSH DE 1C7C:E1 POP HL 1C7D:46 LD B,(HL) 1C7E:23 INC HL 1C7F:7E LD A,(HL) 1C80:C37D11 JP FREE_ABPASS 1C83:CDC20D fDOKE CALL EVALEXP_GETNUM 1C86:CD070A CALL GETINTEGER 1C89:D5 PUSH DE 1C8A:CDCB07 CALL TESTSYNTAX 1C8D:2C DEFB of1 1C8E:CDC20D CALL EVALEXP_GETNUM 1C91:CD070A CALL GETINTEGER 1C94:E3 EX (SP),HL 1C95:73 LD (HL),E 1C96:23 INC HL 1C97:72 LD (HL),D 1C98:E1 POP HL 1C99:C9 RET 1C9A:CDC50D fHEX CALL EVALEXP_TSTNUM 1C9D:CD070A CALL GETINTEGER 1CA0:C5 PUSH BC 1CA1:212E81 LD HL,wPRINTBUFF 1CA4:7A LD A,D 1CA5:FE00 CP 00 1CA7:280C JR Z,HEX_2 1CA9:CDD21C CALL BYT2ASC 1CAC:78 LD A,B 1CAD:FE30 CP 30 1CAF:2802 JR Z,HEX_1 1CB1:70 LD (HL),B 1CB2:23 INC HL 1CB3:71 HEX_1 LD (HL),C 1CB4:23 INC HL 1CB5:7B HEX_2 LD A,E 1CB6:CDD21C CALL BYT2ASC 1CB9:7A LD A,D 1CBA:FE00 CP 00 1CBC:2005 JR NZ,HEX_3 1CBE:78 LD A,B 1CBF:FE30 CP 30 1CC1:2802 JR Z,HEX_4 1CC3:70 HEX_3 LD (HL),B 1CC4:23 INC HL 1CC5:71 HEX_4 LD (HL),C 1CC6:23 INC HL 1CC7:AF XOR A 1CC8:77 LD (HL),A 1CC9:23 INC HL 1CCA:77 LD (HL),A 1CCB:C1 POP BC 1CCC:212E81 LD HL,wPRINTBUFF 1CCF:C32B12 JP STR_PBUFF2STR 1CD2:47 BYT2ASC LD B,A 1CD3:E60F AND 0F 1CD5:FE0A CP 0A 1CD7:3802 JR C,BYT2ASC_1 1CD9:C607 ADD A,07 1CDB:C630 BYT2ASC_1 ADD A,30 1CDD:4F LD C,A 1CDE:78 LD A,B 1CDF:0F RRCA 1CE0:0F RRCA 1CE1:0F RRCA 1CE2:0F RRCA 1CE3:E60F AND 0F 1CE5:FE0A CP 0A 1CE7:3802 JR C,BYT2ASC_2 1CE9:C607 ADD A,07 1CEB:C630 BYT2ASC_2 ADD A,30 1CED:47 LD B,A 1CEE:C9 RET 1CEF:EB HEX2FLT EX DE,HL 1CF0:210000 LD HL,RST00 1CF3:CD081D CALL HEX2FLT_GET 1CF6:DA281D JP C,HEX2FLT_ERROR 1CF9:1805 JR HEX2FLT_LOOP2 1CFB:CD081D HEX2FLT_LOOP1 CALL HEX2FLT_GET 1CFE:381F JR C,HEX2FLT_EXIT 1D00:29 HEX2FLT_LOOP2 ADD HL,HL 1D01:29 ADD HL,HL 1D02:29 ADD HL,HL 1D03:29 ADD HL,HL 1D04:B5 OR L 1D05:6F LD L,A 1D06:18F3 JR HEX2FLT_LOOP1 1D08:13 HEX2FLT_GET INC DE 1D09:1A LD A,(DE) 1D0A:FE20 CP 20 1D0C:CA081D JP Z,HEX2FLT_GET 1D0F:D630 SUB 30 1D11:D8 RET C 1D12:FE0A CP 0A 1D14:3805 JR C,HEX2FLT_NOSUB 1D16:D607 SUB 07 1D18:FE0A CP 0A 1D1A:D8 RET C 1D1B:FE10 HEX2FLT_NOSUB CP 10 1D1D:3F CCF 1D1E:C9 RET 1D1F:EB HEX2FLT_EXIT EX DE,HL 1D20:7A LD A,D 1D21:4B LD C,E 1D22:E5 PUSH HL 1D23:CD7C11 CALL FREE_ACPASS 1D26:E1 POP HL 1D27:C9 RET 1D28:1E26 HEX2FLT_ERROR LD E,26 1D2A:C31105 JP PRINTERR 1D2D:CDC50D fBIN CALL EVALEXP_TSTNUM 1D30:CD070A CALL GETINTEGER 1D33:C5 PUSH BC 1D34:212E81 LD HL,wPRINTBUFF 1D37:0611 LD B,11 1D39:05 BIN_ZSUPPRESS DEC B 1D3A:78 LD A,B 1D3B:FE01 CP 01 1D3D:2808 JR Z,BIN_BITOUT1 1D3F:CB13 RL E 1D41:CB12 RL D 1D43:30F4 JR NC,BIN_ZSUPPRESS 1D45:1804 JR BIN_BITOUT2 1D47:CB13 BIN_BITOUT1 RL E 1D49:CB12 RL D 1D4B:3E30 BIN_BITOUT2 LD A,30 1D4D:CE00 ADC A,00 1D4F:77 LD (HL),A 1D50:23 INC HL 1D51:05 DEC B 1D52:20F3 JR NZ,BIN_BITOUT1 1D54:AF XOR A 1D55:77 LD (HL),A 1D56:23 INC HL 1D57:77 LD (HL),A 1D58:C1 POP BC 1D59:212E81 LD HL,wPRINTBUFF 1D5C:C32B12 JP STR_PBUFF2STR 1D5F:EB BIN2FLT EX DE,HL 1D60:210000 LD HL,RST00 1D63:CD7C1D CALL BIN2FLT_CHECK 1D66:DA8A1D JP C,BIN2FLT_ERROR 1D69:D630 BIN2FLT_INIT SUB 30 1D6B:29 ADD HL,HL 1D6C:B5 OR L 1D6D:6F LD L,A 1D6E:CD7C1D CALL BIN2FLT_CHECK 1D71:30F6 JR NC,BIN2FLT_INIT 1D73:EB EX DE,HL 1D74:7A LD A,D 1D75:4B LD C,E 1D76:E5 PUSH HL 1D77:CD7C11 CALL FREE_ACPASS 1D7A:E1 POP HL 1D7B:C9 RET 1D7C:13 BIN2FLT_CHECK INC DE 1D7D:1A LD A,(DE) 1D7E:FE20 CP 20 1D80:CA7C1D JP Z,BIN2FLT_CHECK 1D83:FE30 CP 30 1D85:D8 RET C 1D86:FE32 CP 32 1D88:3F CCF 1D89:C9 RET 1D8A:1E28 BIN2FLT_ERROR LD E,28 1D8C:C31105 JP PRINTERR 1D8F:DD21FFFF JJUMP1 LD IX,FFFF 1D93:C36101 JP CSTART 1D96:C30800 MONITOROUT JP RST08 1D99:C30000 fMONITOR JP RST00 1D9C:3E00 INITBREAK LD A,00 1D9E:329280 LD (wBREAKFLAG),A 1DA1:C36801 JP INITBASIC 1DA4:ED45 ARETN RETN 1DA6:F5 TESTBIT PUSH AF 1DA7:A0 AND B 1DA8:C1 POP BC 1DA9:B8 CP B 1DAA:3E00 LD A,00 1DAC:C9 RET 1DAD:CDD607 PRINTWITHCRLF CALL PUTCHAR 1DB0:C3FD0B JP PRINT_CRLF //////////////////////////////////////////////////////////////////// ADDRESSES-ALPHA SYMBOL NAME ADDR ---------------------- ABS_INVSIGN 17CD ACCUMCHECKSUM 09E6 ARET 1C59 ARETN 1DA4 ARRAYINDX 1075 ARRAYINDX_ADDR 109D ARRAYINDX_BSER 10D0 ARRAYINDX_FIND 10A3 ARRAYINDX_LOOP 107B ARRAYINDX_NEXT 10B7 ARRAYMAKE 10D5 ARRAYMAKE_END 1157 ARRAYMAKE_FIND 1133 ARRAYMAKE_FLP 1138 ARRAYMAKE_LP 10F0 ARRAYMAKE_SIZE 10F8 ARRAYMAKE_ZLP 1116 ASC2DE 0A21 ASC2DE_LNNMBR 0A22 ASC2DE_LNNMBRL 0A25 ASC2FLT 18AB ASC2FLT_2ASCII 1949 ASC2FLT_6DIGIT 1966 ASC2FLT_CONV 18B7 ASC2FLT_DIGTXT 19B1 ASC2FLT_DIVX10 197B ASC2FLT_DPOINT 18E3 ASC2FLT_END 18F6 ASC2FLT_EXP 1A01 ASC2FLT_EXPBIT 19F1 ASC2FLT_EXPDIG 192A ASC2FLT_EXPLP 18D5 ASC2FLT_EXPX10 1A03 ASC2FLT_INRNG 1984 ASC2FLT_LINEIN 1936 ASC2FLT_LSPC 1957 ASC2FLT_LZS 19E5 ASC2FLT_MANDIG 1908 ASC2FLT_MANLP 18BF ASC2FLT_MANPAD 1925 ASC2FLT_NOEXP 1A10 ASC2FLT_NUMBER 19A0 ASC2FLT_PRNTHL 193E ASC2FLT_RETRY 19C0 ASC2FLT_RNGTST 1A13 ASC2FLT_RSCALE 191F ASC2FLT_SCALE 18E7 ASC2FLT_SGNNEG 18EA ASC2FLT_SGNPOS 1900 ASC2FLT_X10 1901 ASC2FLT_ZJUST 1A0D ATN_1 1C2A BADINPUT 0C6D BASIC_COLD 0150 BASIC_WARM 0153 BCDEADDFLT 1603 BCDEDECREMENT 1870 BCDEMULT 1890 BCDEMULT_LOOP 1898 BCDEMULT_NOADD 18A6 BCDENRMLZE 15D1 BCDENRMLZE_LP 15C9 BCDENRMLZE_RND 15E5 BCDENRMLZE_RUP 15E4 BCDESUBFLT 159E BCDESUBFLT_EXP 15C5 BCDESUBFLT_ISZ 15C4 BCDESUBFLT_NLP 15B2 BCDESUBFLT_NRM 15AF BCDESUBFLT_POS 15AC BIN2FLT 1D5F BIN2FLT_CHECK 1D7C BIN2FLT_ERROR 1D8A BIN2FLT_INIT 1D69 BIN_BITOUT1 1D47 BIN_BITOUT2 1D4B BIN_ZSUPPRESS 1D39 BOOLEAN_AND 0F0C BOOLEAN_NOT 0F93 BOOLEAN_OR 0F0B BOOLEAN_OR1 0F2E BREAKRETURN 01F7 BREAK_ENDPRG 09A7 BREAK_NOLINEN 09BA BREAK_USERINP 09A4 BYT2ASC 1CD2 BYT2ASC_1 1CDB BYT2ASC_2 1CEB BYTESHIFTLEFT 16E7 CALLEDFROMEVAL 1033 CHECKFUNCTION 1214 CHECKSTACK 04DA CHECKSTACK_ERR 04F2 CHECKSTACK_OK 04E3 CHR_TOPOOL 1439 CKINCHAR 00AA CLEAR_FMSTORED 0A69 COLDSTART 0156 COMPARE 0F33 COMPAREDEHL 07C5 COMPARE_LOGIC1 0F45 COMPARE_LOGIC2 0F47 COMPARE_RESULT 0F89 COMPARE_STRLP 0F71 COMPFLOAT 1839 COMPNUMBER 181F CONST_HALFPI 1BDB CONST_ONEFORTH 1BDF CONST_ONEHALF 1A22 CONST_UNITY 1647 CONTROLOTEST 0800 COPYWSPC_LOOP 0170 CSTART 0161 DATAFINDNEXT 0D53 DATAFINDNEXT_1 0D6C DELCHAR 0731 DELCHAR_DOMORE 074B DELCHAR_LINE 073C DELCHAR_LNGET 0742 DELCHAR_LNOUT 0739 DELCHAR_PROC 0764 DELETE 0711 DELETE_ECHO 0725 DIM_CHKCHARTYP 0FE1 DIM_ENDOFNAME 0FD5 DIM_FINDVARLP 101A DIM_FNDANOTHER 1028 DIM_GETFNCTNME 0FBD DIM_GETVARADDR 0FB8 DIM_NOTASTRING 0FF0 DIM_RETURN 0FAA DIM_SAVENAME2 0FD4 DIM_SMPVARFOR0 1000 DINPOS 07FA DISP_BREAK 04A0 DISP_BYTESFREE 01FD DISP_ERROR 048E DISP_IGNOREEXT 0D42 DISP_IN 0495 DISP_MEMTOP 0243 DISP_OK 049A DISP_REDO 0C5A DISP_SIGNON 020C DISP_SIGNON1 0109 DISP_SIGNON2 0124 DIV_BCDExFLT 16F8 DIV_FLTx10 16EC DIV_FLTxBCDE 16FA DIV_LOOP 171F DIV_RESTOREDIV 1732 EDIT_COMMAND 0555 EDIT_FINDLNEND 05DD EDIT_INSNEWLN 05A5 EDIT_LINEFOUND 058E EDIT_MOVEBUFF 05C4 EDIT_POINTERLP 05D1 EDIT_SETLNPTR 05CC EDIT_SHFTLNSDN 0596 ERROR_DATLIN 04F7 ERROR_DD 0506 ERROR_DZ 0500 ERROR_NF 0503 ERROR_OV 050C ERROR_SN 04FD ERROR_TM 050F ERROR_UF 0509 EVALEXP 0DD4 EVALEXP_CHKTYP 0DC7 EVALEXP_CONT 0DE3 EVALEXP_GETNUM 0DC2 EVALEXP_NEXT 0DE0 EVALEXP_OPERLP 0DF0 EVALEXP_OPNPAR 0DD0 EVALEXP_PREBRK 0DD7 EVALEXP_TSTNUM 0DC5 EVALEXP_TSTSTR 0DC6 EVALFUNCT 0EEA EVALFUNCT_ADDR 0EC3 EVALFUNCT_JUMP 0EF2 EVALMINUS 0EA1 EVALMINUS_RETN 0EAD EVALOPERATOR 0E0C EXECUTEUSERFN 11BE EXPONENTSIGN 0EFB fABS 17C9 fASC 141C fATN 1C0D fBIN 1D2D fCHR 142D fCLEAR 0A46 fCLS 1C5C fCONTINUE 09CB fCOS 1B91 fDATA 0AEC fDEEK 1C78 fDEF 1191 fDIM 0FB3 fDOKE 1C83 fEND 099F fEXP 1A8B fFOR 089C fFREE 115B fGOSUB 0A98 fGOTO 0AA9 fHEX 1C9A fIF 0B7B FINDFOR 04A6 FINDFOR_INDEX 04C0 FINDFOR_LOOP 04AA FINDNUM 1520 FINDNUM_GETINT 1523 FINDNUM_MAKINT 1526 FINDNUM_MIDNUM 14DB FINDNUM_RGTPAR 14D6 FINDVAR_ADDR 0EB2 FINDVAR_FROM 0EB5 fINP 14E0 fINPUT 0C7E fINT 1877 fLEFT 143D fLEN 140D fLET 0B03 fLINES 1C69 fLIST 0811 FLOATADDEXPS 1762 FLOATCOMPLEMNT 160F FLOATLOAD 17F3 FLOATLOAD_IHL 17FA FLOATLOAD_PTR 17F0 FLOATMSBSETSGN 180A FLOATNEGATE 1A38 FLOATPTRINHL 17FC FLOATPTRINHL_4 17FF FLOATPTRINHL_L 1801 FLOATROUND 15F6 FLOATSAVE 17E2 FLOATSAVE_BCDE 17E5 FLOATSCALE 1623 FLOATSCALE_LP1 1625 FLOATSCALE_LP2 1635 FLOATSCALE_SR 1632 FLOATSCALE_SR1 1639 FLOATTOSTACK 17D5 FLOAT_MULTX10 178D fLOG 1658 FLT2INT 184C fMID 1477 fMONITOR 1D99 fNEW 0609 fNEXT 0D77 fNULL 09DE fON 0B5D FORBLOCKKILL 0DB2 FOR_BREAKTEST 0915 FOR_EXECUTE 0935 FOR_FIND 08CC FOR_IDSAVE 0911 FOR_IFJUMP 093C FOR_LOOP 08B0 FOR_ONJUMP 093D FOR_STEPSAVE 0908 fOUT 14EC fPEEK 1534 fPOKE 153B fPOS 1189 fPRINT 0B9F fREAD 0CAD FREE_ABPASS 117D FREE_ACPASS 117C FREE_NUMBER 1177 fREM 0AEE fRESTORE 0965 fRETURN 0AC7 fRIGHT 146D fRND 1B1C fRUN 0A8C fSGN 17B3 fSIN 1B97 fSQR 1A3D fSTOP 099D fSTR 1225 fTAN 1BF8 fVAL 14A7 fWAIT 14F2 fWIDTH 1C61 GETBYTEFROMRAM 0955 GETCHAR 1C5A GETINTEGER 0A07 GETINTEGER_BYT 0A01 GETINTEGER_ERR 0A1C GETINTEGER_IDX 09FB GETINTEGER_POS 09FE GETSTR 13DB GETSTR_CURRENT 13DE GETSTR_DE 13E2 GETSTR_HL 13E1 GETSTR_POPHL 13FA GETVALS 0CBE GETVALS_ANOTHR 0CE6 GETVALS_ITMSEP 0D01 GETVALS_MORE 0CBA GETVALS_STRENT 0D04 GOSUB_RUNLNNBR 0AA8 GOTO_UNDEFNLN 0AC2 HEX2FLT 1CEF HEX2FLT_ERROR 1D28 HEX2FLT_EXIT 1D1F HEX2FLT_GET 1D08 HEX2FLT_LOOP1 1CFB HEX2FLT_LOOP2 1D00 HEX2FLT_NOSUB 1D1B HEX_1 1CB3 HEX_2 1CB5 HEX_3 1CC3 HEX_4 1CC5 HLSUBFLT 1555 HLSUBFLT_MBCDE 155B HLSUBFLT_NSWAP 1578 HLSUBFLT_PBCDE 155E HLSUBFLT_PUB 1559 IF_GOTO 0B89 INCLEN 07F6 INITBASIC 0168 INITBREAK 1D9C INPUT_NOPROMPT 0C98 ISR_CHECKWARM 00FB ISR_COLDSTART 00F3 ISR_CORW 00E3 ISR_INITIALIZE 00B8 ISR_PRINT 00B0 JJUMP1 1D8F LEFT_ALLFOL 144B LEFT_MID1 1443 LEFT_RIGHT1 1441 LEN_GETLEN 1411 LETSTR 0D1B LETSTR_BININP 0D10 LETSTR_GETMORE 0D27 LET_CREATESTR 0B45 LET_MOVESTRPTR 0B4D LET_NUMBER 0B56 LET_STRING 0B1E LINECOUNT 0870 LINECOUNT_RSET 0893 LINECOUNT_STUP 0867 LIST_LOOP1 081D LIST_LOOP2 083D LIST_LOOP3 0840 LIST_PRINTWDLP 0859 LIST_TOKENLOOP 084F LOG_FLTx2 1690 LOG_FLTxBYT 16BB LOG_FLTxBYTLP 16C4 LOG_FLTxBYTSKP 16D5 LOG_FLTxFLT 1699 LOG_FLTxN 1697 LOG_POPHANDRET 16E5 MAKESPACE 04C9 MAKESPACE_LOOP 04CF MAKESPACE_STR 04CC MESSAGELOOP 0198 MESSAGESIZE 0185 MID_SETSTART 1490 MONITOROUT 1D96 NEW_CLEARPTR 060A NEW_CLEARREGS 062F NEW_COPYDIRECT 06E1 NEW_CPYLITERAL 0701 NEW_CRUNCHCODE 0659 NEW_CRUNCHLOOP 0662 NEW_DOITAGAIN 0648 NEW_FINDWORD 068C NEW_GETNEXT 06A7 NEW_INITVARS 0619 NEW_INPWPROMPT 064C NEW_MATCHFOUND 06D9 NEW_NEXTBYTE 06B7 NEW_NEXTCHARLP 06F8 NEW_NOCHANGES 06D1 NEW_NOSPACES 06C8 NEW_RUNFRESH 0615 NEW_SEARCHWRDS 06A5 NEW_SETLITERAL 06EF NEW_SETRETURN 06DD NEW_TESTFORREM 06F2 NEXTSTMNT_TST 0AF5 NEXTSTMNT_TSTL 0AF2 NEXT_RENTRY 0D7A ON_GOXX 0B6C ON_GOXXLOOP 0B6D OPERND 0E4B OPERND_EVALPAR 0E99 OPERND_NAMPSD 0E76 POS_PASSA 118C PRINTERR 0511 PRINTERR_BFERR 0547 PRINTERR_LINE 0531 PRINTERR_PUTOK 0548 PRINTWITHCRLF 1DAD PRINT_BUFFEND 0BF8 PRINT_COMMA 0C19 PRINT_CRLF 0BFD PRINT_LOOP 0BA2 PRINT_MORE 0B9B PRINT_NEWLINE 0BF0 PRINT_NEXTITEM 0C53 PRINT_NULL 0C07 PRINT_NULLP 0C0E PRINT_NUMBER 0BE5 PRINT_SPACELP 0C4C PRINT_SPCXA 0C48 PRINT_SPCXE 0C43 PRINT_STRING 0BE9 PRINT_TAB 0C30 PRINT_ZONELP 0C27 PUTBUFF 07A3 PUTBUFF_ANDDEL 07BD PUTBUFF_CTRL 07A8 PUTBUFF_LOOP 07B7 PUTCHAR 07D6 READ_NEXTITEM 0CB2 RESTORE_DATPTR 097B RESTORE_NEWLN 097A RETURNADDR 1067 RETURNADDR_LP 1059 RETURNNULL 106A RETURN_NXTSTMT 0AEB RETURN_RUNPROG 0AE6 RND_1 1B58 RND_2 1B74 RND_RESEED 1B7D ROUND 154C ROUND_FLTADDHL 154F RST00 0000 RST08 0008 RST10 0010 RST18 0018 RST38 0038 SEARCHLINE 05E9 SEARCHLINE_LP 05EC SERIESSUM 1AEC SERIESSUM_1 1AFB SERIESSUM_LOOP 1B04 SER_CONOUT1 00A0 SER_INITIALIZE 003A SER_NOTFULL 004F SER_NOTRDWRAP 0088 SER_NOTWRAP 005B SER_RECEIVE 0074 SER_RTS0 006F SER_RTS1 009B SER_TRANSMIT 009F SETBUFFEREND 0708 SETIO 1510 SETMEMORYTOP 01BC SGN_FLTGREL 17B6 SGN_RETINT 17BB SIN_1 1BC7 SQR_POWER 1A46 SQR_POWER1 1A56 SQR_POWER2 1A73 STR2STRBLK 13C8 STR2STRBLK_LP 13D2 STR2STRBLK_MOV 13D1 STRINGBACK2TMP 13FC STR_ADDTOPOOL 1346 STR_ARRAYLOOP 1316 STR_ARRAYMOV 1315 STR_CONCAT 1391 STR_CREATE 124D STR_CREATETEMP 1259 STR_DTERMINATD 125D STR_GARBAGEDNE 12B6 STR_GARBAGELP1 12E1 STR_GARBAGELP2 12EF STR_GARBGARRAY 1335 STR_GARBGECOLL 12DE STR_ISAVAIL 124A STR_ISITINPOOL 1343 STR_MAKEENTRY 126F STR_PBUFF2STR 122B STR_POPAF 12D0 STR_PRINTNUMB 129A STR_PRINTSTR 129B STR_PRINTSTR1 129E STR_PRINTSTRLP 12A5 STR_QUOTED 125A STR_QUOTEDLOOP 1260 STR_SAVE 1235 STR_SAVEADDR 1253 STR_SCANTOEND 136C STR_SIMPLEVARS 1300 STR_TEMPORARY 127B STR_TESTIFROOM 12B4 STR_TESTIFTIDY 12D2 TABLE_ASC2FLT 1A26 TABLE_ATN 1C34 TABLE_ERRORS 0404 TABLE_EXP 1ACB TABLE_FUNCTION 024E TABLE_INTEGER 015D TABLE_KEYWORD 03A5 TABLE_LOG 164B TABLE_MATHORDR 03EF TABLE_RESERVED 0286 TABLE_RND 1B85 TABLE_SIN 1BE3 TESTBIT 1DA6 TESTBREAK 0980 TESTBREAK_SETF 0998 TESTBREAK_WAIT 098E TESTFORLETTERS 09F3 TESTID 1206 TESTMEMORY 01AA TESTOVERFLOW_1 1780 TESTOVERFLOW_2 1785 TESTOVERFLOW_3 1786 TESTSGN 17A4 TESTSGN_FLGDIF 17AF TESTSGN_RETREL 17AD TESTSYNTAX 07CB TOKENONSTACK 0E34 VAL_1 14C5 VAL_2 14CF VAL_3 14D2 WAIT_LOOP 1507 WAIT_NOXOR 1506 WARMSTART 01F4 wiBASTXTBEG 048C wiBREAKFLAG 047B wiCHECKSUM 0478 wiCOMMAWIDTH 0471 wiCTRLOFLAG 0473 wiDIV1 0438 wiDIV2 043C wiDIV3 0440 wiDIV4 0443 wiDIVSUPPORT 0437 wiINPORT 046D wiINSUB 046C wiLASTRANDOM 0468 wiLINECOUNTER 0474 wiLINENUMBER 0476 wiNMIFLAG 047A wiNULLFLAG 0472 wiNULLS 046F wiOUTPORT 0435 wiOUTSUB 0434 wiPOINT 047F wiRESET 0485 wiRINPUT 047C wiSEED 0445 wiSET 0482 wiSTRINGSPACE 0488 wiTERMWIDTH 0470 wiTHISLINE 048A wiUSRFUNCT 0431 wiWARMSTART 042E wTABLE_BEGIN 042E wTABLE_END 048E ADDRESSES-NUMERIC SYMBOL NAME ADDR ---------------------- RST00 0000 RST08 0008 RST10 0010 RST18 0018 RST38 0038 SER_INITIALIZE 003A SER_NOTFULL 004F SER_NOTWRAP 005B SER_RTS0 006F SER_RECEIVE 0074 SER_NOTRDWRAP 0088 SER_RTS1 009B SER_TRANSMIT 009F SER_CONOUT1 00A0 CKINCHAR 00AA ISR_PRINT 00B0 ISR_INITIALIZE 00B8 ISR_CORW 00E3 ISR_COLDSTART 00F3 ISR_CHECKWARM 00FB DISP_SIGNON1 0109 DISP_SIGNON2 0124 BASIC_COLD 0150 BASIC_WARM 0153 COLDSTART 0156 TABLE_INTEGER 015D CSTART 0161 INITBASIC 0168 COPYWSPC_LOOP 0170 MESSAGESIZE 0185 MESSAGELOOP 0198 TESTMEMORY 01AA SETMEMORYTOP 01BC WARMSTART 01F4 BREAKRETURN 01F7 DISP_BYTESFREE 01FD DISP_SIGNON 020C DISP_MEMTOP 0243 TABLE_FUNCTION 024E TABLE_RESERVED 0286 TABLE_KEYWORD 03A5 TABLE_MATHORDR 03EF TABLE_ERRORS 0404 wiWARMSTART 042E wTABLE_BEGIN 042E wiUSRFUNCT 0431 wiOUTSUB 0434 wiOUTPORT 0435 wiDIVSUPPORT 0437 wiDIV1 0438 wiDIV2 043C wiDIV3 0440 wiDIV4 0443 wiSEED 0445 wiLASTRANDOM 0468 wiINSUB 046C wiINPORT 046D wiNULLS 046F wiTERMWIDTH 0470 wiCOMMAWIDTH 0471 wiNULLFLAG 0472 wiCTRLOFLAG 0473 wiLINECOUNTER 0474 wiLINENUMBER 0476 wiCHECKSUM 0478 wiNMIFLAG 047A wiBREAKFLAG 047B wiRINPUT 047C wiPOINT 047F wiSET 0482 wiRESET 0485 wiSTRINGSPACE 0488 wiTHISLINE 048A wiBASTXTBEG 048C DISP_ERROR 048E wTABLE_END 048E DISP_IN 0495 DISP_OK 049A DISP_BREAK 04A0 FINDFOR 04A6 FINDFOR_LOOP 04AA FINDFOR_INDEX 04C0 MAKESPACE 04C9 MAKESPACE_STR 04CC MAKESPACE_LOOP 04CF CHECKSTACK 04DA CHECKSTACK_OK 04E3 CHECKSTACK_ERR 04F2 ERROR_DATLIN 04F7 ERROR_SN 04FD ERROR_DZ 0500 ERROR_NF 0503 ERROR_DD 0506 ERROR_UF 0509 ERROR_OV 050C ERROR_TM 050F PRINTERR 0511 PRINTERR_LINE 0531 PRINTERR_BFERR 0547 PRINTERR_PUTOK 0548 EDIT_COMMAND 0555 EDIT_LINEFOUND 058E EDIT_SHFTLNSDN 0596 EDIT_INSNEWLN 05A5 EDIT_MOVEBUFF 05C4 EDIT_SETLNPTR 05CC EDIT_POINTERLP 05D1 EDIT_FINDLNEND 05DD SEARCHLINE 05E9 SEARCHLINE_LP 05EC fNEW 0609 NEW_CLEARPTR 060A NEW_RUNFRESH 0615 NEW_INITVARS 0619 NEW_CLEARREGS 062F NEW_DOITAGAIN 0648 NEW_INPWPROMPT 064C NEW_CRUNCHCODE 0659 NEW_CRUNCHLOOP 0662 NEW_FINDWORD 068C NEW_SEARCHWRDS 06A5 NEW_GETNEXT 06A7 NEW_NEXTBYTE 06B7 NEW_NOSPACES 06C8 NEW_NOCHANGES 06D1 NEW_MATCHFOUND 06D9 NEW_SETRETURN 06DD NEW_COPYDIRECT 06E1 NEW_SETLITERAL 06EF NEW_TESTFORREM 06F2 NEW_NEXTCHARLP 06F8 NEW_CPYLITERAL 0701 SETBUFFEREND 0708 DELETE 0711 DELETE_ECHO 0725 DELCHAR 0731 DELCHAR_LNOUT 0739 DELCHAR_LINE 073C DELCHAR_LNGET 0742 DELCHAR_DOMORE 074B DELCHAR_PROC 0764 PUTBUFF 07A3 PUTBUFF_CTRL 07A8 PUTBUFF_LOOP 07B7 PUTBUFF_ANDDEL 07BD COMPAREDEHL 07C5 TESTSYNTAX 07CB PUTCHAR 07D6 INCLEN 07F6 DINPOS 07FA CONTROLOTEST 0800 fLIST 0811 LIST_LOOP1 081D LIST_LOOP2 083D LIST_LOOP3 0840 LIST_TOKENLOOP 084F LIST_PRINTWDLP 0859 LINECOUNT_STUP 0867 LINECOUNT 0870 LINECOUNT_RSET 0893 fFOR 089C FOR_LOOP 08B0 FOR_FIND 08CC FOR_STEPSAVE 0908 FOR_IDSAVE 0911 FOR_BREAKTEST 0915 FOR_EXECUTE 0935 FOR_IFJUMP 093C FOR_ONJUMP 093D GETBYTEFROMRAM 0955 fRESTORE 0965 RESTORE_NEWLN 097A RESTORE_DATPTR 097B TESTBREAK 0980 TESTBREAK_WAIT 098E TESTBREAK_SETF 0998 fSTOP 099D fEND 099F BREAK_USERINP 09A4 BREAK_ENDPRG 09A7 BREAK_NOLINEN 09BA fCONTINUE 09CB fNULL 09DE ACCUMCHECKSUM 09E6 TESTFORLETTERS 09F3 GETINTEGER_IDX 09FB GETINTEGER_POS 09FE GETINTEGER_BYT 0A01 GETINTEGER 0A07 GETINTEGER_ERR 0A1C ASC2DE 0A21 ASC2DE_LNNMBR 0A22 ASC2DE_LNNMBRL 0A25 fCLEAR 0A46 CLEAR_FMSTORED 0A69 fRUN 0A8C fGOSUB 0A98 GOSUB_RUNLNNBR 0AA8 fGOTO 0AA9 GOTO_UNDEFNLN 0AC2 fRETURN 0AC7 RETURN_RUNPROG 0AE6 RETURN_NXTSTMT 0AEB fDATA 0AEC fREM 0AEE NEXTSTMNT_TSTL 0AF2 NEXTSTMNT_TST 0AF5 fLET 0B03 LET_STRING 0B1E LET_CREATESTR 0B45 LET_MOVESTRPTR 0B4D LET_NUMBER 0B56 fON 0B5D ON_GOXX 0B6C ON_GOXXLOOP 0B6D fIF 0B7B IF_GOTO 0B89 PRINT_MORE 0B9B fPRINT 0B9F PRINT_LOOP 0BA2 PRINT_NUMBER 0BE5 PRINT_STRING 0BE9 PRINT_NEWLINE 0BF0 PRINT_BUFFEND 0BF8 PRINT_CRLF 0BFD PRINT_NULL 0C07 PRINT_NULLP 0C0E PRINT_COMMA 0C19 PRINT_ZONELP 0C27 PRINT_TAB 0C30 PRINT_SPCXE 0C43 PRINT_SPCXA 0C48 PRINT_SPACELP 0C4C PRINT_NEXTITEM 0C53 DISP_REDO 0C5A BADINPUT 0C6D fINPUT 0C7E INPUT_NOPROMPT 0C98 fREAD 0CAD READ_NEXTITEM 0CB2 GETVALS_MORE 0CBA GETVALS 0CBE GETVALS_ANOTHR 0CE6 GETVALS_ITMSEP 0D01 GETVALS_STRENT 0D04 LETSTR_BININP 0D10 LETSTR 0D1B LETSTR_GETMORE 0D27 DISP_IGNOREEXT 0D42 DATAFINDNEXT 0D53 DATAFINDNEXT_1 0D6C fNEXT 0D77 NEXT_RENTRY 0D7A FORBLOCKKILL 0DB2 EVALEXP_GETNUM 0DC2 EVALEXP_TSTNUM 0DC5 EVALEXP_TSTSTR 0DC6 EVALEXP_CHKTYP 0DC7 EVALEXP_OPNPAR 0DD0 EVALEXP 0DD4 EVALEXP_PREBRK 0DD7 EVALEXP_NEXT 0DE0 EVALEXP_CONT 0DE3 EVALEXP_OPERLP 0DF0 EVALOPERATOR 0E0C TOKENONSTACK 0E34 OPERND 0E4B OPERND_NAMPSD 0E76 OPERND_EVALPAR 0E99 EVALMINUS 0EA1 EVALMINUS_RETN 0EAD FINDVAR_ADDR 0EB2 FINDVAR_FROM 0EB5 EVALFUNCT_ADDR 0EC3 EVALFUNCT 0EEA EVALFUNCT_JUMP 0EF2 EXPONENTSIGN 0EFB BOOLEAN_OR 0F0B BOOLEAN_AND 0F0C BOOLEAN_OR1 0F2E COMPARE 0F33 COMPARE_LOGIC1 0F45 COMPARE_LOGIC2 0F47 COMPARE_STRLP 0F71 COMPARE_RESULT 0F89 BOOLEAN_NOT 0F93 DIM_RETURN 0FAA fDIM 0FB3 DIM_GETVARADDR 0FB8 DIM_GETFNCTNME 0FBD DIM_SAVENAME2 0FD4 DIM_ENDOFNAME 0FD5 DIM_CHKCHARTYP 0FE1 DIM_NOTASTRING 0FF0 DIM_SMPVARFOR0 1000 DIM_FINDVARLP 101A DIM_FNDANOTHER 1028 CALLEDFROMEVAL 1033 RETURNADDR_LP 1059 RETURNADDR 1067 RETURNNULL 106A ARRAYINDX 1075 ARRAYINDX_LOOP 107B ARRAYINDX_ADDR 109D ARRAYINDX_FIND 10A3 ARRAYINDX_NEXT 10B7 ARRAYINDX_BSER 10D0 ARRAYMAKE 10D5 ARRAYMAKE_LP 10F0 ARRAYMAKE_SIZE 10F8 ARRAYMAKE_ZLP 1116 ARRAYMAKE_FIND 1133 ARRAYMAKE_FLP 1138 ARRAYMAKE_END 1157 fFREE 115B FREE_NUMBER 1177 FREE_ACPASS 117C FREE_ABPASS 117D fPOS 1189 POS_PASSA 118C fDEF 1191 EXECUTEUSERFN 11BE TESTID 1206 CHECKFUNCTION 1214 fSTR 1225 STR_PBUFF2STR 122B STR_SAVE 1235 STR_ISAVAIL 124A STR_CREATE 124D STR_SAVEADDR 1253 STR_CREATETEMP 1259 STR_QUOTED 125A STR_DTERMINATD 125D STR_QUOTEDLOOP 1260 STR_MAKEENTRY 126F STR_TEMPORARY 127B STR_PRINTNUMB 129A STR_PRINTSTR 129B STR_PRINTSTR1 129E STR_PRINTSTRLP 12A5 STR_TESTIFROOM 12B4 STR_GARBAGEDNE 12B6 STR_POPAF 12D0 STR_TESTIFTIDY 12D2 STR_GARBGECOLL 12DE STR_GARBAGELP1 12E1 STR_GARBAGELP2 12EF STR_SIMPLEVARS 1300 STR_ARRAYMOV 1315 STR_ARRAYLOOP 1316 STR_GARBGARRAY 1335 STR_ISITINPOOL 1343 STR_ADDTOPOOL 1346 STR_SCANTOEND 136C STR_CONCAT 1391 STR2STRBLK 13C8 STR2STRBLK_MOV 13D1 STR2STRBLK_LP 13D2 GETSTR 13DB GETSTR_CURRENT 13DE GETSTR_HL 13E1 GETSTR_DE 13E2 GETSTR_POPHL 13FA STRINGBACK2TMP 13FC fLEN 140D LEN_GETLEN 1411 fASC 141C fCHR 142D CHR_TOPOOL 1439 fLEFT 143D LEFT_RIGHT1 1441 LEFT_MID1 1443 LEFT_ALLFOL 144B fRIGHT 146D fMID 1477 MID_SETSTART 1490 fVAL 14A7 VAL_1 14C5 VAL_2 14CF VAL_3 14D2 FINDNUM_RGTPAR 14D6 FINDNUM_MIDNUM 14DB fINP 14E0 fOUT 14EC fWAIT 14F2 WAIT_NOXOR 1506 WAIT_LOOP 1507 SETIO 1510 FINDNUM 1520 FINDNUM_GETINT 1523 FINDNUM_MAKINT 1526 fPEEK 1534 fPOKE 153B ROUND 154C ROUND_FLTADDHL 154F HLSUBFLT 1555 HLSUBFLT_PUB 1559 HLSUBFLT_MBCDE 155B HLSUBFLT_PBCDE 155E HLSUBFLT_NSWAP 1578 BCDESUBFLT 159E BCDESUBFLT_POS 15AC BCDESUBFLT_NRM 15AF BCDESUBFLT_NLP 15B2 BCDESUBFLT_ISZ 15C4 BCDESUBFLT_EXP 15C5 BCDENRMLZE_LP 15C9 BCDENRMLZE 15D1 BCDENRMLZE_RUP 15E4 BCDENRMLZE_RND 15E5 FLOATROUND 15F6 BCDEADDFLT 1603 FLOATCOMPLEMNT 160F FLOATSCALE 1623 FLOATSCALE_LP1 1625 FLOATSCALE_SR 1632 FLOATSCALE_LP2 1635 FLOATSCALE_SR1 1639 CONST_UNITY 1647 TABLE_LOG 164B fLOG 1658 LOG_FLTx2 1690 LOG_FLTxN 1697 LOG_FLTxFLT 1699 LOG_FLTxBYT 16BB LOG_FLTxBYTLP 16C4 LOG_FLTxBYTSKP 16D5 LOG_POPHANDRET 16E5 BYTESHIFTLEFT 16E7 DIV_FLTx10 16EC DIV_BCDExFLT 16F8 DIV_FLTxBCDE 16FA DIV_LOOP 171F DIV_RESTOREDIV 1732 FLOATADDEXPS 1762 TESTOVERFLOW_1 1780 TESTOVERFLOW_2 1785 TESTOVERFLOW_3 1786 FLOAT_MULTX10 178D TESTSGN 17A4 TESTSGN_RETREL 17AD TESTSGN_FLGDIF 17AF fSGN 17B3 SGN_FLTGREL 17B6 SGN_RETINT 17BB fABS 17C9 ABS_INVSIGN 17CD FLOATTOSTACK 17D5 FLOATSAVE 17E2 FLOATSAVE_BCDE 17E5 FLOATLOAD_PTR 17F0 FLOATLOAD 17F3 FLOATLOAD_IHL 17FA FLOATPTRINHL 17FC FLOATPTRINHL_4 17FF FLOATPTRINHL_L 1801 FLOATMSBSETSGN 180A COMPNUMBER 181F COMPFLOAT 1839 FLT2INT 184C BCDEDECREMENT 1870 fINT 1877 BCDEMULT 1890 BCDEMULT_LOOP 1898 BCDEMULT_NOADD 18A6 ASC2FLT 18AB ASC2FLT_CONV 18B7 ASC2FLT_MANLP 18BF ASC2FLT_EXPLP 18D5 ASC2FLT_DPOINT 18E3 ASC2FLT_SCALE 18E7 ASC2FLT_SGNNEG 18EA ASC2FLT_END 18F6 ASC2FLT_SGNPOS 1900 ASC2FLT_X10 1901 ASC2FLT_MANDIG 1908 ASC2FLT_RSCALE 191F ASC2FLT_MANPAD 1925 ASC2FLT_EXPDIG 192A ASC2FLT_LINEIN 1936 ASC2FLT_PRNTHL 193E ASC2FLT_2ASCII 1949 ASC2FLT_LSPC 1957 ASC2FLT_6DIGIT 1966 ASC2FLT_DIVX10 197B ASC2FLT_INRNG 1984 ASC2FLT_NUMBER 19A0 ASC2FLT_DIGTXT 19B1 ASC2FLT_RETRY 19C0 ASC2FLT_LZS 19E5 ASC2FLT_EXPBIT 19F1 ASC2FLT_EXP 1A01 ASC2FLT_EXPX10 1A03 ASC2FLT_ZJUST 1A0D ASC2FLT_NOEXP 1A10 ASC2FLT_RNGTST 1A13 CONST_ONEHALF 1A22 TABLE_ASC2FLT 1A26 FLOATNEGATE 1A38 fSQR 1A3D SQR_POWER 1A46 SQR_POWER1 1A56 SQR_POWER2 1A73 fEXP 1A8B TABLE_EXP 1ACB SERIESSUM 1AEC SERIESSUM_1 1AFB SERIESSUM_LOOP 1B04 fRND 1B1C RND_1 1B58 RND_2 1B74 RND_RESEED 1B7D TABLE_RND 1B85 fCOS 1B91 fSIN 1B97 SIN_1 1BC7 CONST_HALFPI 1BDB CONST_ONEFORTH 1BDF TABLE_SIN 1BE3 fTAN 1BF8 fATN 1C0D ATN_1 1C2A TABLE_ATN 1C34 ARET 1C59 GETCHAR 1C5A fCLS 1C5C fWIDTH 1C61 fLINES 1C69 fDEEK 1C78 fDOKE 1C83 fHEX 1C9A HEX_1 1CB3 HEX_2 1CB5 HEX_3 1CC3 HEX_4 1CC5 BYT2ASC 1CD2 BYT2ASC_1 1CDB BYT2ASC_2 1CEB HEX2FLT 1CEF HEX2FLT_LOOP1 1CFB HEX2FLT_LOOP2 1D00 HEX2FLT_GET 1D08 HEX2FLT_NOSUB 1D1B HEX2FLT_EXIT 1D1F HEX2FLT_ERROR 1D28 fBIN 1D2D BIN_ZSUPPRESS 1D39 BIN_BITOUT1 1D47 BIN_BITOUT2 1D4B BIN2FLT 1D5F BIN2FLT_INIT 1D69 BIN2FLT_CHECK 1D7C BIN2FLT_ERROR 1D8A JJUMP1 1D8F MONITOROUT 1D96 fMONITOR 1D99 INITBREAK 1D9C ARETN 1DA4 TESTBIT 1DA6 PRINTWITHCRLF 1DAD EQUATES-ALPHA SYMBOL NAME VAL ---------------------- BASICSTARTED 8044 BKSP 0008 CR 000D CS 000C CTRLC 0003 CTRLG 0007 CTRLO 000F CTRLQ 0011 CTRLR 0012 CTRLS 0013 CTRLU 0015 DEL 007F DISP_ZBYTE 0499 eBN 0028 eBS 0010 eCN 0020 eDD 0012 eDZ 0014 eFC 0008 eHX 0026 eID 0016 eLS 001C eMO 0024 eNF 0000 eOD 0006 eOF 000A eOM 000C eOS 001A eRG 0004 ESC 001B eSN 0002 eST 001E eTM 0018 eUF 0022 eUL 000E LF 000A RTS_HIGH 00D6 RTS_LOW 0096 SER_BUFFER 8000 SER_BUFFERSIZE 003F SER_BUFFERUSED 8043 SER_EMPTYSIZE 0005 SER_FULLSIZE 0030 SER_INPOINTER 803F SER_RDPOINTER 8041 SIO_CONTROL 0080 SIO_DATA 0081 tDATA 0083 tDIV 00AF TEMPSTACK 80ED tEND 0080 tEQUAL 00B4 tFN 00A7 tFOR 0081 tGOSUB 008C tGOTO 0088 tGTH 00B3 tLEFT 00CF tLTH 00B5 tMINUS 00AD tNEW 00A4 tNOT 00AA tOR 00B2 tPLUS 00AC tPOINT 00C7 tPRINT 009E tREM 008E tSGN 00B6 tSPC 00A8 tSTEP 00AB tTAB 00A5 tTHEN 00A9 tTIMES 00AE tTO 00A6 wARRAYSEND 811F wBASTXTBEG 80A3 wBREAKFLAG 8092 wBREAKLINE 8113 wBUFFER 80A6 wCHECKSUM 808F wCOMMAWIDTH 8088 wCONTINUEADDR 8119 wCTRLOFLAG 808A wCURSORPOS 80F0 wDATAFLAG 80F3 wDATALINE 810E wDATATYPE 80F2 wDIV1 804F wDIV2 8053 wDIV3 8057 wDIV4 805A wDIVSUPPORT 804E wERRORLINE 8117 wFLOATEXP 812C wFLOATMAN 8129 wFORFLAG 8110 wFUNCTARGNAME 8123 wFUNCTNARG 8125 wINPORT 8084 wINSUB 8083 wLASTBYTEIN 8111 wLASTRAM 80F4 wLASTRANDOM 807F wLCRFLAG 80F1 wLINECOUNTER 808B wLINENUMBER 808D wLOOPSTART 810C wMEMTESTBEG 81A2 wMULTVALUE 813B wNEXTDATA 8121 wNEXTOPERATOR 8115 wNMIFLAG 8091 wNULLFLAG 8089 wNULLS 8086 wOUTPORT 804C wOUTSUB 804B wPOINT 8096 wPRINTBUFF 812E wPROGRAMBEG 813E wPROGRAMEND 811B wREADFLAG 8112 wRESET 809C wRINPUT 8093 WS 8045 wSEED 805C wSET 8099 wSIGNRESULT 812D wSTACK 80AB wSTRINGBOTTOM 8108 wSTRINGSPACE 809F wTERMWIDTH 8087 wTHISLINE 80A1 wTHISOPERATOR 810A wTMPSTRING 8104 wTMPSTRPOOL 80F8 wTMPSTRPTR 80F6 wUSRFUNCT 8048 wVARIABLESEND 811D wWARMSTART 8045 xBASICSTART 0150 xISRSTART 0000 xRAMSTART 8000 xROMSIZE 2000 xTMPSTACKOS 00ED xWSOFFSET 0045 EQUATES-NUMERIC SYMBOL NAME VAL ---------------------- eNF 0000 xISRSTART 0000 eSN 0002 CTRLC 0003 eRG 0004 SER_EMPTYSIZE 0005 eOD 0006 CTRLG 0007 BKSP 0008 eFC 0008 eOF 000A LF 000A CS 000C eOM 000C CR 000D eUL 000E CTRLO 000F eBS 0010 CTRLQ 0011 CTRLR 0012 eDD 0012 CTRLS 0013 eDZ 0014 CTRLU 0015 eID 0016 eTM 0018 eOS 001A ESC 001B eLS 001C eST 001E eCN 0020 eUF 0022 eMO 0024 eHX 0026 eBN 0028 SER_FULLSIZE 0030 SER_BUFFERSIZE 003F xWSOFFSET 0045 DEL 007F SIO_CONTROL 0080 tEND 0080 SIO_DATA 0081 tFOR 0081 tDATA 0083 tGOTO 0088 tGOSUB 008C tREM 008E RTS_LOW 0096 tPRINT 009E tNEW 00A4 tTAB 00A5 tTO 00A6 tFN 00A7 tSPC 00A8 tTHEN 00A9 tNOT 00AA tSTEP 00AB tPLUS 00AC tMINUS 00AD tTIMES 00AE tDIV 00AF tOR 00B2 tGTH 00B3 tEQUAL 00B4 tLTH 00B5 tSGN 00B6 tPOINT 00C7 tLEFT 00CF RTS_HIGH 00D6 xTMPSTACKOS 00ED xBASICSTART 0150 DISP_ZBYTE 0499 xROMSIZE 2000 SER_BUFFER 8000 xRAMSTART 8000 SER_INPOINTER 803F SER_RDPOINTER 8041 SER_BUFFERUSED 8043 BASICSTARTED 8044 WS 8045 wWARMSTART 8045 wUSRFUNCT 8048 wOUTSUB 804B wOUTPORT 804C wDIVSUPPORT 804E wDIV1 804F wDIV2 8053 wDIV3 8057 wDIV4 805A wSEED 805C wLASTRANDOM 807F wINSUB 8083 wINPORT 8084 wNULLS 8086 wTERMWIDTH 8087 wCOMMAWIDTH 8088 wNULLFLAG 8089 wCTRLOFLAG 808A wLINECOUNTER 808B wLINENUMBER 808D wCHECKSUM 808F wNMIFLAG 8091 wBREAKFLAG 8092 wRINPUT 8093 wPOINT 8096 wSET 8099 wRESET 809C wSTRINGSPACE 809F wTHISLINE 80A1 wBASTXTBEG 80A3 wBUFFER 80A6 wSTACK 80AB TEMPSTACK 80ED wCURSORPOS 80F0 wLCRFLAG 80F1 wDATATYPE 80F2 wDATAFLAG 80F3 wLASTRAM 80F4 wTMPSTRPTR 80F6 wTMPSTRPOOL 80F8 wTMPSTRING 8104 wSTRINGBOTTOM 8108 wTHISOPERATOR 810A wLOOPSTART 810C wDATALINE 810E wFORFLAG 8110 wLASTBYTEIN 8111 wREADFLAG 8112 wBREAKLINE 8113 wNEXTOPERATOR 8115 wERRORLINE 8117 wCONTINUEADDR 8119 wPROGRAMEND 811B wVARIABLESEND 811D wARRAYSEND 811F wNEXTDATA 8121 wFUNCTARGNAME 8123 wFUNCTNARG 8125 wFLOATMAN 8129 wFLOATEXP 812C wSIGNRESULT 812D wPRINTBUFF 812E wMULTVALUE 813B wPROGRAMBEG 813E wMEMTESTBEG 81A2 MEMORY USEAGE ---------------------- First Address 0x0000 Last Address: 0x1DB2 Bytes used: 0x1D7C ROM Holes: 0x0037 ---------------------- First Address: 00000 Last Address: 07602 Bytes used: 07548 ROM Holes: 00055 ----------------------