home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Outlet 55
/
outlet-55.mgt
/
zlb
< prev
next >
Wrap
Text File
|
2021-04-18
|
20KB
|
1 lines
RET NZ INC HL LD A,(HL) DEC HL CP C RET 1988 INC HL INC HL INC HL 198B EACH.STMT LD (5C5D),HL;CH.ADD LD C,00 1990 EACH.S.1 DEC D RET Z RST 0020;NEXT.CHAR CP E JR NZ,199A;EACH.S.3 AND A RET 1998 EACH.S.2 INC HL LD A,(HL) 199A EACH.S.3 CALL 18B6;NUMBER LD (5C5D),HL;CH.ADD CP '"' JR NZ,19A5;EACH.S.4 DEC C 19A5 EACH.S.4 CP ':' JR Z,19AD;EACH.S.5 CP 'THEN' JR NZ,19B1;EACH.S.6 19AD EACH.S.5 BIT 0,C JR Z,1990;EACH.S.1 19B1 EACH S.6 CP 0D JR NZ,1998;EACH.S.2 DEC D SCF RET 19B8 NEXT.ONE PUSH HL LD A,(HL) CP 40 JR C,19D5;NEXT.O.3 BIT 5,A JR Z,19D6;NEXT.O.4 ADD A,A JP M,19C7;NEXT.O.1 CCF 19C7 NEXT.O.1 LD BC,0005 JR NC,19CE;NEXT.O.2 LD C,12 19CE NEXT.O.2 RLA INC HL LD A,(HL) JR NC,19CE;NEXT.O.2 JR 19DB;NEXT.O.5 19D5 NEXT.O.3 INC HL 19D6 NEXT.O.4 INC HL LD C,(HL) INC HL LD B,(HL) INC HL 19DB NEXT.O.5 ADD HL,BC POP DE 19DD DIFFER AND A SBC HL,DE LD B,H LD C,L ADD HL,DE EX DE,HL RET 19E5 RECLAIM.1 CALL 19DD;DIFFER 19E8 RECLAIM.2 PUSH BC LD A,B CPL LD B,A LD A,C CPL LD C,A INC BC CALL 1664;POINTERS EX DE,HL POP HL ADD HL,DE PUSH DE LDIR POP HL RET 19FB E.LINE.NO LD HL,(5C59);E.LINE DEC HL LD (5C5D),HL;CH.ADD RST 0020;NEXT.CHAR LD HL,5C92;MEMBOT LD (5C65),HL;STKEND CALL 2D3B;INT.YO.FP CALL 2DA2;FP.TO.BC JR C,1A15;E.L.1 LD HL,D8F0;10,000d ADD HL,BC 1A15 E.L.1 JP C,1C8A;REPORT.C JP 16C5;SET.STK 1A1B OUT.NUM.1 PUSH DE PUSH HL XOR A BIT 7,B JR NZ,1A42;OUT.NUM.4 LD H,B LD L,C LD E,FF JR 1A30,OUT.NUM.3 1A28 OUT.NUM.2 PUSH DE LD D,(HL) INC HL LD E,(HL) PUSH HL EX DE,HL LD E,20 1A30 OUT.NUM.3 LD BC,FC18;-1,000d CALL 192A;OUT.SP.NO LD BC,FF9C;-100d CALL 192A;OUT.SP.NO LD C,F6;-10d CALL 192A;OUT.SP.NO LD A,L 1A42 OUT.NUM.4 CALL 15EF;OUT.CODE POP HL POP DE RET 1A48 DEFB 1AF9-1A48;P.DEF.FN DEFB 1B14-1A49;P.CAT DEFB 1B06-1A4A;P.FORMAT DEFB 1B0A-1A4B;P.MOVE DEFB 1B10-1A4C;P.ERASE DEFB 1AFC-1A4D;P.OPEN DEFB 1B02-1A4E;P.CLOSE DEFB 1AE2-1A4F;P.MERGE DEFB 1AE1-1A50;P.VERIFY DEFB 1AE3-1A51;P.BEEP DEFB 1AE7-1A52;P.CIRCLE DEFB 1AEB-1A53;P.INK DEFB 1AEC-1A54;P.PAPER DEFB 1AED-1A55;P.FLASH DEFB 1AEE-1A56;P.BRIGHT DEFB 1AEF-1A57;P.INVERSE DEFB 1AF0-1A58;P.OVER DEFB 1AF1-1A59;P.OUT DEFB 1AD9-1A5A;P.LPRINT DEFB 1ADC-1A5B;P.LLIST DEFB 1A8A-1A5C;P.STOP DEFB 1AC9-1A5D;P.READ DEFB 1ACC-1A5E;P.DATA DEFB 1ACF-1A5F;P.RESTORE DEFB 1AA8-1A60;P.NEW DEFB 1AF5-1A61;P.BORDER DEFB 1AB8-1A62;P.CONT DEFB 1AA2-1A63;P.DIM DEFB 1AA5-1A64;P.REM DEFB 1A90-1A65;P.FOR DEFB 1A7D-1A66;P.GO.TO DEFB 1A86-1A67;P.GO.SUB DEFB 1A9F-1A68;P.INPUT DEFB 1AE0-1A69;P.LOAD DEFB 1AAE-1A6A;P.LIST DEFB 1A7A-1A6B;P.LET DEFB 1AC5-1A6C;P.PAUSE DEFB 1A98-1A6D;P.NEXT DEFB 1AB1-1A6E;P.POKE DEFB 1A9C-1A6F;P.PRINT DEFB 1AC1-1A70;P.PLOT DEFB 1AAB-1A71;P.RUN DEFB 1ADF-1A72;P.SAVE DEFB 1AB5-1A73;P.RANDOM DEFB 1A81-1A74;P.IF DEFB 1ABE-1A75;P.CLS DEFB 1AD2-1A76;P.DRAW DEFB 1ABB-1A77;P.CLEAR DEFB 1A8D-1A78;P.RETURN DEFB 1AD6-1A79;P.COPY 1A7A P.LET DEFB 01,'=',02 1A7D P.GO.TO DEFB 06,00 DEFW 1E67;GO.TO 1A81 P.IF DEFB 06,'THEN',05 DEFW 1CF0;IF 1A86 P.GO.SUB DEFB 06,00 DEFW 1EED;GO.SUB 1A8A P.STOP DEFB 00 DEFW 1CEE;STOP 1A8D P.RETURN DEFB 00 DEFW 1F23;RETURN 1A90 P.FOR DEFB 04,'=',06,'TO',06,05 DEFW 1D03;FOR 1A98 P.NEXT DEFB 04,00 DEFW 1DAB;NEXT 1A9C P.PRINT DEFB 05 DEFW 1FCD;PRINT 1A9F P.INPUT DEFB 05 DEFW 2089;INPUT 1AA2 P.DIM DEFB 05 DEFW 2C02;DIM 1AA5 P.REM DEFB 05 DEFW 1BB2;REM 1AA8 P.NEW DEFB 00 DEFW 11B7;NEW 1AAB P.RUN DEFB 03 DEFW 1EA1;RUN 1AAE P.LIST DEFB 05 DEFW 17F9;LIST 1AB1 P.POKE DEFB 08,00 DEFW 1E80;POKE 1AB5 P.RANDOM DEFB 03 DEFW 1E4F;RANDOMIZE 1AB8 P.CONT DEFB 00 DEFW 1E5F;CONTINUE 1ABB P.CLEAR DEFB 03 DEFW 1EAC;CLEAR 1ABE P.CLS DEFB 00 DEFW 0D6B;CLS 1AC1 P.PLOT DEFB 09,00 DEFW 22DC;PLOT 1AC5 P.PAUSE DEFB 06,00 DEFW 1F3A;PAUSE 1AC8 P.READ DEFB 05 DEFW 1DED;READ 1ACC P.DATA DEFB 05 DEFW 1E27;DATA 1ACF P.RESTORE DEFB 03 DEFW 1E42;RESTORE 1AD2 P.DRAW DEFB 09,05 DEFW 2382;DRAW 1AD6 P.COPY DEFB 00 DEFW 0EAC;COPY 1AD9 P.LPRINT DEFB 05 DEFW 1FC9;LPRIMT 1ADC P.LLIST DEFB 05 DEFW 17F5;LLIST 1ADF P.SAVE DEFB 0B 1AE0 P.LOAD DEFB 0B 1AE1 P.VERIFY DEFB 0B 1AE2 P.MERGE DEFB 0B 1AE3 P.BEEP DEFB 08,00 DEFW 03F8;BEEP 1AE7 P.CIRCLE DEFB 09,05 DEFW 2320;CIRCLE 1AEB P.INK DEFB 07 1AEC P.PAPER DEFB 07 1AED P.FLASH DEFB 07 1AEE P.BRIGHT DEFB 07 1AEF P.INVERSE DEFB 07 1AF0 P.OVER DEFB 07 1AF1 P.OUT DEFB 08,00 DEFW 1E7A;OUT 1AF5 P.BORDER DEFB 06,00 DEFW 2294;BORDER 1AF9 P.DEF.FN DEFB 05 DEFW 1F60;DEF.FN 1AFC P.OPEN DEFB 06,','0A,00 DEFW 1736;OPEN 1B02 P.CLOSE DEFB 06,00 DEFW 16E5;CLOSE 1B06 P.FORMAT DEFB 0A,00 DEFW 1793;CAT.ETC 1B0A P.MOVE DEFB 0A,','0A,00 DEFW 1793;CAT.ETC 1B10 P.ERASE DEFB 0A,00 DEFW 1793;CAT.ETC 1B14 P.CAT DEFB 00 DEFW 1793;CAT.ETC 1B17 LINE.SCAN RES 7,(IY+01);FLAGS CALL 19FB;E.LINE.NO XOR A LD (5C47),A;SUBPPC DEC A LD (5C3A),A;ERR.NR JR 1B29;STMT.L.1 1B28 STMT.LOOP RST 0020;NEXT.CHAR 1B29 STMT.L.1 CALL 16BF;SET.WORK INC (IY+0D);SUBPPC JP M,1C8A;REPORT.C RST 0018;GET.CHAR LD B,00 CP 0D JR Z,1BB3;LINE.END CP ':' JR Z,1B28;STMT.LOOP LD HL,1B76;STMT.RET PUSH HL LD C,A RST 0020;NEXT.CHAR LD A,C SUB CE JP C,1C8A;REPORT.C LD C,A LD HL,1A48;syntax offset table ADD HL,BC LD C,(HL) ADD HL,BC JR 1B55;GET.PARAM 1B52 SCAN.LOOP LD HL,(5C74);T.ADDR 1B55 GET.PARAM LD A,(HL) INC HL LD (5C74),HL;T.ADDR LD BC,1B52;SCAN.LOOP PUSH BC LD C,A