Outlet 55/outlet-55.mgt/zlb

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