0000 .ORG 0 0000 .BINTO $FFF 0000 ; % MONITOR FUER Z8000 0000 ; % RDK 1980-03-06 0000 00 00 DW $0000 ; WORD: 0; 0002 40 00 DW $4000 ; WORD: 4000H; % FCW RESET 0004 00 10 DW $0010 ; WORD: START1; % PC RESET 0006 00 00 DW $0000 ; WORD: 0; 0008 40 00 DW $4000 ; WORD: 4000H % PSEUDO CODE 000A 02 B8 DW $02B8 ; WORD: PSEUDO; 000C 40 00 DW $4000 ; WORD: 4000H; 000E 02 E0 DW $02E0 ; WORD: SYSCALL; % SYSTEM CALL 0010 START1: 0010 21 0F 1F FE DW $210F,$1FFE ; LD R15,#1FFE; % SYSTEM SP 0014 21 01 00 00 DW $2101,$0000 ; LD R1,0; % FCW INIT 0018 6F 01 1E 20 DW $6F01,$1E20 ; LD FCWSTO,R1; % NORM MODE 001C 21 01 1F 00 DW $2101,$1F00 ; LD R1,1F00H; % USER STACK 0020 6F 01 1E 1E DW $6F01,$1E1E ; LD REGSTO(30),R1; 0024 21 01 00 98 DW $2101,$0098 ; LD R1,98H; 0028 3B 16 FF 06 DW $3B16,$FF06 ; OUT $FF06,R1; % INIT UART 002C 21 01 00 0B DW $2101,$000B ; LD R1,0BH; 0030 3B 16 FF 04 DW $3B16,$FF04 ; OUT #FFF0,R1; 0034 21 01 00 0D DW $2101,$000D ; LD R1,0DH; % TESTAUSGABE UART 0038 3B 16 FF 00 DW $3B16,$FF00 ; OUT #FF00,R1; % OK NUN INIT SP ETC 003C 21 01 00 00 DW $2101,$0000 ; LD R1,0; 0040 7D 1D DW $7D1D ; LDCTL PSAPOFF,R1; 0042 21 01 17 FE DW $2101,$17FE ; LD R1,#17FE; 0046 7D 1F DW $7D1F ; LDCTL NSPOFF,R1; % STACK LADEN 0048 LOOP: 0048 DE FA DW $DEFA ; CALR SPACE; 004A DE FB DW $DEFB ; CALR SPACE; 004C 76 03 02 72 DW $7603,$0272 ; LD R3,^TXT1; 0050 DE FA DW $DEFA ; CALR PRINT11; 0052 LOOPMAIN: 0052 21 01 00 3E DW $2101,$003E ; LD R1,">"; 0056 DE 64 DW $DE64 ; CALR CO; 0058 DF 0B DW $DF0B ; CALR ECHO; % IN R1 ZEICHEN 005A 0B 01 00 4C DW $0B01,$004C ; CP R1,"L"; % LOAD 005E 5E 06 00 9C DW $5E06,$009C ; JP ZR,LADEN; 0062 0B 01 00 42 DW $0B01,$0042 ; CP R1,"B"; % BASIC STARTEN 0066 5E 06 0B 66 DW $5E06,$0B66 ; JP ZR,START; 006A 0B 01 00 4E DW $0B01,$004E ; CP R1,"N"; 006E 5E 06 04 8C DW $5E06,$048C ; JP ZR,RSTART; 0072 0B 01 00 44 DW $0B01,$0044 ; CP R1,"D"; % DISPLAY A TO B 0076 5E 06 01 90 DW $5E06,$0190 ; JP ZR,DISPLAY; 007A 0B 01 00 45 DW $0B01,$0045 ; CP R1,"E"; % ENTER 007E 5E 06 01 B8 DW $5E06,$01B8 ; JP ZR,ENTER; 0082 0B 01 00 47 DW $0B01,$0047 ; CP R1,"G"; % GO 0086 5E 06 00 E2 DW $5E06,$00E2 ; JP ZR,GO; 008A 0B 01 00 52 DW $0B01,$0052 ; CP R1,"R"; 008E 5E 06 00 F4 DW $5E06,$00F4 ; JP ZR,REGISTER; 0092 21 01 00 3F DW $2101,$003F ; CP R1,"?"; 0096 DE 84 DW $DE84 ; CALR CO; 0098 DF 52 DW $DF52 ; CALR CRLF111; 009A E8 DB DW $E8DB ; JR LOOPMAIN; 009C ; % EINZELNE BEFEHLE 009C ; 009C ; LADEN: % LADEN BINAER 009C ; % NACH ADR EXPR 009C DF 4D DW $DF4D ; CALR EXPR11; % RS ADDRESSE 009E ; % WARTEN NULL FF FOLGE 009E LPLAD1: 009E DE 92 DW $DE92 ; CALR CI; 00A0 0B 01 00 00 DW $0B01,$0000 ; CP R1,0; 00A4 EE FC DW $EEFC ; JR NZ,LPLAD1; 00A6 LPLAD2: 00A6 DE 96 DW $DE96 ; CALR CI; 00A8 0B 01 00 FF DW $0B01,$00FF ; CP R1,0FFH; 00AC 5E 0E 00 A6 DW $5E0E,$00A6 ; JP NZ,LPLAD2; 00B0 LPLAD3: 00B0 DE 9B DW $DE9B ; CALR CI; 00B2 0B 01 00 FF DW $0B01,$00FF ; CP R1,0FFH; 00B6 5E 06 00 B0 DW $5E06,$00B0 ; JP ZR,LPLADB; 00BA 0B 01 00 00 DW $0B01,$0000 ; CP R1,0; 00BE 5E 0E 00 9E DW $5E0E,$009E ; JP NZ,LPLAD1; % FEHLER 00C2 ; % LAENGE FIRST 00C2 ; % 0 FF FF FF 0 LL LH DATA 00C2 DE A4 DW $DEA4 ; CALR CI; 00C4 A0 9E DW $A09E ; LDB RL6,RL1; 00C6 DE A6 DW $DEA6 ; CALR CI; 00C8 A0 96 DW $A096 ; LDB RH6,RL1; 00CA MLPLAD: 00CA DE A8 DW $DEA8 ; CALR CI; 00CC 2E 59 DW $2E59 ; LDB R5^,RL1; 00CE A9 50 DW $A950 ; INC R5,1; 00D0 AB 60 DW $AB60 ; DEC R6,1; 00D2 5E 0E 00 CA DW $5E0E,$00CA ; JP NZ,MLPLAD; 00D6 DF 71 DW $DF71 ; CALR CRLF111; 00D8 A1 51 DW $A151 ; LD R1,R5; 00DA DF 4F DW $DF4F ; CALR PRRISP; 00DC DF 74 DW $DF74 ; CALR CRLF111; 00DE 5E 08 00 52 DW $5E08,$0052 ; JP LOOPMAIN; 00E2 ; 00E2 ; 00E2 ; 00E2 GO: 00E2 DF 70 DW $DF70 ; CALR EXPR11; 00E4 A1 5E DW $A15E ; LD R14,RS; 00E6 61 01 1E 20 DW $6101,$1E20 ; LD R1,FCWSTO; 00EA 7D 1A DW $7D1A ; LDCTL FCW,R1 % FCW LADEN!!! 00EC 5C 01 00 0D 1E 00 DW $5C01,$000D,$1E00 ; LDM R0,REGSTO,14; % NUR R0 BIS R13 !! 00F2 1E E8 DW $1EE8 ; JP R14^; 00F4 REGISTER: 00F4 ; $%NICHT ALLE GUELTIG % NICHT ALLE GUELTIG 00F4 ; $%FALLS NICHT DIRECT % FALLS NICHT DIRECT 00F4 ; $%ZU REG SPRG % ZU REG SPRG 00F4 DF 80 DW $DF80 ; CALR CRLF111; % REGST0 AUSG. 0 BIS 15 00F6 76 03 01 EE DW $7603,$01EE ; LD R3,^TXTFCW; 00FA DF 4F DW $dF4F ; CALR PRINT11; 00FC 61 01 1E 20 DW $6101,$1E20 ; LD R1,FCWSTO, 0100 DF 62 DW $DF62 ; CALR PRR1SP; 0102 DF 87 DW $DF87 ; CALR CRLF111; 0104 76 03 01 3C DW $7603,$013C ; LD R3,^TXT2; 0108 DF 56 DW $DF56 ; CALR PRINT11; 010A 76 04 1E 00 DW $7604,$1E00 ; LD R4,^REGST0; 010E 21 05 00 08 DW $2105,$0008 ; LD R5,8; 0112 LOPA: 0112 21 41 DW $2141 ; LD R1,R4^; % REGS 0114 DF 6C DW $DF6C ; CALR PRR1SP, 0116 A9 41 DW $A941 ; INC R4,2; 0118 AB 50 DW $AB50 ; DEC R5,15 011A EE FB DW $EEFB ; JR NZ,LOPA; 011C 93 F4 DW $93F4 ; PUSH R15^,R4; 011E DF 95 DW $DF95 ; CALR CRLF111; 0120 76 03 01 66 DW $7603,$0166 ; LD R3,^TXT3; 0124 DF 64 DW $DF64 ; CALR PRINT11; 0126 97 F4 DW $97F4 ; POP R4,R15^; 0128 21 05 00 08 DW $2105,$0008 ; LD R5,8; 012C LOPB: 012C 21 41 DW $2141 ; LD R1,R4^; 012E DF 79 DW $DF79 ; CALR PRRISP; 0130 A9 41 DW $A941 ; INC R4,2; 0132 AB 50 DW $AB50 ; DEC R5,1; 0134 EE FB DW $EEFB ; JR NZ,LOPB; 0136 DF A1 DW $DFA1 ; CALR CRLF111; 0138 5E 08 00 52 DW $5E08,$0052 ; JP LOOPMAIN; 013C ; 013C ; 013C TXT2: 013C 52 30 20 20 20 52 DW $5230,$2020,$2052 ; WORD: "R1 R2 R3 R4 R5 R6 R7 "; 0142 31 20 20 20 52 32 DW $3120,$2020,$5232 ; 0148 20 20 20 52 33 20 DW $2020,$2052,$3320 ; 014E 20 20 52 34 20 20 DW $2020,$5234,$2020 ; 0154 20 52 35 20 20 20 DW $2052,$3520,$2020 ; 015A 52 36 20 20 20 52 DW $5236,$2020,$2052 ; 0160 37 20 DW $3720 ; 0162 0D 0A DW $0D0A ; WORD: 0D0AH; 0164 00 00 DW $0000 ; WORD: 0; 0166 TXT3: 0166 52 38 20 20 20 52 DW $5238,$2020,$2052 ; WORD: "R8 R9 R10 R11 R12 R13 R14 R15"; 016C 39 20 20 20 52 31 DW $3920,$2020,$5231 ; 0172 30 20 20 52 31 31 DW $3020,$2052,$3131 ; 0178 20 20 52 31 32 20 DW $2020,$5231,$3220 ; 017E 20 52 31 33 20 20 DW $2052,$3133,$2020 ; 0184 52 31 34 20 20 52 DW $5231,$3420,$2052 ; 018A 31 35 DW $3135 ; 018C 0D 0A DW $0D0A ; WORD: 0D0AH; 018E 00 00 DW $0000 ; WORD: 0; 0190 ; 0190 DISPLAY: ; % A TO B 0190 DF C7 DW $DFC7 ; CALR EXPFCL1; % IN R5 IST PARAM 1 0192 A1 56 DW $A156 ; LD R6,R5; 0194 DF C9 DW $DFC9 ; CALR EXPR11; % R6 ANFADR R5 ENDADR 0196 DF D1 DW $DFD1 ; CALR CRLF111; 0198 MLOOP1: 0198 A1 61 DW $A161 ; LD R1,R6; 019A DF AF DW $DFAF ; CALR PRRISP 019C DF A4 DW $DFA4 ; CALR SPACE; 019E 21 03 00 08 DW $2103,$0008 ; LD R3,8; % ACHT WERTE PRO ZEILE 01A2 MLOOP2: 01A2 21 61 DW $2161 ; LD R1,R6^; 01A4 DF B4 DW $DFB4 ; CALR PRFLISP; 01A6 A9 61 DW $A961 ; INC R6,2; % WORD 01A8 AB 30 DW $AB30 ; DEC R3,1; 01AA EE FB DW $EEFB ; JR NZ,MLOOP2; % ACHTMAL 01AC DF DC DW $DFDC ; CALR CRLF111; 01AE 8B 65 DW $8B65 ; CP R5,R6; % BEI CARRY STOP 01B0 EF F3 DW $EFF3 ; JR NC,MLOOP1; 01B2 DF DF DW $DFDF ; CALR CRLF111; 01B4 5E 0B 00 52 DW $5E0B,$0052 ; JP LOOPMAIN; 01B8 ; 01B8 ; ; ENTER ADR A,CR ENDE -, 01B8 ENTER: 01B8 DF DB DW $DFDB ; CALR EXPR11; 01BA A1 56 DW $A156 ; LD R6,R5; % R6 IST ADR COUNTER 01BC ELOOP: 01BC A1 61 DW $A161 ; LD R1,R6; % ADR AUSGEBEN 01BE DF C1 DW $DFC1 ; CALR PRRISP; 01C0 DF B6 DW $DFB6 ; CALR SPACE; 01C2 21 61 DW $2161 ; LD R1,R6^; % INHALT 01C4 DF C4 DW $DFC4 ; CALR PRRISP; 01C6 DF E2 DW $DFE2 ; CALR EXPR11; % WERT HOLEN 01C8 0B 02 00 2D DW $0B02,$002D ; CP R2,"-"; 01CC E6 0D DW $E60D ; JR ZR,MINUS; 01CE 0B 02 00 2C DW $0B02,$002C ; CP R2,"."; % MON MODIFY 01D2 E6 05 DW $E605 ; JR ZR,C0NTSK; % SKIP STORE 01D4 0B 02 00 20 DW $0B02,$0020 ; CP R2,1; 01D8 5E 0E 00 52 DW $5E0E,$0052 ; JP NZ,L0OPMAIN; 01DC 2F 65 DW $2F65 ; LD R6^,R5; % ABBSPEICHERN 01DE CONTSFC: 01DE 21 61 DW $2161 ; LD R1,R6^; 01E0 DF AB DW $DFAB ; CALR PRTR1; 01E2 DF F7 DW $DFF7 ; CALR CRLF111; 01E4 A9 61 DW $A961 ; INC R6,2; % WORD 01E6 E8 EA DW $E8EA ; JR ELOOP; 01E8 MINUS: 01E8 DF FA DW $DFFA ; CALR CRLF111; 01EA AB 61 DW $AB61 ; DEC R6,2; 01EC E8 E7 DW $E8E7 ; JR ELOOP; 01EE TXTFCW: 01EE 46 43 57 20 3A 20 DW $4643,$5720,$3A20 ; WORD: "FCW : "; 01F4 00 00 DW $0000 ; WORD: 0; 01F6 ; 01F6 CRLF111: 01F6 21 01 00 0D DW $2101,$000D ; LD R1,0DH; 01FA DF 36 DW $DF36 ; CALR CO; 01FC 21 01 00 0A DW $2101,$000A ; LD R1,0AH; 0200 5E 08 03 90 DW $5E08,$0390 ; JP CO; 0204 ; 0204 EXPR11: ; % GET 16BIT INTO R5 0204 21 05 00 00 DW $2105,$0000 ; LD R5,0; 0208 EX00: 0208 DF E3 DW $DFE3 ; CALR ECHO; % GET CHAR TO R1 020A EXIT: 020A DF FB DW $DFFB ; CALR NIBBLE; % WANDELN 020C E7 17 DW $E717 ; JR CY,EX22; % TERMINATOR IN R1 020E B3 59 00 04 DW $B359,$0004 ; SLA R5,4; 0212 85 15 DW $8515 ; OR R5,R1; % R1 OR R5->R5 0214 E8 F9 DW $E8F9 ; JR EX00; 0216 NIBBLE: 0216 07 01 00 FF DW $0701,$00FF ; AND R1,0FFH; 021A A1 12 DW $A112 ; LD R2,R1; % RETTEN 021C 03 01 00 30 DW $0301,$0030 ; SUB R1,"0"; 0220 9E 07 DW $9E07 ; RET CY; 0222 0B 01 00 17 DW $0B01,$0017 ; CP R1,"G"-"0"; 0226 8D 85 DW $8D85 ; COMFLG CY; 0228 9E 07 DW $9E07 ; RET CY; 022A 0B 01 00 0A DW $0B01,$000A ; CP R1,10; 022E 8D 85 DW $8D85 ; COMFLG CY; 0230 9E 0F DW $9E0F ; RET NC; 0232 03 01 00 07 DW $0301,$0007 ; SUB R1,"A"-"9"-1; 0236 0B 01 00 0A DW $0B01,$000A ; CP R1,10; 023A 9E 08 DW $9E08 ; RET; 023C EX22: 023C 9E 08 DW $9E08 ; RET; 023E ; 023E PRRISP: 023E DF DA DW $DFDA ; CALR PRTR1; 0240 5E 08 02 56 DW $5E08,$0256 ; JP SPACE; 0244 ; 0244 ECHO: 0244 DF 65 DW $DF65 ; CALR CI; 0246 DF 5C DW $DF5C ; CALR CO; 0248 0A 09 0D 0D DW $0A09,$0D0D ; CPB RL1,0DH; 024C 9E 0E DW $9E0E ; RET NZ; 024E 21 01 00 0A DW $2101,$000A ; LD R1,0AH; 0252 5E 08 03 90 DW $5E08,$0390 ; JP CO; 0256 ; 0256 ; 0256 SPACE: 0256 21 01 00 20 DW $2101,$0020 ; LD R1," "; 025A 5E 08 03 90 DW $5E08,$0390 ; JP CO; 025E ; 025E ; % PRINT11 (R3) DRK BIS 0 025E PRIN11: 025E 21 34 DW $2134 ; LD R4,R3^; % LOAD 2 BYTES 0260 0B 04 00 00 DW $0B04,$0000 ; CP R4,0; 0264 9E 06 DW $9E06 ; RET ZR; % ZERO DANN ENDE 0266 A0 49 DW $A049 ; LDB RL1,RH4; 0268 DF 6D DW $DF6D ; CALR CO; 026A A0 C9 DW $A0C9 ; LDB RL1,RL4; 026C DF 6F DW $DF6F ; CALR CO; 026E A9 31 DW $A931 ; INC R3,2; 0270 E8 F6 DW $E8F6 ; JR PRINT11; 0272 TXT1: 0272 5A 38 30 30 30 20 DW $5A38,$3030,$3020 ; WORD: "Z8000 RDK MONITOR. 1.0"; 0278 52 44 4B 20 4D 4F DW $5244,$4B20,$4D4F ; 027E 4E 49 54 4F 52 20 DW $4E49,$544F,$5220 ; 0284 31 2E 30 20 DW $312E,$3020 ; 0288 0D 0A DW $0D0A ; WORD: 0D0AH; 028A 00 00 DW $0000 ; WORD: 0; 028C ; PRTR1: % DRUCKE R1 AUS 028C ; % SEDEZIMAL 028C ; 028C 93 F1 DW $93F1 ; PUSH R15^,R1; 028E A0 19 DW $A019 ; LDB RL1,RH1; % FIRST HIGH 0290 DF FD DW $DFFD ; CALR NMOLIT; 0292 97 F1 DW $97F1 ; POP R1,R15^; 0294 DF FF DW $DFFF ; CALR NMOUT; 0296 9E 08 DW $9E08 ; RET; 0298 ; 0298 NMOUT: 0298 93 F1 DW $93F1 ; PUSH R15^,R1; 029A B2 96 DW $B296 ; RRB RL1,2; 029C B2 96 DW $B296 ; RRB RL1,2; 029E DF FF DW $DFFF ; CALR OUTCH; 02A0 97 F1 DW $97F1 ; POP R1,R15^; 02A2 ; 02A2 07 01 00 0F DW $0701,$000F ; AND RL1,0FH; 02A6 01 01 00 30 DW $0101,$0030 ; ADD R1,"0"; 02AA 0B 01 00 3A DW $0B01,$003A ; CP R1,"9"+1; 02AE E7 02 DW $E702 ; JR CY,OUTCH; 02B0 01 01 00 07 DW $0101,$0007 ; ADD R1,"A"-"9"-1; 02B4 OUTCH: 02B4 5E 08 03 90 DW $5E08,$0390 ; JP CO; 02B8 ; 02B8 ; 02B8 PSEUDO: 02B8 57 F0 1E 24 DW $57F0,$1E24 ; POP INSTRW,R15^; 02BC 57 F0 1E 20 DW $57F0,$1E20 ; POP FCWST0,R15^; 02C0 57 F0 1E 22 DW $57F0,$1E22 ; POP PCBT0,R15^; 02C4 76 03 03 62 DW $7603,$0362 ; LD R3,^TXTPS; 02C8 D0 36 DW $D036 ; CALR PRINT11; 02CA 61 01 1E 24 DW $6101,$1E24 ; LD R1,INSTRW; 02CE D0 49 DW $D049 ; CALR PRRISP; 02D0 61 01 1E 22 DW $6101,$1E22 ; LD R1,PCSTO; 02D4 AB 11 DW $AB11 ; DEC R1,2; % GENAUER STAND 02D6 5F 00 02 3E DW $5F00,$023E ; CALL PRRISP; 02DA D0 73 DW $D073 ; CALR CRLF11; 02DC 5E 08 00 52 DW $5E08,$0052 ; JP LOOPMAIN; 02E0 SYSCALL: 02E0 5C 09 00 0F 1E 00 DW $5C09,$000F,$1E00 ; LDM REGSTO,R0,16; % SAVE REGS 02E6 97 F2 DW $97F2 ; POP R2,0FFH; % IDENT 02E8 07 02 00 FF DW $0702,$00FF ; AND R2,0FFH; 02EC 57 F0 1E 20 DW $57F0,$1E20 ; POP FCWST0,R15^; % DIREKT 02F0 57 F0 1E 22 DW $57F0,$1E22 ; POP PCSTO,R1,R15^; % ADR NORM/SYS 02F4 0B 02 00 01 DW $0B02,$0001 ; CP R2,1; % CI NACH R1 02F8 5E 0E 03 00 DW $5E0E,$0300 ; JP NZ,SK1; 02FC DF C1 DW $DFC1 ; CALR CIS 02FE E8 20 DW $E820 ; JR FINA; 0300 SK1: 0300 0B 02 00 02 DW $0B02,$0002 ; CP R2,2; % CO VON R1 0304 EE 02 DW $EE02 ; JR NZ,SK2; 0306 DF BC DW $DFBC ; CALR CO; 0308 E8 1B DW $E81B ; JR FINA; 030A SK2: 030A 0B 02 00 03 DW $0B02,$0003 ; CP R2,3; 030E EE 02 DW $EE02 ; JR NZ,SK3 0310 DF D0 DW $DFD0 ; CALR CSTSA; 0312 E8 16 DW $E816 ; JR FINA; 0314 SK3: 0314 0B 02 00 FF DW $0B02,$00FF ; CP R2,255; % TRAP 0318 5E 06 00 F4 DW $5E06,$00F4 ; JP ZR,REGISTER; 031C 0B 02 00 00 DW $0B02,$0000 ; CP R2,0 % RSTART 0320 5E 06 00 52 DW $5E06,$0052 ; JP ZR,LOOPMAIN; 0324 93 F2 DW $93F2 ; PUSH R15^,R2; 0326 76 03 03 50 DW $7603,$0350 ; LD R3,^TXTBR; 032A D0 67 DW $D067 ; CALR PRINT11; 032C 97 F2 DW $97F2 ; POP R2,R15^; 032E A1 21 DW $A121 ; LD R1,R2; 0330 D0 7A DW $D07A ; CALR PRRISP; 0332 61 01 1E 22 DW $6101,$1E22 ; LD R1,PCST0; 0336 AB 11 DW $AB11 ; DEC R1,R2; % GENAUER STAND 0338 D0 7E DW $D07E ; CALR PRRISP; 033A D0 A3 DW $D0A3 ; CALR CRLF111; 033C 5E 08 00 52 DW $5E08,$0052 ; JP LOOPMAIN; 0340 FINA: 0340 61 00 1E 20 DW $6100,$1E20 ; LD R0,FCWSTO; 0344 7D 0A DW $7D0A ; LDCTL FCW,R0; 0346 61 00 1E 00 DW $6100,$1E00 ; LD R0,REGSTO; % HIER R0 ZURUECK 034A 53 F0 1E 22 DW $53F0,$1E22 ; PUSH R15^,PCST0; % AUF NORM STK 034E 93 08 DW $9308 ; RET; % ODER SYS 0350 ; 0350 ; 0350 TXTBR: 0350 2A 53 95 53 20 45 DW $2A53,$9553,$2045 ; WORD: "*SYS ERR NR AT "; 0356 52 52 20 4E 52 20 DW $5252,$204E,$5220 ; 035C 41 54 20 20 DW $4154,$2020 ; 0; 0360 00 00 DW $000 ; WORD: 0362 TXTPSX: 0362 2A 50 53 20 49 4E DW $2A50,$5320,$494E ; WORD: "*PS INSTR AT "; 0368 53 54 52 20 41 64 DW $5354,$5220,$4164 ; 036E 20 20 DW $2020 ; 0370 00 00 DW $0000 ; WORD: 0; 0372 ; 0372 ; 0372 ; 0372 ; 0372 CSTSA: 0372 3B 14 FF 02 DW $3B14,$FF02 ; IN R1,#FF02; 0376 07 01 00 08 DW $0701,$0008 ; AND R1,8; 037A 9E 08 DW $9E08 ; RET; % ZERO FALLS KEIN ZEICHEN 037C ; 037C CI: ; % R1,TEMP 037C 3B 14 FF 02 DW $3B14,$FF02 ; IN R1,#FF02; 0380 07 01 00 08 DW $0701,$0008 ; AND R1,8; 0384 E6 FB DW $E6FB ; JR ZR,CI; 0386 3B 14 FF 00 DW $3B14,$FF00 ; IN R1,#FF00; 038A 07 01 00 FF DW $0701,$00FF ; AND R1,0FFH; % PAR NEC ETC 038E 9E 08 DW $9E08 ; RET ; 0390 ; 0390 CO: 0390 93 F2 DW $93F2 ; PUSH R15^,R2; 0392 CO1: 0392 3B 24 FF 02 DW $3B24,$FF02 ; IN R2,#FF02; 0396 07 02 00 10 DW $0702,$0010 ; AND R2,#10; 039A E6 FB DW $E6FB ; JR ZR,C01; 039C 97 F2 DW $97F2 ; POP R2,R15^; 039E 3B 16 FF 00 DW $3B16,$FF00 ; OUT #FF00,R1; 03A2 9E 08 DW $9E08 ; RET; 03A4 ; 03A4 ; %***************************** 03A4 ; % RDKBASIC FUER Z8000 * 03A4 ; % 1980-03-02 V 1 . 0 * 03A4 ; % COPYRIGHT 1980 * 03A4 ; % BY ROLF-DIETER KLEIN * 03A4 ; %***************************** 03A4 ; 03A4 ; % DEFINITIONEN 03A4 ; % R1 IST AKKU 03A4 ; % R4 IST HL 03A4 ; % R5 IST DE 03A4 ; % R6 IST BC 03A4 ; 03A4 5E 08 0B 66 DW $5E08,$0B66 ; JP START; 03A8 7F 01 DW $7F01 ; CI11: SC 1; 03AA 9E 08 DW $9E08 ; RET; 03AC 7F 02 DW $7F02 ; SC 2; 03AE 9E 08 DW $9E08 ; RET; 03B0 CSTS: 03B0 7F 03 DW $7F03 ; SC 3; 03B2 9E 08 DW $9E08 ; RET; 03B4 ; 03B4 COMP: 03B4 ; % HL MIT DE MGL 03B4 8B 54 DW $8B54 ; CP R4,R5; 03B6 9E 08 DW $9E08 ; RET; 03B8 ; 03B8 IGNB: 03B8 20 59 DW $2059 ; LDB RL1,R5^; 03BA 0A 09 20 20 DW $0A09,$2020 ; CPB RL1," "; 03BE 9E 0E DW $9E0E ; RET NZ; 03C0 A9 50 DW $A950 ; INC R5,1: 03C2 E8 FA DW $E8FA ; JR IGNB; % BYTE ZUGRIFF 03C4 ; 03C4 FINI: 03C4 97 F1 DW $97F1 ; POP R1,RI5^; % DUMMY 03C6 DD 40 DW $DD40 ; CALR FIN; 03C8 5E 08 09 6A DW $5E08,$096A ; JP QWHAT; 03CC ; 03CC TSTV: 03CC D0 0B DW $D00B ; CALR IGNB; 03CE 02 09 40 40 DW $0209,$4040 ; SUBB RL1,4OH; 03D2 9E 07 DW $9E07 ; RET CY; 03D4 EE 10 DW $EE10 ; JR NZ,TV1; 03D6 A9 50 DW $A950 ; INC R5,1; % BYTE 03D8 DD A4 DW $DDA4 ; CALR PARN; 03DA 81 44 DW $8144 ; ADD R4,R4; 03DC 5E 07 04 64 DW $5E07,$0464 ; JP CY,QHOW; 03E0 93 F5 DW $93F5 ; PUSH R15^,R5; 03E2 AD 45 DW $AD45 ; EX R5,R4; 03E4 ; 03E4 DD 7C DW $DD7C ; CALR SIZE; 03E6 8B 54 DW $8B54 ; CP FH,RS; 03E8 5E 07 09 AC DW $5E07,$09AC ; JP CY,QSORRY 03EC 61 04 12 16 DW $6104,$1216 ; LD R4,TXTXEND; 03F0 83 54 DW $8354 ; SUB R4,R5; 03F2 97 F5 DW $97F5 ; POP RS,R15^; 03F4 9E 08 DW $9E08 ; RET ; 03F6 ; 03F6 TV1: 03F6 0A 09 1B 1B DW $0A09,$1B1B ; CPB RL1,1BH; 03FA 8D 85 DW $8D85 ; COMFLG CY; 03FC 9E 07 DW $9E07 ; RET CY; 03FE A9 50 DW $A950 ; INC R5,1; 0400 76 04 11 DA DW $7604,$11DA ; LD R4,^VARBGN; 0404 C1 00 DW $C100 ; LDB RH1,0; 0406 B3 18 DW $B318 ; RLC R1,1; 0408 81 14 DW $8114 ; ADD R4,R1; 040A 9E 08 DW $9E08 ; RET; 040C TSTC: 040C 2D F4 DW $2DF4 ; EX R4,R15^; 040E D0 2C DW $D02C ; CALR IGNB; 0410 0A 49 DW $0A49 ; CPB RL1,R4^; 0412 E6 08 DW $E608 ; JR ZR,TC3; 0414 A9 41 DW $A941 ; INC R4,2; 0416 21 44 DW $2144 ; LD R4,R4^; 0418 AB 41 DW $AB41 ; DEC R4,2; 041A ; % ZACHTLING DISLP BYTE ADJ!!!! 041A AB 50 DW $AB50 ; DEC R5,1; 041C TC2: 041C A9 50 DW $A950 ; INC R5,1; 041E A9 41 DW $A941 ; INC R4,2; 0420 2D F4 DW $2DF4 ; EX R4,R15^; 0422 9E 08 DW $9E08 ; RET; 0424 TC3: 0424 A9 41 DW $A941 ; INC R4,2; 0426 E8 FA DW $E8FA ; JR TC2; 0428 ; 0428 TSTNUM: 0428 8D 48 DW $8D48 ; CLR R4; 042A C6 00 DW $C600 ; LDB RH6,0; 042C D0 3B DW $D03B ; CALR IGNB; 042E TN1: 042E 0A 09 30 30 DW $0A09,$3030 ; CPB RL1,"0"; 0432 9E 07 DW $9E07 ; RET CY; 0434 0A 09 3A 3A DW $0A09,$3A3A ; CPB RL1,3AH; 0438 9E 0F DW $9E0F ; RET NC; 043A C9 F0 DW $C9F0 ; LDB RL1,0F0H; 043C 86 49 DW $8649 ; ANDB RL1,RH4; 043E 5E 0E 04 64 DW $5E0E,$0464 ; JP NZ,QHOW; 0442 A8 60 DW $A860 ; INCB RH6,1; 0444 93 F6 DW $93F6 ; PUSH R15^,R6; 0446 A1 46 DW $A146 ; LD R6,R4; 0448 81 44 DW $8144 ; ADD R4,R4; 044A 81 44 DW $8144 ; ADD R4,R4; 044C 81 64 DW $8164 ; ADD R4,R6; 044E 81 44 DW $8144 ; ADD R4,R4; 0450 20 59 DW $2059 ; LDB RL1,R5^; 0452 A9 50 DW $A950 ; INC R5,1; 0454 ; 0454 06 09 0F 0F DW $0609,$0F0F ; ANDB RL1,0FH; 0458 C1 00 DW $C100 ; LDB RH1,0 045A 81 14 DW $8114 ; ADD R4,R1 045C 97 F6 DW $97F6 ; POP R6,R15^; 045E 20 59 DW $2059 ; LDB RL1,R5^; 0460 5E 0D 04 2E DW $5E0D,$042E ; JP PL,TN1; 0464 QHOW: 0464 93 F5 DW $93F5 ; PUSH R15^,R5; 0466 AHOW: 0466 76 05 04 6E DW $7605,$046E ; LD R5,^HOW; 046A 5E 08 09 70 DW $5E08,$0970 ; JP ERROR; 046E ; CONST CRLF1=0D0AH; 046E HOW: 046E 48 4F 57 3F DW $484F,$573F ; WORD: "HOW?"; 0472 0D 0A DW $0D0A ; WORD: CRLF1; 0474 OK: 0474 52 45 41 44 59 20 DW $5245,$4144,$5920 ; WORD: "READY"; 047A 0D 0A DW $0D0A ; WORD: CRLF1; 047C WHAT: 047C 57 48 41 54 3F 20 DW $5748,$4154,$3F20 ; WORD: "WHAT?"; 0482 0D 0A DW $0D0A ; WORD: CRLF1; 0484 SORRY: 0484 53 4F 52 52 59 20 DW $534F,$5252,$5920 ; WORD: "SORRY"; 048A 0D 0A DW $0D0A ; WORD: CRLF1; 048C ; 048C ; %*************************** 048C ; % HAUPTPR0GRAMM LIEST EINE * 048C ; % BENUTZERZEILE EIN * 048C ; % ************************** 048C ; 048C ; RSTART: 048C 76 0F 11 D8 DW $760F,$11D8 ; LD R15,^STACK; 0490 ; 0490 ST1: 0490 DC 76 DW $DC76 ; CALR CRLF; 0492 76 05 04 74 DW $7605,$0474 ; LD R5,^OK; 0496 C9 00 DW $C900 ; LDB RL1,0; 0498 DD 31 DW $DD31 ; CALR PRTSTG; 049A 76 04 04 A4 DW $7604,$04A4 ; LD R4,^ST2+2; % TRICK TO 0 049E 6F 04 10 08 DW $6F04,$1008 ; LD CURRNT,R4 04A2 ST2: 04A2 21 04 00 00 DW $2104,$0000 ; LD R4,0; 04A6 6F 04 10 10 DW $6F04,$1010 ; LD LOPVAR,R4; 04AA 6F 04 10 0A DW $6F04,$100A ; LD STKGOS,R4, 04AE ST3: 04AE C9 3E DW $C93E ; LDB RL1,">"; 04B0 DD 7E DW $DD7E ; CALR GETLN; 04B2 93 F5 DW $93F5 ; PUSH R15^,R5; 04B4 61 05 12 18 DW $6105,$1218 ; LD R5,BUFFER; 04B8 D0 49 DW $D049 ; CALR TSTNUM; 04BA D0 82 DW $D082 ; CALR IGNB; 04BC 97 F6 DW $97F6 ; POP R6,R15^; % STK 04BE 85 44 DW $8544 ; OR RR4,R4; 04C0 5E 06 0D 26 DW $5E06,$0D26 ; JP ZR,DIRECT; 04C4 AB 50 DW $AB50 ; DEC R5,1; 04C6 2E 54 DW $2E54 ; LDB R5^,RH4; 04C8 AB 50 DW $AB50 ; DEC R5,1; 04CA 2E 5C DW $2E5C ; LDB R5^,^RL4; 04CC 93 F6 DW $93F6 ; PUSH R15^,R6; 04CE 93 F5 DW $93F5 ; PUSH R15^,R5; 04D0 A0 E9 DW $A0E9 ; LDB RL1,RL6; 04D2 82 D9 DW $82D9 ; SUBB RL1,RL5; 04D4 93 F1 DW $93F1 ; PUSH R15^,R1 04D6 DD 6E DW $DD6E ; CALR FNDLN; 04D8 93 F5 DW $93F5 ; PUSH R15^,R5; 04DA ; 04DA EE 08 DW $EE08 ; JR NZ,ST4 04DC 93 F5 DW $93F5 ; PUSH R15^,R5; 04DE DD 5C DW $DD5C ; CALR FNDNXT; 04E0 97 F6 DW $97F6 ; POP R6,R15^; 04E2 61 04 10 1C DW $6104,$101C ; LD R4,TXTUNF; 04E6 DC F8 DW $DCF8 ; CALR MVUP; 04E8 6F 06 10 1C DW $6F06,$101C ; LD TXTUNF,R6; 04EC ST4: 04EC 97 F6 DW $97F6 ; POP R6,R15^; 04EE 61 04 10 1C DW $6104,$101C ; LD R4,TXTUNF; 04F2 97 F1 DW $97F1 ; POP R1,R15^; 04F4 93 F4 DW $93F4 ; PUSH R15^,R4; 04F6 0A 09 03 03 DW $0A09,$0303 ; CPB RL1,3; 04FA 5E 06 04 8C DW $5E06,$048C ; JP ZR,RSTART; 04FE C1 00 DW $C100 ; LDB RH1,0; 0500 81 14 DW $8114 ; ADD R4,R1; 0502 61 05 12 16 DW $6105,$1216 ; LD R5,TXTEND; 0506 8B 54 DW $8B54 ; CP R4,R5; 0508 5E 0F 04 84 DW $5E0F,$0484 ; JP NC,SORRY; 050C 6F 04 10 1C DW $6F04,$101C ; LD TXTUNF,R4; 0510 97 F5 DW $97F5 ; POP R5,R15^; 0512 DD 09 DW $DD09 ; CALR MOVDWN; 0514 97 F5 DW $97F5 ; POP R5,R15^; 0516 97 F4 DW $97F4 ; POP R4,R15^; 0518 DD 11 DW $DD11 ; CALR MVUP; 051A 5E 08 04 AE DW $5E08,$04AE ; JP ST3; 051E ; % MAKRO DEFINITION FUER TSTC 051E ; 051E ; MACRO 051E ; BEGIN TESTC CHAR,RELA; 051E ; CALR 051E ; BYTE; TSTC; 051E ; WORD: CHAR,CHAR; 051E ; END; RELA 051E ; 051E ; % *********************** 051E ; % NEW STOP RUN GOTO UPR 051E ; % *********************** * 051E ; 051E NEW: 051E DD DF DW $DDDF ; CALR ENDCHK; 0520 76 04 12 1C DW $7604,$121C ; LD R4,^TXTBGN; 0524 6F 04 10 1C DW $6F04,$101C ; LD TXTUNF,R4; 0528 STOP: 0528 DD E4 DW $DDE4 ; CALR ENDCHK; 052A 5E 08 04 8C DW $5E08,$048C ; JP RSTART; 052E RUN: 052E DD E7 DW $DDE7 ; CALR ENDCHK; 0530 76 05 12 1C DW $7605,$121C ; LD R5,^TXTBGN; 0534 RUNNXL: 0534 8D 48 DW $8D48 ; CLR R4 0536 DD 99 DW $DD99 ; CALR FNDLP; 0538 5E 07 04 8C DW $5E07,$048C ; JP CY,RSTART; 053C RUNTSL: 053C 6F 05 10 08 DW $6F05,$1008 ; LD CURRENT,R5; 0540 A9 51 DW $A951 ; INC R5,2; % !!!!! 0542 RUNSML: 0542 DB 0E DW $DB0E ; CALR CONT; 0544 76 04 0C 28 DW $7604,$0C28 ; LD R4.^TAB2-1; % ! 0548 5E 08 0D 2A DW $5E08,$0D2A ; JP EXEC; 054C GOTO: 054C DE EC DW $DEEC ; CALR EXPR; 054E 93 F5 DW $93F5 ; PUSH R15^,R5; 0550 DD F8 DW $DDF8 ; CALR ENDCHK; 0552 DD AC DW $DDAC ; CALR FNDLN; 0554 5E 0E 04 66 DW $5E0E,$0466 ; JP NZ,AHOW; 0558 97 F1 DW $97F1 ; POP R1,R15^, 055A E8 F0 DW $E8F0 ; JR RUNTSL; 055C ; % ***************** 055C ; % LIST PRINT LIPR * 055C ; % ***************** 055C ; 055C LIST1: 055C D0 9B DW $D09B ; CALR TSTNUM; 055E DD FF DW $DDFF ; CALR ENDCHK; 0560 DD B3 DW $DDB3 ; CALR FNDLN, 0562 LS1: 0562 5E 07 04 8C DW $5E07,$048C ; JP CY,RSTART; 0566 DD 43 DW $DD43 ; CALR PRTLN; 0568 DB 21 DW $DB21 ; CALR CONT; 056A DD B3 DW $DDB3 ; CALR FNDLP; 056C E8 FA DW $E8FA ; JR LSI; 056E PRINT: 056E CE 06 DW $CE06 ; LDB RL6,6; 0570 D0 B3 3B 3B 05 7C DW $D0B3,$3B3B,$057C ; TESTC ";",PR2; 0576 DC E9 DW $DCE9 ; CALR CRLF; 0578 5E 08 05 42 DW $5E08,$0542 ; JP RUNSML; 057C PR2: 057C D0 B9 0D 0D 05 88 DW $D0B9,$0D0D,$0588 ; TESTC 0DH,PRO; 0582 DC EF DW $DCEF ; CALR CRLF; 0584 5E 08 05 34 DW $5E08,$0534 ; JP RUNNXL ; 0588 PR0: 0588 D0 BF 23 23 05 96 DW $D0BF,$2323,$0596 ; TESTC "#",PR1 058E DF 0D DW $DF0D ; CALR EXPR; 0590 A0 CE DW $A0CE ; LDB RL6,RL4; 0592 5E 08 05 9A DW $5E08,$059A ; JP PR3; 0596 PR1: 0596 DD A6 DW $DDA6 ; CALR QTSTG; 0598 E8 07 DW $E807 ; JR PR8; 059A PR3: 059A D0 C8 2C 2C 05 A4 DW $D0C8,$2C2C,$05A4 ; TESTC ,,PR6; 05A0 DE 2D DW $DE2D ; CALR FIN; 05A2 E8 F2 DW $E8F2 ; JR PR0; 05A4 PR6: 05A4 DD 00 DW $DD00 ; CALR CRLF; 05A6 D0 F2 DW $D0F2 ; CALR FINI; 05A8 DF 1A DW $DF1A ; CALR EXPR; 05AA 93 F6 DW $93F6 ; PUSH R15^,R6; 05AC DD 8F DW $DD8F ; CALR PRTNUM; 05AE 97 F6 DW $97F6 ; POP R6,R15^; 05B0 5E 08 05 9A DW $5E08,$059A ; JP PR3; 05B4 ; 05B4 ; %******************* 05B4 ; % GOSUB RETURN UPR * 05B4 ; %******************* 05B4 GOSUB: 05B4 DD 42 DW $DD42 ; CALR PUSH1; 05B6 DF 21 DW $DF21 ; CALR EXPR; 05B8 93 F5 DW $93F5 ; PUSH R15^,R5; 05BA DD E0 DW $DDE0 ; CALR FNDLN; 05BC 5E 0E 04 66 DW $5E0E,$0466 ; JP NZ,AHOW 05C0 53 F0 10 08 DW $53F0,$1008 ; PUSH R15^,CURRNT; 05C4 53 F0 10 0A DW $53F0,$100A ; PUSH R15^,STKGOS; 05C8 4D 08 10 10 DW $4D08,$1010 ; CLR LOPVAR 05CC 6F 0F 10 0A DW $6F0F,$100A ; LD STKGOS,R15; 05D0 5E 08 05 3C DW $5E08,$053C ; JP RUNTSL; 05D4 ; 05D4 RETURN: 05D4 DE 3A DW $DE3A ; CALR ENDCHK; 05D6 61 04 10 0A DW $6104,$100A ; LD R4,STKGOS; 05DA 85 44 DW $8544 ; OR R4,R4; 05DC 5E 06 09 6A DW $5E06,$096A ; JP ZR,QWHAT; 05E0 A1 4F DW $A14F ; LD R15,R4; % !!! 05E2 57 F0 10 0A DW $57F0,$100A ; POP STKG0S,R15^; 05E6 57 F0 10 08 DW $57F0,$1008 ; POP CURRNT,R15-^; 05EA 97 F5 DW $97F5 ; POP R5,R15^; 05EC DD 6F DW $DD6F ; CALR POPA; 05EE D1 16 DW $D116 ; CALR FINI; 05F0 ; 05F0 ; 05F0 ; %xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 05F0 ; % FOR NEXT UPR * 05F0 ; %xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 05F0 FOR1: 05F0 DD 60 DW $DD60 ; CALR PUSHA; 05F2 DE 66 DW $DE66 ; CALR SETVAL; 05F4 AB 40 DW $AB40 ; DEC R4,R1 05F6 6F 04 10 10 DW $6F04,$1010 ; LD LOPVAR,R4; 05FA 76 04 0C F6 DW $7604,$0CF6 ; LD R4,^TAB5-1; 05FE 5E 08 0D 2A DW $5E08,$0D2A ; JP EXEC; 0602 FR1: 0602 DF 47 DW $DF47 ; CALR EXPR; 0604 6F 04 10 14 DW $6F04,$1014 ; LD LOPLMT,R4; 0608 76 04 0C FE DW $7604,$0CFE ; LD R4,^TAB6-1; 060C 5E 08 0D 2A DW $5E08,$0D2A ; JP EXEC; 0610 FR2: 0610 DF 4E DW $DF4E ; CALR EXPR; 0612 E8 02 DW $E802 ; JR FR4: 0614 FR3: 0614 21 04 00 01 DW $2104,$0001 ; LD R4,1; 0618 FR4: 0618 6F 04 10 12 DW $6F04,$1012 ; LD LOPINC,R4; 061C FR5: 061C 61 04 10 08 DW $6104,$1008 ; LD R4,CURRNT; 0620 6F 04 10 16 DW $6F04,$1016 ; LD LOPLN,R4; 0624 6F 05 10 18 DW $6F05,$1018 ; LD LOPPT,R5; 0628 21 06 00 0A DW $2106,$000A ; LD R6,0AH; 062C 61 05 10 10 DW $6105,$1010 ; LD R5,LOPVAR; 0630 A1 F4 DW $A1F4 ; LD R4,R15; 0632 E8 01 DW $E801 ; JR SKIP1; 0634 FR7: 0634 81 64 DW $8164 ; ADD R4,R6; 0636 SKIP1: 0636 20 49 DW $2049 ; LDB RL1,R4^; 0638 A9 40 DW $A940 ; INC R4,1; 063A 04 49 DW $0449 ; ORB RL1,R4^; 063C E6 0E DW $E60E ; JR ZR,FR8; 063E 20 49 DW $2049 ; LDB RL1,R4^; 0640 AB 40 DW $AB40 ; DEC R4,1; 0642 8A D9 DW $8AD9 ; CPB RL1,RL5; 0644 EE F7 DW $EEF7 ; JR NZ-FRZ; 0646 20 49 DW $2049 ; LDB RL1,R4^; 0648 8A 59 DW $8A59 ; CPB RL1,RH5; 064A EE F4 DW $EEF4 ; JR NZ,FR7; 064C AD 54 DW $AD54 ; EX R4,R5; 064E A1 F6 DW $A1F6 ; LD R6,R15; 0650 21 04 00 0A DW $2104,$000A ; LD R4,0AH; 0654 81 54 DW $8154 ; ADD R4,R5; 0656 DD AB DW $DDAB ; CALR MVDOWN; 0658 A1 4F DW $A14F ; ld r15,r4; 065A FR8: 065A 61 04 10 18 DW $6104,$1018 ; LD R4,LOPPT; 065E AD 54 DW $AD54 ; EX R4,R5; 0660 D1 4F DW $D14F ; CALR FINI; 0662 ; 0662 NEXT: 0662 D1 4C DW $D14C ; CALR TSTV; 0664 5E 07 09 6A DW $5E07,$096A ; JP CY,QWHAT; 0668 6F 04 10 0E DW $6F04,$100E ; LD VARNXT,R4; 066C ; 066C NX0: 066C 93 F5 DW $93F5 ; PUSH R15^,R5; 066E AD 54 DW $AD54 ; EX R4,R5; 0670 61 04 10 10 DW $6104,$1010 ; LD R4,LOPVAR; 0674 85 44 DW $8544 ; OR R4,R4; 0676 5E 06 09 6C DW $5E06,$096C ; JR ZR,AWHAT; 067A 8B 54 DW $8B54 ; CP R4,R5; 067C E6 05 DW $E605 ; JR ZR,NX3; 067E 97 F5 DW $97F5 ; POP R5,R15^; 0680 DD B9 DW $DDB9 ; CALR POPA; 0682 61 04 10 0C DW $6104,$100C ; LD R4,VARNXT; 0686 E8 F2 DW $E8F2 ; JR NX0; 0688 ; 0688 NX3: 0688 20 4D DW $204D ; LDB RL5,R4^; 068A A9 40 DW $A940 ; INC R4,1; 068C 20 45 DW $2045 ; LDB RH5,R4^; 068E 61 04 10 12 DW $6104,$1012 ; LD R4,LOPINC; 0692 93 F4 DW $93F4 ; PUSH R15^,R4; 0694 A0 49 DW $A049 ; LDB RL1,RH4; 0696 81 54 DW $8154 ; ADD R4,R5; 0698 88 59 DW $8859 ; XORB RL1,RH5; 069A A0 59 DW $A059 ; LDB RL1,RH5; 069C E5 02 DW $E502 ; JR MI,NX4; 069E 88 49 DW $8849 ; XORB RL1,RH4; 06A0 E5 17 DW $E517 ; JR MI,NX5; 06A2 NX4: 06A2 AD 54 DW $AD54 ; EX R4,R5; 06A4 61 04 10 10 DW $6104,$1010 ; LD R4,LOPVAR; 06A8 2E 4D DW $2E4D ; LDB R4^,RL5; 06AA A9 40 DW $A940 ; INC R4,1; 06AC 2E 45 DW $2E45 ; LDB R4^,RH5; 06AE 61 04 10 14 DW $6104,$1014 ; LD R4,L0PLMT; 06B2 97 F1 DW $97F1 ; POP R1,R15^; 06B4 84 11 DW $8411 ; ORB RH1,RH1; % SWAP? 06B6 ED 01 DW $ED01 ; JR PL,NX1; 06B8 AD 54 DW $AD54 ; EX R4,R5; 06BA NX1: 06BA DE D0 DW $DED0 ; CALR CKHLDE; 06BC 97 F5 DW $97F5 ; POP R5,R15^; 06BE E7 0A DW $E70A ; JR CY,NX2; 06C0 61 04 10 16 DW $6104,$1016 ; LD R4,LDPLN; 06C4 6F 04 10 08 DW $6F04,$1008 ; LD CURRNT,R4; 06C8 61 04 10 18 DW $6104,$1018 ; LD R4,LOPPT; 06CC AD 54 DW $AD54 ; EX R4,R5; 06CE D1 86 DW $D186 ; CALR FINI; 06D0 NX5: 06D0 97 F4 DW $97F4 ; POP R4,R15^; 06D2 97 F5 DW $97F5 ; POP R5,R15^; 06D4 NX2: 06D4 DD E3 DW $DDE3 ; CALR POPA; 06D6 D1 8A DW $D18A ; CALR FINI; 06D8 ; %*********************** 06D8 ; % REM IF INPUT LET UPR * 06D8 ; %*********************** 06D8 REM: 06D8 8D 48 DW $8D48 ; CLR R4; 06DA E8 01 DW $E801 ; JR IFFR; 06DC IFF: 06DC DF B4 DW $DFB4 ; CALR EXPR; 06DE IFFR: 06DE 85 44 DW $8544 ; OR R4,R4; 06E0 5E 0E 05 42 DW $5E0E,$0542 ; JP NZ,RUNSML; 06E4 DE 5D DW $DE5D ; CALR FNDSKP; 06E6 5E 0F 05 3C DW $5E0F,$053C ; JP NC,RUNTSL; 06EA 5E 08 04 8C DW $5E08,$048C ; JP RSTART; 06EE ; 06EE INPERR: 06EE 61 0F 10 0E DW $610F,$100E ; LD R15,STKINP; 06F2 97 F4 DW $97F4 ; POP R4,R15^; 06F4 97 F5 DW $97F5 ; POP R5,R15^; 06F6 97 F5 DW $97F5 ; POP R5,R15^; 06F8 ; 06F8 INPUT: 06F8 IP1: 06F8 93 F5 DW $93F5 ; PUSH R15^,R5; 06FA DE 58 DW $DE58 ; CALR QTSTG; 06FC E8 03 DW $E803 ; JR IP2; 06FE D1 9A DW $D19A ; CALR TSTV; 0700 E7 2A DW $E72A ; JR CY,IP4; 0702 E8 0E DW $E80E ; JR IP3; 0704 IP2: 0704 93 F5 DW $93F5 ; PUSH R15^,R5; 0706 5F 00 03 CC DW $5F00,$03CC ; CALL TSTV; 070A 5E 07 09 6A DW $5E07,$096A ; JP CY,QWHAT; 070E 20 59 DW $2059 ; LDB RL1,R5^; 0710 A0 9E DW $A09E ; LDB RL6,RL1; 0712 82 99 DW $8299 ; SUBB RL1,RL1; 0714 2E 59 DW $2E59 ; LDB R5^,RL1; 0716 97 F5 DW $97F5 ; POP R5,R15^; 0718 DE 71 DW $DE71 ; CALR PRTSTG; 071A A0 E9 DW $A0E9 ; LDB RL1,RL6; 071C AB 50 DW $AB50 ; DEC R5,1; 071E 2E 59 DW $2E59 ; LDB R5^,RL1; 0720 IP3: 0720 93 F5 DW $93F5 ; PUSH R15^,R5; 0722 AD 54 DW $AD54 ; EX R4,R5; 0724 61 04 10 08 DW $6104,$1008 ; LD R4,CURRNT; 0728 93 F4 DW $93F4 ; PUSH R15^,R4; 072A 76 04 06 F8 DW $7604,$06F8 ; LD R4,^IP1; 072E 6F 04 10 08 DW $6F04,$1008 ; LD CURRNT,R4; 0732 6F 0F 10 0E DW $6F0F,$100E ; LD STKINP,R15; 0736 93 F5 DW $93F5 ; PUSH R15^,R5; 0738 C9 3A DW $C93A ; LDB RL1,":"; 073A DE C3 DW $DEC3 ; CALR GETLN; 073C 61 05 12 18 DW $6105,$1218 ; LD R5,BUFFER; 0740 DF E6 DW $DFE6 ; CALR EXPR; 0742 DC 0E DW $DC0E ; CALR CONT; 0744 97 F5 DW $97F5 ; POP R5,R15^; 0746 AD 54 DW $AD54 ; EX R4,R5; 0748 2E 4D DW $2E4D ; LDB R4^,RL5; 074A A9 40 DW $A940 ; INC R4,1; 074C 2E 45 DW $2E45 ; LDB R4^,RH5; 074E 97 F4 DW $97F4 ; POP R4,R15^; 0750 6F 04 10 08 DW $6F04,$1008 ; LD CURRNT,R4; 0754 97 F5 DW $97F5 ; POP R5,R15^; 0756 IP4: 0756 97 F1 DW $97F1 ; POP R1,R15^; 0758 D1 A7 2C 2C 07 60 DW $D1A7,$2C2C,$0760 ; TESTC ".",IP5; 075E E8 CC DW $E8CC ; JR XP1; 0760 IP5: 0760 D1 CF DW $D1CF ; CALR FINI; 0762 DEFLT: 0762 20 59 DW $2059 ; LDB RL1,R5^; 0764 0A 09 0D 0D DW $0A09,$0D0D ; CPB RL1,0DH; 0768 E6 05 DW $E605 ; JR ZR,LT1; 076A LET: 076A DF 22 DW $DF22 ; CALR SETVAL; 076C D1 B1 2C 2C 07 74 DW $D1B1,$2C2C,$0774 ; TESTC ",",LT1; 0772 E8 FB DW $E8FB ; JR LET; 0774 LT1: 0774 D1 D9 DW $D1D9 ; CALR FINI; 0776 ; 0776 ; 0776 ; %*********** 0776 ; % EXPR UPR * 0776 ; %*********** 0776 EXPR: 0776 DF D0 DW $DFD0 ; CALR EXPR2; 0778 93 F4 DW $93F4 ; PUSH R15^,R4; 077A EXPR1: 077A 76 04 0D 08 DW $7604,$0D08 ; LD R4,^TAB8-1; 077E 5E 08 0D 2A DW $5E08,$0D2A ; JP EXEC; 0782 XP11: 0782 DF E4 DW $DFE4 ; CALR XP18; 0784 9E 07 DW $9E07 ; RET CY; 0786 A0 9C DW $A09C ; LDB RL4,RL1; 0788 9E 08 DW $9E08 ; RET; 078A XP12: 078A DF E8 DW $DFE8 ; CALR XP18; 078C 9E 06 DW $9E06 ; RET ZR; 078E A0 9C DW $A09C ; LDB RL4,RL1; 0790 9E 08 DW $9E08 ; RET; 0792 XP13: 0792 DF EC DW $DFEC ; CALR XP18; 0794 9E 06 DW $9E06 ; RET ZR; 0796 ; 0796 9E 07 DW $9E07 ; RET CY; 0798 A0 9C DW $A09C ; LDB RL4,RL1; 079A 9E 08 DW $9E08 ; RET; 079C XP14: 079C DF F1 DW $DFF1 ; CALR XP18; 079E A0 9C DW $A09C ; LDB RL4,RL1; 07A0 9E 06 DW $9E06 ; RET ZR; 07A2 9E 07 DW $9E07 ; RET CY; 07A4 A0 4C DW $A04C ; LDB RL4,RH4; 07A6 9E 08 DW $9E08 ; RET; 07A8 XP15: 07A8 DF F7 DW $DFF7 ; CALR XP18; 07AA 9E 0E DW $9E0E ; RET NZ; 07AC A0 9C DW $A09C ; LDB RL4,RL1 ; 07AE 9E 08 DW $9E08 ; RET: 07B0 XP16: 07B0 DF FB DW $DFFB ; CALR XP18; 07B2 9E 0F DW $9E0F ; RET NC; 07B4 A0 9C DW $A09C ; LDB RL4,RL1; 07B6 9E 08 DW $9E08 ; RET; 07B8 XP17: 07B8 97 F4 DW $97F4 ; POP R4,R15^; 07BA 9E 08 DW $9E08 ; RET ; 07BC XP18: 07BC A0 E9 DW $A0E9 ; LDB RL1.RL6; 07BE 97 F4 DW $97F4 ; POP R4,R15^; 07C0 97 F6 DW $97F6 ; POP R6,R15^; 07C2 93 F4 DW $93F4 ; PUSH R15^,R4; 07C4 93 F6 DW $93F6 ; PUSH R15^,R6; 07C6 A0 9E DW $A09E ; LDB RL6,RL1; 07C8 DF F9 DW $DFF9 ; CALR EXPR2; 07CA AD 54 DW $AD54 ; EX R4,R5; 07CC 2D F4 DW $2DF4 ; EX R4,R15^; 07CE DF 5A DW $DF5A ; CALR CKHLDE; 07D0 97 F5 DW $97F5 ; POP R5,R15^; 07D2 8D 48 DW $8D48 ; CLR R4; 07D4 C9 01 DW $C901 ; LDB RL1,1; 07D6 9E 08 DW $9E08 ; RET; 07D8 EXPR2: 07D8 D1 E7 2D 2D 07 E2 DW $D1E7,$2D2D,$07E2 ; TESTC "-",XP21; 07DE 8D 48 DW $8D48 ; CLR R4; 07E0 E8 18 DW $E818 ; JR XP26; 07E2 XP21: 07E2 D1 EC 2B 2B 07 E8 DW $D1EC,$2B2B,$07E8 ; TESTC "+",XP22; 07E8 XP22: 07E8 DF E7 DW $DFE7 ; CALR EXPR3; 07EA XP23: 07EA D1 F0 2B 2B 08 0C DW $D1F0,$2B2B,$080C ; TESTC "+",XP25; 07F0 93 F4 DW $93F4 ; PUSH R15^,R4; 07F2 DF EC DW $DFEC ; CALR EXPR3; 07F4 XP24: 07F4 AD 54 DW $AD54 ; EX R4,R5; 07F6 2D F4 DW $2DF4 ; EX R4,R15^; 07F8 A0 49 DW $A049 ; LDB RL1,RH5; 07FA 81 54 DW $8154 ; ADD R4,R5; 07FC 88 59 DW $8859 ; XORB RL1,RH4; 07FE 97 F5 DW $97F5 ; POP R5,R15^; 0800 E5 F4 DW $E5F4 ; JR MI,XP23; 0802 88 49 DW $8849 ; XORB RL1,RH4; 0804 5E 0D 07 EA DW $5E0D,$07EA ; JP PL,XP23; 0808 5E 08 04 64 DW $5E08,$0464 ; JP QHOW; 080C XP25: 080C D2 01 2D 2D 08 A0 DW $D201,$2D2D,$08A0 ; TESTC "-",XP42; 0812 93 F4 DW $93F4 ; PUSH R15^,R4; 0814 DF FD DW $DFFD ; CALR EXPR3; 0816 DF 88 DW $DF88 ; CALR CHGSGN; 0818 5E 08 07 F4 DW $5E08,$07F4 ; JP XP24 081C EXPR3: 081C DF D4 DW $DFD4 ; CALR EXPR4; 081E XP31: 081E D2 0A 2A 2A 08 44 DW $D20A,$2A2A,$0844 ; TESTC "*",XP34; 0824 93 F4 DW $93F4 ; PUSH R15^,R4; 0826 DF D9 DW $DFD9 ; CALR EXPR4; 0828 C6 00 DW $C600 ; LDB RH6,0; 082A DF 94 DW $DF94 ; CALR CHKSGN; 082C 2D F4 DW $2DF4 ; EX R4,R15^; 082E DF 96 DW $DF96 ; CALR CHKSGN; 0830 AD 54 DW $AD54 ; EX R4,R15^; 0832 2D F4 DW $2DF4 ; EX R4,R15^; 0834 8D 88 DW $8D88 ; CLR R8; 0836 A1 49 DW $A149 ; LD R9,R4; 0838 99 58 DW $9958 ; MULT RR8,R5; 083A A1 94 DW $A194 ; LD R9,R9; 083C 85 88 DW $8588 ; OR R8,R8; 083E 5E 0E 04 66 DW $5E0E,$0466 ; JP NZ,AHOW; 0842 E8 11 DW $E811 ; JR XP35; 0844 XP34: 0844 D1 2D 2F 2F 08 A0 DW $D12D,$2F2F,$08A0 ; TESTC "/",XP42; 084A 93 F4 DW $93F4 ; PUSH R15^,R4; 084C DF EC DW $DFEC ; CALR EXPR4; 084E C6 00 DW $C600 ; LDB RH6,0; 0850 DF A7 DW $DFA7 ; CALR CHKSGN; 0852 2D F4 DW $2DF4 ; EX R4,R15^; 0854 DF A9 DW $DFA9 ; CALR CHKSGN; 0856 2D F5 DW $2DF5 ; EX R5,R15^; 0858 85 55 DW $8555 ; OR R5,R5; 085A 5E 06 04 66 DW $5E06,$0466 ; JP ZR,AHOW; 085E 93 F6 DW $93F6 ; PUSH R15^,R6; 0860 DF B5 DW $DFB5 ; CALR DIVIDE; 0862 A1 64 DW $A164 ; LD R4,R6; 0864 97 F6 DW $97F6 ; POP R6,R15^; 0866 XP35: 0866 97 F5 DW $97F5 ; POP R5,R15^; 0868 84 44 DW $8444 ; ORB RH4,RH4; 086A 5E 05 04 64 DW $5E05,$0464 ; JP MI,QHOW; 086E 84 66 DW $8466 ; ORB RH6,RH6; 0870 ED D6 DW $EDD6 ; JR PL,XP31; 0872 DF B6 DW $DFB6 ; CALR CHGSGN; 0874 E8 D4 DW $E8D4 ; JR XP31; 0876 EXPR4: 0876 76 04 0C B1 DW $7604,$0CB1 ; LD R4,^TAB4-1; 087A 5E 08 0D 2A DW $5E08,$0D2A ; JP EXEC; 087E XP40: 087E D2 5A DW $D25A ; CALR TSTV; 0880 E7 05 DW $E705 ; JR CY,XP41; 0882 20 49 DW $2049 ; LDB RL1,R4^; 0884 A9 40 DW $A940 ; INC R4,1; 0886 20 44 DW $2044 ; LDB RH4,R4^; 0888 A0 9C DW $A09C ; LDB RL4,RL1; 088A 9E 08 DW $9E08 ; RET; 088C XP41: 088C D2 33 DW $D233 ; CALR TSTNUM; 088E 84 66 DW $8466 ; ORB RH6,RH6; 0890 9E 0E DW $9E0E ; RET NZ; 0892 PARN: 0892 D2 44 28 28 08 A2 DW $D244,$2828,$08A2 ; TESTC "(",XP43; 0898 D0 92 DW $D092 ; CALR EXPR; 089A D2 48 29 29 08 A2 DW $D248,$2929,$08A2 ; TESTC ")",XP43; 08A0 XP42: 08A0 9E 08 DW $9E08 ; RET; 08A2 XP43: 08A2 5E 08 09 6A DW $5E08,$096A ; JP QWHAT; 08A6 RND: 08A6 D0 0B DW $D00B ; CALR PARN; 08A8 84 44 DW $8444 ; ORB RH4,RH4; 08AA 5E 05 04 64 DW $5E05,$0464 ; JP MI,QHOW; 08AE 85 44 DW $8544 ; OR R4,R4; 08B0 5E 06 04 64 DW $5E06,$0464 ; JP ZR,QHOW; 08B4 93 F5 DW $93F5 ; PUSH R15^,R5; 08B6 93 F4 DW $93F4 ; PUSH R15^,R4; 08B8 61 04 10 1A DW $6104,$101A ; LD R4,RANPNT; 08BC 76 05 10 05 DW $7605,$1005 ; LD R5,^LSTR0M; 08C0 8B 54 DW $8B54 ; CP R4,R5; 08C2 5E 07 08 CA DW $5E07,$08CA ; JP CY,RA1; 08C6 76 04 0B 66 DW $7604,$0B66 ; LD R4,^START; 08CA RA1: 08CA 20 4D DW $204D ; LDB RL5,R4^; 08CC A9 40 DW $A940 ; INC R4,1; 08CE 20 45 DW $2045 ; LDB RH5,R4^; 08D0 6F 04 10 1A DW $6F04,$101A ; LD RANPNT,R4; 08D4 97 F4 DW $97F4 ; POP R4,R15^; 08D6 AD 54 DW $AD54 ; EX R4,R5; 08D8 93 F6 DW $93F6 ; PUSH R15^,R6; 08DA DF F2 DW $DFF2 ; CALR DIVIDE; 08DC 97 F6 DW $97F6 ; POP R6,R15^; 08DE 97 F5 DW $97F5 ; POP R5,R15^; 08E0 A9 40 DW $A940 ; INC R4,1; 08E2 9E 08 DW $9E08 ; RET; 08E4 ABS1: 08E4 D0 2A DW $D02A ; CALR PARN; 08E6 AB 50 DW $AB50 ; DEC R5,1; 08E8 DF F3 DW $DFF3 ; CALR CHKSGN; 08EA A9 50 DW $A950 ; INC R5,1; 08EC 9E 08 DW $9E08 ; RET; 08EE SIZE: 08EE 61 04 12 16 DW $6104,$1216 ; LD R4,TXTEND; 08F2 43 04 10 1C DW $4304,$101C ; SUB R4,TXTUNF; 08F6 9E 08 DW $9E08 ; RET; 08F8 ; 08F8 ; %************************************ 08F8 ; % DIVIDE SUBDE CHKBGN CKHLDE CHGSGN * 08F8 ; %************************************ 08F8 ; 08F8 ; DIVIDE: % HL/DE RES IN BC REMAINDER IN HL 08F8 A1 49 DW $A149 ; LD R9,R4; 08FA 8D 88 DW $8D88 ; CLR R8; 08FC 9B 58 DW $9B58 ; DIU RR8,R5; 08FE A1 96 DW $A196 ; LD F6,R9; 0900 A1 84 DW $A184 ; LD R4,R8; 0902 9E 08 DW $9E08 ; RET; 0904 ; 0904 CHKSGN: 0904 84 44 DW $8444 ; ORB RH4,RH4 0906 9E 0D DW $9E0D ; RET PL; 0908 CHGSGN: 0908 85 44 DW $8544 ; OR R4,R4; 090A 9E 06 DW $9E06 ; RET ZR; 090C A0 49 DW $A049 ; LDB RL1,RH4; 090E 8D 42 DW $8D42 ; NEG R4; 0910 88 49 DW $8849 ; XORB RL1,RH4; 0912 5E 0D 04 64 DW $5E0D,$0464 ; JP PL,QHOW; 0916 08 06 80 80 DW $0806,$8080 ; XORB RH6,80H; 091A 9E 08 DW $9E08 ; RET; 091C CHKHLDE: 091C A0 49 DW $A049 ; LDB RL1,RH4; 091E 88 59 DW $8859 ; XORB RL1,RH5; 0920 ED 01 DW $ED01 ; JR PL,CK1; 0922 AD 54 DW $AD54 ; EX R4,R5; 0924 CK1: 0924 8B 54 DW $8B54 ; CP R4,R5; 0926 9E 08 DW $9E08 ; RET ; 0928 ; 0928 ; %************************* 0928 ; % SETVAL IN ENDCHK ERROR * 0928 ; %************************* 0928 SETVAL: 0928 D2 AF DW $D2AF ; CALR TSTV; 092A 5E 07 09 6A DW $5E07,$096A ; JP CY,QWHAT; 092E 93 F4 DW $93F4 ; PUSH R15^,R4; 0930 D2 93 3D 3D 09 44 DW $D293,$3D3D,$0944 ; TESTC "=",SV1; 0936 D0 E1 DW $D0E1 ; CALR EXPR; 0938 A1 46 DW $A146 ; LD R6,R4; 093A 97 F4 DW $97F4 ; POP R4,R15^; 093C 2E 4E DW $2E4E ; LDB R4^,RL6; 093E A9 40 DW $A940 ; INC R4,1; 0940 2E 46 DW $2E46 ; LDB R4^,RH6; 0942 9E 08 DW $9E08 ; RET: 0944 SV1: 0944 5E 08 09 6A DW $5E08,$096A ; JP QWHAT; 0948 FIN: 0948 D2 9F 3B 3B 09 54 DW $D29F,$3B3B,$0954 ; TESTC ";",FI1; 094E 97 F1 DW $97F1 ; POP R1,R15^; 0950 5E 08 05 42 DW $5E08,$0542 ; JP RUNSML; 0954 FI1: 0954 D2 A5 0D 0D 09 60 DW $D2A5,$0D0D,$0960 ; TESTC 0DH,FI2; 095A 97 F1 DW $97F1 ; POP R1,R15^; 095C 5E 08 05 34 DW $5E08,$0534 ; JP RUNNXL; 0960 FI2: 0960 9E 08 DW $9E08 ; RET; 0962 ; 0962 ENDCHK: 0962 D2 D6 DW $D2D6 ; CALR IGNB; 0964 0A 09 0D 0D DW $0A09,$0D0D ; CPB RL1,0DH; 0968 9E 06 DW $9E06 ; RET ZR; 096A QWHAT: 096A 93 F5 DW $93F5 ; PUSH R15^,R5; 096C AWHAT: 096C 76 05 04 7C DW $7605,$047C ; LD R5,^WHAT; 0970 ERROR: 0970 82 99 DW $8299 ; SUBB PLI,RL1; 0972 DF 9E DW $DF9E ; CALR PRTSTG; 0974 97 F5 DW $97F5 ; POP R5,R15^; 0976 20 59 DW $2059 ; LDB RL1,R5^; 0978 93 F1 DW $93F1 ; PUSH R15^,R1; 097A 82 99 DW $8299 ; SUBB RL1,RL1; 097C 2E 59 DW $2E59 ; LDB R5,RL1; 097E 61 04 10 08 DW $6104,$1008 ; LD R4,CURRNT; 0982 93 F4 DW $93F4 ; PUSH R15^,R4; 0984 20 49 DW $2049 ; LDB RL1,R4^; 0986 A9 40 DW $A940 ; INC R4,1; 0988 04 49 DW $0449 ; ORB RL1,R4^; 098A 97 F5 DW $97F5 ; POP R5,R15^; 098C 5E 06 04 8C DW $5E06,$048C ; JP ZR,RSTART; 0990 20 49 DW $2049 ; LDB RL1,R4^; 0992 84 99 DW $8499 ; ORB RL1,RL1; 0994 5E 05 06 EE DW $5E05,$06EE ; JP MI,INPERR; 0998 DF 5C DW $DF5C ; CALR PRTLN; 099A AB 50 DW $AB50 ; DEC R5,1; 099C 97 F1 DW $97F1 ; POP R1,R15^; 099E 2E 59 DW $2E59 ; LDB R5^,RL1; 09A0 C9 3F DW $C93F ; LDB RL1,"?"; 09A2 DE FE DW $DEFE ; CALR OUTC; 09A4 82 99 DW $8299 ; SUBB RL1,RL1; 09A6 DF B8 DW $DFB8 ; CALR PRTSTG 09A8 5E 08 04 8C DW $5E08,$048C ; JP RSTART; 09AC QSORRY: 09AC 93 F5 DW $93F5 ; PUSH R15^,R5; 09AE ASORRY: 09AE 76 05 04 84 DW $7605,$0484 ; LD R5,^SORRY; 09B2 5E 08 09 70 DW $5E08,$0970 ; JP ERROR; 09B6 ; %****************** 09B6 ; % GETLN FNDLN UPR * 09B6 ; %****************** 09B6 ; 09B6 GETLN: 09B6 DF 08 DW $DF08 ; CALR OUTC; 09B8 61 05 12 18 DW $6105,$1218 ; LD R5,BUFFER; 09BC GL1: 09BC DE F3 DW $DEF3 ; CALR CHKIO; % DEL ZEICHEN 09BE 0A 09 01 01 DW $0A09,$0101 ; CPB RL1,1; 09C2 E6 11 DW $E611 ; JR ZR,GL3; 09C4 DF 0F DW $DF0F ; CALR OUTC; 09C6 0A 09 0A 0A DW $0A09,$0A0A ; CPB RL1,0AH; 09CA E6 F8 DW $E6F8 ; JR ZR,GL1; 09CC 84 99 DW $8499 ; ORB RL1,RL1; 09CE E6 F6 DW $E6F6 ; JR ZR,GL4; 09D0 0A 09 1B 1B DW $0A09,$1B1B ; CPB RL1,1BH; % ESC 09D4 E6 0F DW $E60F ; JR ZR,GL4; 09D6 2E 59 DW $2E59 ; LDB R5^,RL1; 09D8 A9 50 DW $A950 ; INC R5,1; 09DA 0A 09 0D 0D DW $0A09,$0D0D ; CPB RL1,0DH; 09DE 9E 06 DW $9E06 ; RET ZR; 09E0 A0 D9 DW $A0D9 ; LDB RL1,RL5; 09E2 DE 3F DW $DE3F ; CALR CXBUFE; 09E4 EE EB DW $EEEB ; JR NZ,GL1; 09E6 GL3: 09E6 A0 D9 DW $A0D9 ; LDB RL1,RL5; 09E8 DE 3E DW $DE3E ; CALR CXBUFA; 09EA E6 04 DW $E604 ; JR ZR,GL4; 09EC AB 50 DW $AB50 ; DEC R5,1; 09EE C9 08 DW $C908 ; LDB RL1,8; 09F0 DF 25 DW $DF25 ; CALR OUTC; 09F2 E8 E4 DW $E8E4 ; JR GL1; 09F4 GL4: 09F4 DF 28 DW $DF28 ; CALR CRLF; 09F6 C9 0B DW $C90B ; LDB RL1,0BH; 09F8 5E 08 09 B6 DW $5E08,$09B6 ; JP GETLN; 09FC FNDLN: 09FC 84 44 DW $8444 ; ORB RH4,RH4; 09FE 5E 05 04 64 DW $5E05,$0464 ; Jp MI,QHOW; 0A02 76 05 12 1C DW $7605,$121C ; LD R5,^TXTBGN; 0A06 FNDLP: 0A06 FL1: 0A06 93 F4 DW $93F4 ; PUSH R15^,R4; 0A08 61 04 10 1C DW $6104,$101C ; LD R5,^TXTUNF; 0A0C AB 40 DW $AB40 ; DEC R4,1; 0A0E 8B 54 DW $8B54 ; CP R4,R5; 0A10 97 F4 DW $97F4 ; POP R4,R15^; 0A12 9E 07 DW $9E07 ; RET CY; 0A14 20 59 DW $2059 ; LDB RL1,R5^; 0A16 82 C9 DW $82C9 ; SUBB RL1,RL4; 0A18 A0 96 DW $A096 ; LDB RH6,RL1; 0A1A A9 50 DW $A950 ; INC R5,1; 0A1C 20 59 DW $2059 ; LDB RL1,R5^; 0A1E B6 49 DW $B649 ; SBCB RL1,RH4 0A20 E7 04 DW $E704 ; JR CY,FL2; 0A22 AB 50 DW $AB50 ; DEC R5,1; 0A24 84 69 DW $8469 ; ORB RL1,RH6; 0A26 9E 08 DW $9E08 ; RET; 0A28 FNDNXT: 0A28 A9 50 DW $A950 ; INC R5,1; 0A2A FL2: 0A2A A9 50 DW $A950 ; INC R5,1; 0A2C FNDSKP: 0A2C 20 59 DW $2059 ; LDB RL1,R5^; 0A2E 0A 09 0D 0D DW $0A09,$0D0D ; CPB RL1,0DH; 0A32 EE FB DW $EEFB ; JR NZ,FL2; 0A34 A9 50 DW $A950 ; INC R5,1; 0A36 E8 E7 DW $E8E7 ; JR FL1; 0A38 ; 0A38 ; % PRTSTQ GTBTC PRTN0N PRTLN UPR * 0A38 ; %******************************** 0A38 ; PRTSTG: 0A38 A0 96 DW $A096 ; LDB RL1,R5^; 0A3A PS1: 0A3A 20 59 DW $2059 ; LDB R1:1,R5^; 0A3C A9 50 DW $A950 ; INC RR5,1; 0A3E 8A 69 DW $8A69 ; CPB RL1,RH6; 0A40 9E 06 DW $9E06 ; RET ZR; 0A42 DF 4E DW $DF4E ; CALR OUTC; 0A44 0A 09 0D 0D DW $0A09,$0D0D ; CPB RL1,0DH; 0A48 EE F8 DW $EEF8 ; JR NZ,PSI; 0A4A 9E 08 DW $9E08 ; RET; 0A4C QTSTC: 0A4C D3 21 22 22 0A 74 DW $D321,$2222,$0A74 ; TESTC """,QT3; 0A52 C9 22 DW $C922 ; LDB RL1,22H; 0A54 QT1: 0A54 5F 00 0A 38 DW $5F00,$0A38 ; CALL PRTSTG; 0A58 0A 09 0D 0D DW $0A09,$0D0D ; CPB RL1,0DH; 0A5C 97 F4 DW $97F4 ; POP R4,R15^; 0A5E 5E 06 05 34 DW $5E06,$0534 ; JP ZR,RUNNXL; 0A62 QT2: ; % VAR RESTURN 0A62 21 40 DW $2140 ; LD R0,R4^; 0A64 A9 41 DW $A941 ; INC R4,Z; 0A66 07 00 F0 00 DW $0700,$F000 ; AND R0,0F000H; 0A6A 0B 00 E0 00 DW $0B00,$E000 ; CP R0,0E000H; % JR BEFEHL 0A6E 1E 46 DW $1E46 ; JP ZR,R4; % SONST JP DANACH 0A70 A9 41 DW $A941 ; INC R4,2; 0A72 1E 48 DW $1E48 ; JP R4^; 0A74 QT3: 0A74 D3 35 27 27 0A 7E DW $D335,$2727,$0A7E ; TESTC 27H,QT1; 0A7A C9 27 DW $C927 ; LDB RL1,27H; 0A7C E8 EB DW $E8EB ; JR QT1; 0A7E QT4: 0A7E D3 3A 5F 5F 0A 8E DW $D33A,$5F5F,$0A8E ; TESTC "<",QT5; 0A84 C9 8D DW $C98D ; LDB RL1,8DH; % CR OHNE LF 0A86 5F 00 0B A8 DW $5F00,$0BA8 ; CALL OUTC; 0A8A 97 F4 DW $97F4 ; POP R4,R15^; 0A8C E8 EA DW $E8EA ; JR QT2; 0A8E QT5: 0A8E 9E 08 DW $9E08 ; RET; 0A90 ; 0A90 PRTNUM: 0A90 C6 00 DW $C600 ; LDB RH6,0; 0A92 5F 00 09 04 DW $5F00,$0904 ; CALL CHKSGN; 0A96 ED 02 DW $ED02 ; JR PL,PNI; 0A98 C6 2D DW $C62D ; LDB RH6,"-"; 0A9A AA E0 DW $AAE0 ; DECB RL6,1; 0A9C PN1: 0A9C 93 F5 DW $93F5 ; PUSH R15^,R5; 0A9E 21 05 00 0A DW $2105,$000A ; LD R5,0AH; 0AA2 93 F5 DW $93F5 ; PUSH R15^,R5; 0AA4 AA E0 DW $AAE0 ; DECB RL6,1; 0AA6 93 F6 DW $93F6 ; PUSH R15^,R6; 0AA8 PN2: 0AA8 D0 D9 DW $D0D9 ; CALR DIVIDE; 0AAA 85 66 DW $8566 ; OR R6,R6 0AAC E6 05 DW $E605 ; JR ZR,PN3; 0AAE 2D F4 DW $2DF4 ; EX R4,R15^; 0AB0 AA C0 DW $AAC0 ; DECB RL4,1; 0AB2 93 F4 DW $93F4 ; PUSH R15^,R4; 0AB4 A1 64 DW $A164 ; LD R4,R6; 0AB6 E8 F8 DW $E8F8 ; JR PN2; 0AB8 PN3: 0AB8 97 F6 DW $97F6 ; POP R6,R15^; 0ABA PN4: 0ABA AA E0 DW $AAE0 ; DECB RL6,1; 0ABC 84 EE DW $84EE ; ORB RL6,RL6; 0ABE E5 03 DW $E503 ; JR MI,PN5; 0AC0 C9 20 DW $C920 ; LDB RL1," "; 0AC2 DF 8E DW $DF8E ; CALR OUTC; 0AC4 E8 FA DW $E8FA ; JR PN4; 0AC6 PN5: 0AC6 A0 69 DW $A069 ; LDB RL1,RH6; 0AC8 84 66 DW $8466 ; ORB RH6,RH6; 0ACA E6 01 DW $E601 ; JR ZR,SKIP2; 0ACC DF 93 DW $DF93 ; CALR OUTC; 0ACE SKIP2: 0ACE A0 CD DW $A0CD ; LDB RL5,RL4; 0AD0 PN6: 0AD0 A0 D9 DW $A0D9 ; LDB RL1,RL5; 0AD2 0A 0D 0A 0A DW $0A0D,$0A0A ; CPB RL5,0AH; 0AD6 97 F5 DW $97F5 ; POP R5,R15^; 0AD8 9E 06 DW $9E06 ; RET ZR; 0ADA 00 09 30 30 DW $0009,$3030 ; ADDB RL1,"0"; 0ADE DF 9C DW $DF9C ; CALR OUTC; 0AE0 E8 F7 DW $E8F7 ; JR PN6; 0AE2 PRTLN: 0AE2 20 5C DW $205C ; LDB RL4,R5^; 0AE4 A9 50 DW $A950 ; INC R5,1; 0AE6 20 54 DW $2054 ; LDB RH4,R5^; 0AE8 A9 50 DW $A950 ; INC R5,1; 0AEA CE 04 DW $CE04 ; LDB RL6,4; 0AEC D0 2F DW $D02F ; CALR PRTNUM; 0AEE C9 20 DW $C920 ; LDB RL1," "; 0AF0 DF A5 DW $DFA5 ; CALR OUTC; 0AF2 82 99 DW $8299 ; SUBB RL1,RL1; 0AF4 D0 5F DW $D05F ; CALR PRTSTG; 0AF6 9E 08 DW $9E08 ; RET ; 0AF8 ; 0AF8 ; 0AF8 ; % ************************ 0AF8 ; % MVUP MVDOWN POPA PUSHA * 0AF8 ; % ************************ 0AF8 MVUP: 0AF8 8B 54 DW $8B54 ; CP R4,R5 0AFA 9E 06 DW $9E06 ; RET ZR; 0AFC BA 51 00 68 DW $BA51,$0068 ; LDIB R6^,R5^,R0; 0B00 E8 FB DW $E8FB ; JR MVUP 0B02 ; 0B02 MVDOWN: 0B02 8B 65 DW $8B65 ; CP R5,R6; 0B04 9E 06 DW $9E06 ; RET ZR 0B06 AB 50 DW $AB50 ; DEC R5,1; 0B08 AB 40 DW $AB40 ; DEC R4,1; 0B0A 20 59 DW $2059 ; LDB RL1,R5^ 0B0C 2E 49 DW $2E49 ; LDB R4^,RL1; 0B0E E8 F9 DW $E8F9 ; JR MVDOWN; 0B10 POPA: 0B10 97 F6 DW $97F6 ; POP R6,R15^; 0B12 97 F4 DW $97F4 ; POP R4,R15^; 0B14 6F 04 10 10 DW $6F04,$1010 ; LD LOPVAR,R4; 0B18 85 44 DW $8544 ; OR R4,R4 0B1A E6 09 DW $E609 ; JR ZR,PP1; 0B1C 57 F0 10 12 DW $57F0,$1012 ; POP LOPINC,R15^; 0B20 57 F0 10 14 DW $57F0,$1014 ; POP LGPLMT,R15^; 0B24 57 F0 10 16 DW $57F0,$1016 ; POP LOPLN,R15^; 0B28 97 F4 DW $97F4 ; POP R4,R15^; 0B2A 6F 04 10 18 DW $6F04,$1018 ; LD LOPPT,R4; 0B2E PP1: 0B2E 93 F6 DW $93F6 ; PUSH R15^,R6; 0B30 9E 08 DW $9E08 ; RET; 0B32 ; 0B32 PUSHA: 0B32 76 04 10 46 DW $7604,$1046 ; LD R4,^STKLMT; 0B36 5F 00 09 08 DW $5F00,$0908 ; CALL CHKSGN; 0B3A 97 F6 DW $97F6 ; POP R6-R15^; 0B3C A1 F0 DW $A1F0 ; LD R0,R15; 0B3E 81 04 DW $8104 ; ADD R4,R0; 0B40 5E 0F 09 AC DW $5E0F,$09AC ; JP NC,QSORRY; 0B44 61 04 10 10 DW $6104,$1010 ; LD R4,LOPVAR;; 0B48 85 44 DW $8544 ; OR R4,R4; 0B4A E6 0A DW $E60A ; JR ZR,PU1; 0B4C 53 F0 10 18 DW $53F0,$1018 ; PUSH R15^,LOPPT; 0B50 53 F0 10 16 DW $53F0,$1016 ; PUSH R15^,LOPLN; 0B54 53 F0 10 14 DW $53F0,$1014 ; PUSH R15^,LGPLMT; 0B58 53 F0 10 12 DW $53F0,$1012 ; PUSH R15^,LOPINC; 0B5C 61 04 10 10 DW $6104,$1010 ; LD R4,LOPVAR; 0B60 PU1: 0B60 93 F4 DW $93F4 ; PUSH R15^,R4; 0B62 93 F6 DW $93F6 ; PUSH R15^,R6; 0B64 9E 08 DW $9E08 ; RET; 0B66 ; 0B66 ; % ************ 0B66 ; % OUTC CHKIO * 0B66 ; % ************* 0B66 ; START: 0B66 76 0F 11 D8 DW $760F,$11D8 ; LD R15,^STACK; 0B6A C9 FF DW $C9FF ; LDB RL1,0FFH; 0B6C INIT: 0B6C 6E 09 10 06 DW $6E09,$1006 ; LDB OCSW,RL1; 0B70 DF E6 DW $DFE6 ; CALR CRLF; 0B72 82 99 DW $8299 ; SUBB RL1,RL1; 0B74 76 05 0B F4 DW $7605,$0BF4 ; LD R5,^MSG1; 0B78 D0 A1 DW $D0A1 ; CALR PRTSTG; 0B7A 76 04 0B 66 DW $7604,$0B66 ; LD R4,^START; 0B7E 6F 04 10 1A DW $6F04,$101A ; LD RANPRT,R4; 0B82 76 04 12 1C DW $7604,$121C ; LD R4,^TXTBGN; 0B86 6F 04 10 1C DW $6F04,$101C ; LD TXTUNF,R4; 0B8A 76 04 14 76 DW $7604,$1476 ; LD R4,^TXTE; 0B8E 6F 04 12 16 DW $6F04,$1216 ; LD TXTEND,R4; 0B92 76 04 14 78 DW $7604,$1478 ; LD R4,^BUFA; 0B96 6F 04 12 18 DW $6F04,$1218 ; LD BUFFER,R4; 0B9A 76 04 14 B8 DW $7604,$14B8 ; LD R4,^BUFE; 0B9E 6F 04 12 1A DW $6F04,$121A ; LD BUFEND,R4; 0BA2 5E 08 14 8C DW $5E08,$148C ; JP RSTART; 0BA6 ; 0BA6 CRLF: 0BA6 C9 0D DW $C90D ; LDB RL1,0DH 0BA8 OUTC: 0BA8 93 F6 DW $93F6 ; PUSH R15^,R6; 0BAA 93 F1 DW $93F1 ; PUSH R15^,R1; 0BAC 60 09 10 06 DW $6009,$1006 ; LDB RL1,OCBW; 0BB0 84 99 DW $8499 ; ORB RL1,RL1; 0BB2 OC2: 0BB2 EE 03 DW $EE03 ; JR NZ,OCB; 0BB4 97 F1 DW $97F1 ; POP R1,R15^; 0BB6 97 F6 DW $97F6 ; POP R6,R15^; 0BB8 9E 08 DW $9E08 ; RET; 0BBA ; 0BBA OC3: 0BBA 97 F1 DW $97F1 ; POP R1,R15^; 0BBC 93 F1 DW $93F1 ; PUSH R15^,R1; 0BBE A0 9E DW $A09E ; LDB RL6,RL1; 0BC0 LPT: 0BC0 0A 0E 0D 0D DW $0A0E,$0D0D ; CPB RL6,0DH; 0BC4 E6 05 DW $E605 ; JR ZR,LINEF; 0BC6 HI: 0BC6 A0 E9 DW $A0E9 ; LDB RL1,RL6; 0BC8 D4 0F DW $D40F ; CALR CO11; 0BCA 97 F1 DW $97F1 ; POP R1,R15^; 0BCC 97 F6 DW $97F6 ; POP R6,R15^; 0BCE 9E 08 DW $9E08 ; RET; 0BD0 LINEF: 0BD0 C9 0D DW $C90D ; LDB RL1,0DH; 0BD2 D4 14 DW $D414 ; CALR CO11; 0BD4 CE 0A DW $CE0A ; LDB RL6,0AH; 0BD6 E8 F7 DW $E8F7 ; JR HI; 0BD8 CHKIO: 0BD8 D4 19 DW $D419 ; CALR CT11; 0BDA 06 09 7F 7F DW $0609,$7F7F ; ANDB RL1,7FH; 0BDE 0A 09 02 02 DW $0A09,$0202 ; CF*B RL1,2; 0BE2 EE 03 DW $EE03 ; JR NZ,CI1; 0BE4 4D 00 10 06 DW $4D00,$1006 ; COM OCSW; 0BE8 E8 F7 DW $E8F7 ; JR CHKIO; 0BEA ; 0BEA CI1: 0BEA 0A 09 03 03 DW $0A09,$0303 ; CPB RL1,3; 0BEE 9E 0E DW $9E0E ; RET NZ; 0BF0 5E 08 04 8C DW $5E08,$048C ; JP RSTART; 0BF4 ; 0BF4 MSG1: 0BF4 52 44 4B 20 5A 38 30 30 30 20 42 41 53 49 43 20 31 2E 30 20 DB "RDK Z8000 BASIC 1.0 " ; WORD: "RDK Z8000 BASIC 1.0 "; 0C08 0D 0A DW $0D0A ; WORD: 0D0AH; 0C0A ; 0C0A ; %*********************** 0C0A ; % TABELLEN DIRECT EXEC * 0C0A ; %*********************** 0C0A ; % 0C0A ; % BYTE UND WORDS 0C0A ; 0C0A TAB1: 0C0A 4C 49 53 54 00 DB "LIST",0 ; ; BYTE: "LIST",0; 0C0F 05 5C DW LIST1 ; ; WORD: LIST1,; 0C11 52 55 4E 00 DB "RUN",0 ; ; BYTE: "RUN",0; 0C15 05 2E DW RUN ; ; WORD: RUN; 0C17 4E 45 57 00 DB "NEW",0 ; ; BYTE: "NEW",0; 0C1B 05 1E DW NEW ; ; WORD: NEW; 0C1D 42 59 45 00 DB "BYE",0 ; ; BYTE: "BYE",0; 0C21 0D AA DW BYE ; ; WORD: BYE; 0C23 4D 45 4D 00 DB "MEM",0 ; ; BYTE: "MEM",0; % NEU END 0C27 0D 76 DW END1 ; ; WORD: END1; 0C29 TAB2: 0C29 4E 45 58 54 00 DB "NEXT",0 ; ; BYTE: "NEXT",0; 0C2E 06 62 DW NEXT ; ; WORD: NEXT; 0C30 4C 45 54 00 DB "LET",0 ; ; BYTE: "LET",0; 0C34 07 6A DW LET ; ; WORD: LET; 0C36 49 46 00 DB "IF",0 ; ; BYTE: "IF",0; 0C39 06 DC DW IFF ; ; WORD: IFF; 0C3B 47 4F 54 4F 00 DB "GOTO",0 ; ; BYTE; "GOTO",0; 0C40 05 4C DW GOTO ; ; WORD: GOTO; 0C42 47 4F 53 55 42 00 DB "GOSUB",0 ; ; BYTE: "GOSUB",0; 0C48 05 B4 DW GOSUB ; ; WORD: GOSUB; 0C4A 52 45 54 55 52 4E 00 DB "RETURN",0 ; ; BYTE: "RETURN",0; 0C51 05 D4 DW RETURN ; ; WORD: RETURN; 0C53 52 45 4D 00 DB "REM",0 ; ; BYTE: "REM",0; 0C57 06 D8 DW REM ; ; WORD: REM; 0C59 46 4F 52 00 DB "FOR",0 ; ; BYTE: "FOR",0; 0C5D 05 F0 DW FOR1 ; ; WORD: FOR1; 0C5F 49 4E 50 55 54 00 DB "INPUT",0 ; ; BYTE: "INPUT",0; 0C65 06 F8 DW INPUT ; ; WORD: INPUT; 0C67 50 52 49 4E 54 00 DB "PRINT",0 ; ; BYTE: "PRINT",0; 0C6D 05 6E DW PRINT ; ; WORD: PRINT; 0C6F 53 54 4F 50 00 DB "STOP",0 ; BYTE: "STOP",0 0C74 05 28 DW STOP ; ; WORD: STOP; 0C76 43 41 4C 4C 00 DB "CALL",0 ; ; BYTE: "CALL",0; 0C7B 0D B0 DW CALL1 ; ; Word: CALL1; 0C7D 4F 55 54 43 00 DB "OUTC",0 ; ; BYTE: "OUTC",0; 0C82 0E B8 DW OUTCHAR ; ; WORD: OUTCHAR; 0C84 4F 55 54 00 DB "OUT",0 ; ; BYTE: "OUT",0; 0C88 0D C0 DW OUT1 ; ; WORD: OUT1; 0C8A ; 0C8A 4F 24 00 DB "O$",0 ; ; BYTE: "O$",0; 0C8D 0D EE DW OO ; ; WORD: OO; 0C8F 49 24 00 DB "I$",0 ; ; BYTE: "I$",0; 0C92 0D FE DW II ; ; WORD: II; 0C94 50 4F 4B 45 00 DB "POKE",0 ; ; BYTE: "POKE",0 ; 0C99 0E 40 DW POKE ; ; WORD: POKE; 0C9B 54 41 42 00 DB "TAB",0 ; ; BYTE: "TAB",0; 0C9F 0D D6 DW TAB ; ; WORD: TAB; 0CA1 42 59 54 45 00 DB "BYTE",0 ; ; BYTE: "BYTE",0; 0CA6 0E 58 DW BYTE1 ; ; WORD: BYTE1; 0CA8 57 4F 52 44 00 DB "WORD",0 ; ; BYTE: "WORD",0; 0CAD 0E 60 DW WORD1 ; ; WORD: WORD1; 0CAF 4F DB "O" ; ; BYTE: O; 0CB0 07 62 DW DEFLT ; ; WORD: DEFLT; 0CB2 ; 0CB2 TAB4: 0CB2 52 4E 44 00 DB "RND",0 ; ; BYTE: "RND",0; 0CB6 08 A6 DW RND ; ; WORD: RND; 0CB8 41 42 53 00 DB "ABS",0 ; ; BYTE: "ABS",0; 0CBC 08 E4 DW ABS1 ; ; WORD: ABS1; 0CBE 53 49 5A 45 00 DB "SIZE",0 ; ; BYTE: "SIZE",0; 0CC3 08 EE DW SIZE ; ; WORD: SIZE; 0CC5 50 45 45 4B 00 DB "PEEK",0 ; ; BYTE: "PEEK",0; 0CCA 0E 38 DW PEEK ; ; WORD: PEEK; 0CCC 49 4E 43 00 DB "INC",0 ; ; BYTE: "INC",0; 0CD0 0E C2 DW INCHAR ; ; WORD: INCHAR; 0CD2 48 45 58 00 DB "HEX",0 ; ; BYTE: "HEX",0; 0CD6 0E CA DW HEX ; ; WORD: HEX; 0CD8 49 4E 00 DB "IN",0 ; ; BYTE: "IN",0; 0CDB 0D E6 DW IN1 ; ; WORD: IN1; 0CDD 27 00 DB 27H,0 ; ; BYTE: 27H,0; 0CDF 0E 94 DW QUOTE ; ; WORD: QUOTE; 0CE1 54 4F 50 00 DB "TOP",0 ; ; BYTE: "TOP",0; 0CE5 0E A8 DW TOP ; ; WORD: TOP; 0CE7 4C 45 4E 00 DB "LEN",0 ; ; BYTE: "LEN",0; 0CEB 0E B0 DW LENGTH ; ; WORD: LENGTH; 0CED 43 53 54 53 00 DB "CSTS",0 ; ; BYTE: "CSTS",0; 0CF2 0E 8A DW CSTAT ; ; WORD: CSTAT; 0CF4 00 DB 0 ; BYTE: 0; 0CF5 08 7E DW XP40 ; ; WORD: XP40; 0CF7 TAB5: 0CF7 54 4F 00 DB "TO",0 ; ; BYTE: "TO",0; 0CFA 06 02 DW FR1 ; ; WORD: FR1; 0CFC 00 DB 0 ; BYTE: 0; 0CFD 09 6A DW QWHAT ; ; WORD: QWHAT; 0CFF ; 0CFF TAB6: 0CFF 53 54 45 50 00 DB "STEP",0 ; ; BYTE: "STEP",0; 0D04 06 10 DW FR2 ; ; WORD: FR2; 0D06 00 DB 0 ; BYTE: 0; 0D07 06 14 DW FR3 ; ; WORD: FR3; 0D09 ; 0D09 TAB8: 0D09 3E 3D 00 DB ">=",0 ; ; BYTE: ">=",0; 0D0C 07 82 DW XP11 ; ; WORD: XP11; 0D0E 23 00 DB "#",0 ; ; BYTE: "#",0; 0D10 07 8A DW XP12 ; ; WORD: XP12; 0D12 3E 00 DB ">",0 ; ; BYTE: ">,0; 0D14 07 92 DW XP13 ; ; WORD: XP13; 0D16 3D 00 DB "=",0 ; ; BYTE: "=",0; 0D18 ; 0D18 07 A8 DW XP15 ; ; WORD: XP15; 0D1A 3C 3D 00 DB "<=",0 ; ; BYTE: "<=",0; 0D1D 07 9C DW XP14 ; ; WORD: XP14; 0D1F 3C 00 DB "<",0 ; ; BYTE: "<",0; 0D21 07 B0 DW XP16 ; ; WORD: XP16; 0D23 00 DB 0 ; BYTE: 0; 0D24 07 B8 DW XP17 ; ; WORD: XP17; 0D26 ; 0D26 ; %**************** 0D26 ; % DIRECT MODULE * 0D26 ; %**************** 0D26 ; 0D26 DIRECT: 0D26 76 04 0C 09 DW $7604,$0C09 ; LD R4,^TAB1-1; 0D2A EXEC: 0D2A EX0: 0D2A 04 BA DW $04BA ; CALR IGNB; 0D2C 93 F5 DW $93F5 ; PUSH R15^,R5; 0D2E EX1: 0D2E 20 59 DW $2059 ; LDB RL1,R5^; 0D30 A9 50 DW $A950 ; INC R5,1; 0D32 0A 09 2E 2E DW $0A09,$2E2E ; CPB RL1,"."; 0D36 E6 0D DW $E60D ; JR ZR,EX3; 0D38 A9 40 DW $A940 ; INC R4,1; 0D3A 0A 49 DW $0A49 ; CPB RL1,R4^; 0D3C E6 F8 DW $E6F8 ; JR ZR,EX1; 0D3E 8C 98 DW $8C98 ; CLRB RL1; 0D40 AB 50 DW $AB50 ; DEC R5,1; 0D42 0A 49 DW $0A49 ; CPB RL1,R4^; 0D44 E6 0A DW $E60A ; JP ZR,EX5; 0D46 EX2: 0D46 A9 40 DW $A940 ; INC R4,1; 0D48 0A 49 DW $0A49 ; CPB RL1,R4^; 0D4A EE FD DW $EEFD ; JR NZ,EX2; 0D4C A9 41 DW $A941 ; INC R4,2; 0D4E 97 F5 DW $97F5 ; POP R5,R15^ 0D50 E8 EC DW $E8EC ; JR EX0; 0D52 EX3: 0D52 8C 98 DW $8C98 ; CLRB RL1; 0D54 EX4: 0D54 A9 40 DW $A940 ; INC R4,1; 0D56 0A 49 DW $0A49 ; CPB RL1,R4^; 0D58 EE FD DW $EEFD ; JR NZ,EX4;; 0D5A EX5: 0D5A A9 40 DW $A940 ; INC R4,1; 0D5C 20 40 DW $2040 ; LDB RH0,R4^; 0D5E A9 40 DW $A940 ; INC R4,1; 0D60 20 48 DW $2048 ; LDB RLO,R4^; 0D62 97 F1 DW $97F1 ; POP R1,R15^; 0D64 1E 08 DW $1E08 ; JP R0^; 0D66 ; 0D66 ; %*********** 0D66 ; % END EXEC * 0D66 ; %*********** 0D66 ; 0D66 ; % EINZELNE ROUTINEN 0D66 ; 0D66 CXBUFE: 0D66 ; 0D66 ; 0D66 61 00 12 1A DW $6100,$121A ; LD R0,BUFEND; 0D6A 8A 89 DW $8A89 ; CPB RL1,RL0; 0D6C 9E 08 DW $9E08 ; RET; 0D6E ; 0D6E CXBUFA: 0D6E 61 00 12 18 DW $6100,$1218 ; LD R0,BUFFER; 0D72 8A 89 DW $8A89 ; CPB RL1,RL0; 0D74 9E 08 DW $9E08 ; RET; 0D76 END1: 0D76 D3 01 DW $D301 ; CALR EXPR; 0D78 76 05 14 76 DW $7605,$1476 ; LD R5,^TXTE; 0D7C 8B 54 DW $8B54 ; CP R4,R5; 0D7E 5E 07 09 AE DW $5E07,$09AE ; JP CY,ASORRY; 0D82 84 44 DW $8444 ; ORB RH4,RH4; 0D84 5E 05 09 AE DW $5E05,$09AE ; JP MI;ASORRY; 0D88 21 40 DW $2140 ; LD R0,R4^; 0D8A 0D 40 DW $0D40 ; COM R4^; 0D8C 8D 00 DW $8D00 ; COM R0; 0D8E 0B 40 DW $0B40 ; CP R0,R4^; 0D90 5E 0E 09 AE DW $5E0E,$09AE ; JP NZ,ASORRY; 0D94 6F 04 12 1A DW $6F04,$121A ; LD BUFEND,R4^; 0D98 03 04 00 84 DW $0304,$0084 ; SUB R4,132; 0D9C 6F 04 12 18 DW $6F04,$1218 ; LD BUFFER,R4; 0DA0 AB 41 DW $AB41 ; DEC R4,2; 0DA2 6F 04 12 16 DW $6F04,$1216 ; LD TXTEND,R4; 0DA6 5E 08 04 8C DW $5E08,$048C ; JP RSTART; 0DAA BYE: 0DAA 7F FF DW $7FFF ; SC 255; 0DAC 5E 08 04 8C DW $5E08,$048C ; JP RSTART; 0DB0 CALL1: 0DB0 D3 1E DW $D31E ; CALR EXPR; 0DB2 93 F5 DW $93F5 ; PUSH R15^,R5; 0DB4 76 06 0D BC DW $7606,$0DBC ; LD R6,^HERE; 0DB8 93 F6 DW $93F6 ; PUSH R15^,R6; 0DBA 1E 48 DW $1E48 ; JP R4^; 0DBC HERE: 0DBC 97 F5 DW $97F5 ; POP R5,R15^; % NUR IN SYS MODE 0DBE D4 FE DW $D4FE ; CALR FINI; 0DC0 OUT1: 0DC0 D2 98 DW $D298 ; CALR PARN; 0DC2 93 F4 DW $93F4 ; PUSH R15^,R1; 0DC4 D4 DD 3D 3D 0D D2 DW $D4DD,$3D3D,$0DD2 ; TESTC ="RSV0; 0DCA D3 2B DW $D32B ; CALR EXPR; 0DCC ; 0DCC 97 F0 DW $97F0 ; POP R0,R15^; 0DCE 3F 04 DW $3F04 ; OUT R0^,R4; 0DD0 D5 07 DW $D507 ; CALR FINI; 0DD2 RSV0: 0DD2 5E 08 09 6A DW $5E08,$096A ; JP QWHAT; 0DD6 ; 0DD6 TAB: 0DD6 D2 A3 DW $D2A3 ; CALR PARM; 0DD8 A1: 0DD8 85 44 DW $8544 ; OR R4,R4 0DDA EE 01 DW $EE01 ; JR NZ,SK4; 0DDC D5 0D DW $D50D ; CALR FINI; 0DDE SK4: 0DDE AB 40 DW $AB40 ; DEC R4,1; 0DE0 C9 20 DW $C920 ; LDB RL1," "; 0DE2 D1 1E DW $D11E ; CALR OUTC; 0DE4 E8 F9 DW $E8F9 ; JR A1 0DE6 IN1: 0DE6 D2 AB DW $D2AB ; CALR PARN; 0DE8 A1 40 DW $A140 ; LD R0,R4; 0DEA 3D 04 DW $3D04 ; IN R4,R0^; 0DEC 9E 08 DW $9E08 ; RET; 0DEE ; 0DEE ; 0DEE OO: 0DEE D3 3D DW $D33D ; CALR EXPR; 0DF0 93 F5 DW $93F5 ; PUSH R15^,R5; 0DF2 AD 54 DW $AD54 ; EX R4,R5; 0DF4 8D 18 DW $8D18 ; CLR R1; 0DF6 5F 00 0A 38 DW $5F00,$0A38 ; CALL PRTSTG; 0DFA 97 F5 DW $97F5 ; POP R5,R15^; 0DFC D5 1D DW $D51D ; CALR FINI; 0DFE II: 0DFE D3 45 DW $D345 ; CALR EXPR; 0E00 93 F5 DW $93F5 ; PUSH R15^,R5; 0E02 61 05 10 1C DW $6105,$101c ; LD R5,TXTUNF; 0E06 8B 54 DW $8B54 ; CP R4,R5; 0E08 5E 07 09 AE DW $5E07,$09AE ; JP CY,ASORRY; 0E0C 61 05 12 18 DW $6105,$1218 ; LD R5,BUFFER; 0E10 D2 2B DW $D22B ; CALR GL1; 0E12 A1 46 DW $A146 ; LD R6,R4; 0E14 AD 54 DW $AD54 ; EX R4,R5; 0E16 AB 40 DW $AB40 ; DEC R4,1; 0E18 61 05 12 18 DW $6105,$1218 ; LD R5,BUFFER; 0E1C 93 F5 DW $93F5 ; PUSH R15^,R5; 0E1E D1 94 DW $D194 ; CALR MVUP; 0E20 0C 68 DW $0C68 ; CLRB R6^; 0E22 97 F5 DW $97F5 ; POP R5,R15^; 0E24 A9 40 DW $A940 ; INC R4,1; 0E26 83 54 DW $8354 ; SUB R4,R5; 0E28 AD 54 DW $AD54 ; EX R4,R5; 0E2A 76 04 10 00 DW $7604,$1000 ; LD R4,^LEGT; 0E2E 2E 4D DW $2E4D ; LDB R4^,RL5; 0E30 A9 40 DW $A940 ; INC R4,1; 0E32 2E 45 DW $2E45 ; LDB R4^,RH5; 0E34 97 F5 DW $97F5 ; POP R5,R15^; 0E36 D5 3A DW $D53A ; CALR FINI; 0E38 ; 0E38 PEEK: 0E38 D2 D4 DW $D2D4 ; CALR PARN; 0E3A 20 4C DW $204C ; LDB RL4,R4^; 0E3C 8C 48 DW $8C48 ; CLRB RH4; 0E3E 9E 08 DW $9E08 ; RET; 0E40 ; 0E40 POKE: 0E40 D3 66 DW $D366 ; CALR EXPR; 0E42 93 F4 DW $93F4 ; PUSH R15^,R4^; 0E44 D5 1D 2C 2C 0E 54 DW $D51D,$2C2C,$0E54 ; TESTC .",PK1; 0E4A D3 6B DW $D36B ; CALR EXPR; 0E4C A0 C9 DW $A0C9 ; LDB RL1,RL4; 0E4E 97 F4 DW $97F4 ; POP R4,R15^; 0E50 2E 49 DW $2E49 ; LDB R4^,RL1; 0E52 D5 3A DW $D53A ; CALR FINI; 0E54 PK1: 0E54 5E 08 09 6A DW $5E08,$096A ; JP QWHAT; 0E58 BYTE1: 0E58 D2 E4 DW $D2E4 ; CALR PARN; 0E5A A0 C9 DW $A0C9 ; LDB RL1,RL4; 0E5C DF F9 DW $DFF9 ; CALR WRIT2; 0E5E D5 4E DW $D54E ; CALR FINI; 0E60 ; 0E60 WORD1: 0E60 D2 E8 DW $D2E8 ; CALR PARN; 0E62 A0 49 DW $A049 ; LDB RL1,RH4; 0E64 DF FD DW $DFFD ; CALR WRIT2; 0E66 A0 C9 DW $A0C9 ; LDB RL1,RL4; 0E68 DF FF DW $DFFF ; CALR WRIT2; 0E6A D5 54 DW $D554 ; CALR FINI; 0E6C ; 0E6C WRIT2: 0E6C 93 F1 DW $93F1 ; PUSH R15^,R1; 0E6E B3 11 FB FC DW $B311,$FBFC ; SRL R1,4; 0E72 DF FF DW $DFFF ; CALR IST; 0E74 97 F1 DW $97F1 ; POP R1,R15^; 0E76 IST: 0E76 06 09 0F 0F DW $0609,$0F0F ; ANDB RL1,0FH; 0E7A 00 09 90 90 DW $0009,$9090 ; ADDB RL1,90H; 0E7E B0 90 DW $B090 ; DAB RL1; 0E80 C8 40 DW $C840 ; LDB RL0,4OH; 0E82 B4 89 DW $B489 ; ADCB RL1,RL0; 0E84 B0 90 DW $B090 ; DAB RL1; 0E86 5E 08 0B A8 DW $5E08,$0BA8 ; JP OUTC; 0E8A ; 0E8A CSTAT: 0E8A 5F 00 03 B0 DW $5F00,$03B0 ; CALL CSTS; 0E8E A0 9C DW $A09C ; LDB RL4,RL1; 0E90 8C 48 DW $8C48 ; CLRB RH4; 0E92 9E 08 DW $9E08 ; RET; 0E94 ; 0E94 QUOTE: 0E94 20 59 DW $2059 ; LDB RL1,R5^; 0E96 A9 50 DW $A950 ; INC R5,1; 0E98 A0 9C DW $A09C ; LDB RL4,RL1; 0E9A 8C 48 DW $8C48 ; CLRB RH4; 0E9C D5 49 27 27 0E A4 DW $D549,$2727,$0EA4 ; TESTC 27H,ASCI; 0EA2 9E 08 DW $9E08 ; RET; 0EA4 ASCI: 0EA4 5E 08 09 6A DW $5E08,$096A ; JP QWHAT; 0EA8 ; 0EA8 TOP: 0EA8 61 04 10 1C DW $6104,$101C ; LD R4,TXTUNF; 0EAC A9 40 DW $A940 ; INC R4,1; 0EAE 9E 08 DW $9E08 ; RET; 0EB0 ; 0EB0 LENGTH: 0EB0 61 04 10 00 DW $6104,$1000 ; LD R4,LEGT; 0EB4 AB 40 DW $AB40 ; DEC R4,1; 0EB6 9E 08 DW $9E08 ; RET; 0EB8 ; 0EB8 OUTCHAR: 0EB8 D3 A2 DW $D3A2 ; CALR EXPR; 0EBA A0 C9 DW $A0C9 ; LDB RL1,RL4; 0EBC 5F 00 0B A8 DW $5F00,$0BA8 ; CALL OUTC; 0EC0 D5 7F DW $D57F ; CALR FINI; 0EC2 ; 0EC2 INCHAR: 0EC2 D1 76 DW $D176 ; CALR CHKIO; 0EC4 A0 9C DW $A09C ; LDB RL4,RL1; 0EC6 8C 48 DW $8C48 ; CLRB RH4; 0EC8 9E 08 DW $9E08 ; RET; 0ECA ; 0ECA HEX: 0ECA 93 F6 DW $93F6 ; PUSH R15^,R6; 0ECC 8D 48 DW $8D48 ; CLR R4; 0ECE D5 62 28 28 0E F4 DW $D562,$2828,$0EF4 ; TESTC "(",HN2; 0ED4 HNXTH: 0ED4 20 59 DW $2059 ; LDB RL1,R5^; 0ED6 0A 09 0D 0D DW $0A09,$0D0D ; CPB RL1,0DH; 0EDA 5E 06 09 6A DW $5E06,$096A ; JP ZR,QWHAT; 0EDE DF F4 DW $DFF4 ; CALR CNVBN; 0EE0 B3 49 00 04 DW $B349,$0004 ; SLA R4,4; 0EE4 8C 18 DW $8C18 ; CLRB RH1; 0EE6 81 14 DW $8114 ; ADD R4,R1; 0EE8 A9 50 DW $A950 ; INC R5,1; 0EEA D5 70 29 29 0E D4 DW $D570,$2929,$0ED4 ; TESTC ")",HNXTH; 0EF0 POPRET: 0EF0 97 F6 DW $97F6 ; POP R6,R15^; 0EF2 9E 08 DW $9E08 ; RET; 0EF4 ; 0EF4 HN2: 0EF4 5E 08 09 6A DW $5E08,$096A ; JP QWHAT; 0EF8 ; 0EF8 CNDBN: 0EF8 0A 09 30 30 DW $0A09,$3030 ; CPB RL1,"0"; 0EFC 5E 05 09 6A DW $5E05,$096A ; JP M1,QWHAT; 0F00 0A 09 39 39 DW $0A09,$3939 ; CPB RL1,"9"; 0F04 E5 09 DW $E509 ; JR M1,CONTC; 0F06 E6 08 DW $E608 ; JR ZR,CONTC; 0F08 0A 09 41 41 DW $0A09,$4141 ; CPB RL1,"A"; 0F0C 5E 05 09 6A DW $5E05,$096A ; JP M1,QWHAT; 0F10 0A 09 47 47 DW $0A09,$4747 ; CPB RL1,"C; 0F14 5E 0D 09 6A DW $5E0D,$096A ; JP PL,QWHAT; 0F18 CONTC: 0F18 02 09 30 30 DW $0209,$3030 ; SUBB RL1,"0"; 0F1C 0A 09 0A 0A DW $0A09,$0A0A ; CPB RL1,1O; 0F20 9E 05 DW $9E05 ; RET MI; 0F22 02 09 07 07 DW $0209,$0707 ; SUBB RL1,7; 0F26 9E 08 DW $9E08 ; RET; 0F28 CONT: ; % FLAGB 0F28 5F 00 03 B0 DW $5F00,$03B0 ; CALL CSTS; 0F2C 85 11 DW $8511 ; OR R1,R1 0F2E 9E 06 DW $9E06 ; RET ZR; 0F30 5F 00 03 7C DW $5F00,$037C ; CALL CI; 0F34 0A 09 03 03 DW $0A09,$0303 ; CPB RL1-3; 0F38 9E 0E DW $9E0E ; RET NZ; 0F3A 5E 08 04 8C DW $5E08,$048C ; JP RSTART; 0F3E END START1: 0010 DEFINED AT LINE 13 LOOP: 0048 DEFINED AT LINE 29 LOOPMAIN: 0052 DEFINED AT LINE 34 LPLAD1: 009E DEFINED AT LINE 62 LPLAD2: 00A6 DEFINED AT LINE 66 LPLAD3: 00B0 DEFINED AT LINE 70 MLPLAD: 00CA DEFINED AT LINE 82 GO: 00E2 DEFINED AT LINE 96 REGISTER: 00F4 DEFINED AT LINE 103 LOPA: 0112 DEFINED AT LINE 117 LOPB: 012C DEFINED AT LINE 129 TXT2: 013C DEFINED AT LINE 139 TXT3: 0166 DEFINED AT LINE 149 DISPLAY: 0190 DEFINED AT LINE 160 MLOOP1: 0198 DEFINED AT LINE 165 MLOOP2: 01A2 DEFINED AT LINE 170 ENTER: 01B8 DEFINED AT LINE 183 ELOOP: 01BC DEFINED AT LINE 186 CONTSFC: 01DE DEFINED AT LINE 200 MINUS: 01E8 DEFINED AT LINE 206 TXTFCW: 01EE DEFINED AT LINE 210 CRLF111: 01F6 DEFINED AT LINE 214 EXPR11: 0204 DEFINED AT LINE 220 EX00: 0208 DEFINED AT LINE 222 EX11: 020A DEFINED AT LINE 224 NIBBLE: 0216 DEFINED AT LINE 230 EX22: 023C DEFINED AT LINE 244 PRRISP: 023E DEFINED AT LINE 247 ECHO: 0244 DEFINED AT LINE 251 SPACE: 0256 DEFINED AT LINE 260 PRIN11: 025E DEFINED AT LINE 265 TXT1: 0272 DEFINED AT LINE 275 NMOUT: 0298 DEFINED AT LINE 292 OUTCH: 02B4 DEFINED AT LINE 304 PSEUDO: 02B8 DEFINED AT LINE 308 SYSCALL: 02E0 DEFINED AT LINE 321 SK1: 0300 DEFINED AT LINE 331 SK2: 030A DEFINED AT LINE 336 SK3: 0314 DEFINED AT LINE 341 FINA: 0340 DEFINED AT LINE 357 TXTBR: 0350 DEFINED AT LINE 365 TXTPSX: 0362 DEFINED AT LINE 370 CSTSA: 0372 DEFINED AT LINE 379 CI: 037C DEFINED AT LINE 384 CO: 0390 DEFINED AT LINE 392 CO1: 0392 DEFINED AT LINE 394 CSTS: 03B0 DEFINED AT LINE 420 COMP: 03B4 DEFINED AT LINE 424 IGNB: 03B8 DEFINED AT LINE 429 FINI: 03C4 DEFINED AT LINE 436 TSTV: 03CC DEFINED AT LINE 441 TV1: 03F6 DEFINED AT LINE 461 TSTC: 040C DEFINED AT LINE 471 TC2: 041C DEFINED AT LINE 481 TC3: 0424 DEFINED AT LINE 486 TSTNUM: 0428 DEFINED AT LINE 490 TN1: 042E DEFINED AT LINE 494 QHOW: 0464 DEFINED AT LINE 518 AHOW: 0466 DEFINED AT LINE 520 HOW: 046E DEFINED AT LINE 524 OK: 0474 DEFINED AT LINE 527 WHAT: 047C DEFINED AT LINE 530 SORRY: 0484 DEFINED AT LINE 533 ST1: 0490 DEFINED AT LINE 545 ST2: 04A2 DEFINED AT LINE 552 ST3: 04AE DEFINED AT LINE 557 ST4: 04EC DEFINED AT LINE 586 NEW: 051E DEFINED AT LINE 618 > USED AT LINE 1513 STOP: 0528 DEFINED AT LINE 622 > USED AT LINE 1540 RUN: 052E DEFINED AT LINE 625 > USED AT LINE 1511 RUNNXL: 0534 DEFINED AT LINE 628 RUNTSL: 053C DEFINED AT LINE 632 RUNSML: 0542 DEFINED AT LINE 635 GOTO: 054C DEFINED AT LINE 639 > USED AT LINE 1526 LIST1: 055C DEFINED AT LINE 651 > USED AT LINE 1509 LS1: 0562 DEFINED AT LINE 655 PRINT: 056E DEFINED AT LINE 661 > USED AT LINE 1538 PR2: 057C DEFINED AT LINE 666 PR0: 0588 DEFINED AT LINE 670 PR1: 0596 DEFINED AT LINE 675 PR3: 059A DEFINED AT LINE 678 PR6: 05A4 DEFINED AT LINE 682 GOSUB: 05B4 DEFINED AT LINE 694 > USED AT LINE 1528 RETURN: 05D4 DEFINED AT LINE 706 > USED AT LINE 1530 FOR1: 05F0 DEFINED AT LINE 722 > USED AT LINE 1534 FR1: 0602 DEFINED AT LINE 729 > USED AT LINE 1590 FR2: 0610 DEFINED AT LINE 734 > USED AT LINE 1596 FR3: 0614 DEFINED AT LINE 737 > USED AT LINE 1598 FR4: 0618 DEFINED AT LINE 739 FR5: 061C DEFINED AT LINE 741 FR7: 0634 DEFINED AT LINE 749 SKIP1: 0636 DEFINED AT LINE 751 FR8: 065A DEFINED AT LINE 769 NEXT: 0662 DEFINED AT LINE 774 > USED AT LINE 1520 NX0: 066C DEFINED AT LINE 779 NX3: 0688 DEFINED AT LINE 792 NX4: 06A2 DEFINED AT LINE 805 NX1: 06BA DEFINED AT LINE 816 NX5: 06D0 DEFINED AT LINE 825 NX2: 06D4 DEFINED AT LINE 828 REM: 06D8 DEFINED AT LINE 834 > USED AT LINE 1532 IFF: 06DC DEFINED AT LINE 837 > USED AT LINE 1524 IFFR: 06DE DEFINED AT LINE 839 INPERR: 06EE DEFINED AT LINE 846 INPUT: 06F8 DEFINED AT LINE 852 > USED AT LINE 1536 IP1: 06F8 DEFINED AT LINE 853 IP2: 0704 DEFINED AT LINE 860 IP3: 0720 DEFINED AT LINE 873 IP4: 0756 DEFINED AT LINE 895 IP5: 0760 DEFINED AT LINE 899 DEFLT: 0762 DEFINED AT LINE 901 > USED AT LINE 1561 LET: 076A DEFINED AT LINE 905 > USED AT LINE 1522 LT1: 0774 DEFINED AT LINE 909 EXPR: 0776 DEFINED AT LINE 916 EXPR1: 077A DEFINED AT LINE 919 XP11: 0782 DEFINED AT LINE 922 > USED AT LINE 1602 XP12: 078A DEFINED AT LINE 927 > USED AT LINE 1604 XP13: 0792 DEFINED AT LINE 932 > USED AT LINE 1606 XP14: 079C DEFINED AT LINE 939 > USED AT LINE 1611 XP15: 07A8 DEFINED AT LINE 946 > USED AT LINE 1609 XP16: 07B0 DEFINED AT LINE 951 > USED AT LINE 1613 XP17: 07B8 DEFINED AT LINE 956 > USED AT LINE 1615 XP18: 07BC DEFINED AT LINE 959 EXPR2: 07D8 DEFINED AT LINE 974 XP21: 07E2 DEFINED AT LINE 978 XP22: 07E8 DEFINED AT LINE 980 XP23: 07EA DEFINED AT LINE 982 XP24: 07F4 DEFINED AT LINE 986 XP25: 080C DEFINED AT LINE 997 EXPR3: 081C DEFINED AT LINE 1003 XP31: 081E DEFINED AT LINE 1005 XP34: 0844 DEFINED AT LINE 1022 XP35: 0866 DEFINED AT LINE 1037 EXPR4: 0876 DEFINED AT LINE 1045 XP40: 087E DEFINED AT LINE 1048 > USED AT LINE 1587 XP41: 088C DEFINED AT LINE 1056 PARN: 0892 DEFINED AT LINE 1060 XP42: 08A0 DEFINED AT LINE 1064 XP43: 08A2 DEFINED AT LINE 1066 RND: 08A6 DEFINED AT LINE 1068 > USED AT LINE 1565 RA1: 08CA DEFINED AT LINE 1081 ABS1: 08E4 DEFINED AT LINE 1094 > USED AT LINE 1567 SIZE: 08EE DEFINED AT LINE 1100 > USED AT LINE 1569 CHKSGN: 0904 DEFINED AT LINE 1117 CHGSGN: 0908 DEFINED AT LINE 1120 CHKHLDE: 091C DEFINED AT LINE 1129 CK1: 0924 DEFINED AT LINE 1134 SETVAL: 0928 DEFINED AT LINE 1141 SV1: 0944 DEFINED AT LINE 1153 FIN: 0948 DEFINED AT LINE 1155 FI1: 0954 DEFINED AT LINE 1159 FI2: 0960 DEFINED AT LINE 1163 ENDCHK: 0962 DEFINED AT LINE 1166 QWHAT: 096A DEFINED AT LINE 1170 > USED AT LINE 1592 AWHAT: 096C DEFINED AT LINE 1172 ERROR: 0970 DEFINED AT LINE 1174 QSORRY: 09AC DEFINED AT LINE 1201 ASORRY: 09AE DEFINED AT LINE 1203 GETLN: 09B6 DEFINED AT LINE 1210 GL1: 09BC DEFINED AT LINE 1213 GL3: 09E6 DEFINED AT LINE 1231 GL4: 09F4 DEFINED AT LINE 1239 FNDLN: 09FC DEFINED AT LINE 1243 FNDLP: 0A06 DEFINED AT LINE 1247 FL1: 0A06 DEFINED AT LINE 1248 FNDNXT: 0A28 DEFINED AT LINE 1265 FL2: 0A2A DEFINED AT LINE 1267 FNDSKP: 0A2C DEFINED AT LINE 1269 PS1: 0A3A DEFINED AT LINE 1280 QTSTC: 0A4C DEFINED AT LINE 1289 QT1: 0A54 DEFINED AT LINE 1292 QT2: 0A62 DEFINED AT LINE 1297 QT3: 0A74 DEFINED AT LINE 1305 QT4: 0A7E DEFINED AT LINE 1309 QT5: 0A8E DEFINED AT LINE 1315 PRTNUM: 0A90 DEFINED AT LINE 1318 PN1: 0A9C DEFINED AT LINE 1324 PN2: 0AA8 DEFINED AT LINE 1330 PN3: 0AB8 DEFINED AT LINE 1339 PN4: 0ABA DEFINED AT LINE 1341 PN5: 0AC6 DEFINED AT LINE 1348 SKIP2: 0ACE DEFINED AT LINE 1353 PN6: 0AD0 DEFINED AT LINE 1355 PRTLN: 0AE2 DEFINED AT LINE 1363 MVUP: 0AF8 DEFINED AT LINE 1380 MVDOWN: 0B02 DEFINED AT LINE 1386 POPA: 0B10 DEFINED AT LINE 1394 PP1: 0B2E DEFINED AT LINE 1405 PUSHA: 0B32 DEFINED AT LINE 1409 PU1: 0B60 DEFINED AT LINE 1424 INIT: 0B6C DEFINED AT LINE 1435 CRLF: 0BA6 DEFINED AT LINE 1453 OUTC: 0BA8 DEFINED AT LINE 1455 OC2: 0BB2 DEFINED AT LINE 1460 OC3: 0BBA DEFINED AT LINE 1466 LPT: 0BC0 DEFINED AT LINE 1470 HI: 0BC6 DEFINED AT LINE 1473 LINEF: 0BD0 DEFINED AT LINE 1479 CHKIO: 0BD8 DEFINED AT LINE 1484 CI1: 0BEA DEFINED AT LINE 1492 MSG1: 0BF4 DEFINED AT LINE 1497 TAB1: 0C0A DEFINED AT LINE 1507 TAB2: 0C29 DEFINED AT LINE 1518 TAB4: 0CB2 DEFINED AT LINE 1563 TAB5: 0CF7 DEFINED AT LINE 1588 TAB6: 0CFF DEFINED AT LINE 1594 TAB8: 0D09 DEFINED AT LINE 1600 DIRECT: 0D26 DEFINED AT LINE 1621 EXEC: 0D2A DEFINED AT LINE 1623 EX0: 0D2A DEFINED AT LINE 1624 EX1: 0D2E DEFINED AT LINE 1627 EX2: 0D46 DEFINED AT LINE 1639 EX3: 0D52 DEFINED AT LINE 1646 EX4: 0D54 DEFINED AT LINE 1648 EX5: 0D5A DEFINED AT LINE 1652 CXBUFE: 0D66 DEFINED AT LINE 1666 CXBUFA: 0D6E DEFINED AT LINE 1673 END1: 0D76 DEFINED AT LINE 1677 > USED AT LINE 1517 BYE: 0DAA DEFINED AT LINE 1695 > USED AT LINE 1515 CALL1: 0DB0 DEFINED AT LINE 1698 > USED AT LINE 1542 HERE: 0DBC DEFINED AT LINE 1704 OUT1: 0DC0 DEFINED AT LINE 1707 > USED AT LINE 1546 RSV0: 0DD2 DEFINED AT LINE 1716 TAB: 0DD6 DEFINED AT LINE 1719 > USED AT LINE 1555 A1: 0DD8 DEFINED AT LINE 1721 SK4: 0DDE DEFINED AT LINE 1725 IN1: 0DE6 DEFINED AT LINE 1730 > USED AT LINE 1577 OO: 0DEE DEFINED AT LINE 1737 > USED AT LINE 1549 II: 0DFE DEFINED AT LINE 1745 > USED AT LINE 1551 PEEK: 0E38 DEFINED AT LINE 1771 > USED AT LINE 1571 POKE: 0E40 DEFINED AT LINE 1777 > USED AT LINE 1553 PK1: 0E54 DEFINED AT LINE 1787 BYTE1: 0E58 DEFINED AT LINE 1789 > USED AT LINE 1557 WORD1: 0E60 DEFINED AT LINE 1795 > USED AT LINE 1559 WRIT2: 0E6C DEFINED AT LINE 1803 IST: 0E76 DEFINED AT LINE 1808 CSTAT: 0E8A DEFINED AT LINE 1817 > USED AT LINE 1585 QUOTE: 0E94 DEFINED AT LINE 1823 > USED AT LINE 1579 ASCI: 0EA4 DEFINED AT LINE 1830 TOP: 0EA8 DEFINED AT LINE 1833 > USED AT LINE 1581 LENGTH: 0EB0 DEFINED AT LINE 1838 > USED AT LINE 1583 OUTCHAR: 0EB8 DEFINED AT LINE 1843 > USED AT LINE 1544 INCHAR: 0EC2 DEFINED AT LINE 1849 > USED AT LINE 1573 HEX: 0ECA DEFINED AT LINE 1855 > USED AT LINE 1575 HNXTH: 0ED4 DEFINED AT LINE 1861 POPRET: 0EF0 DEFINED AT LINE 1871 HN2: 0EF4 DEFINED AT LINE 1875 CNDBN: 0EF8 DEFINED AT LINE 1878 CONTC: 0F18 DEFINED AT LINE 1888 CONT: 0F28 DEFINED AT LINE 1895