home *** CD-ROM | disk | FTP | other *** search
/ Outlet 56 / outlet-56.mgt / zlh < prev    next >
Text File  |  2021-04-18  |  20KB  |  1 lines
  1.                  JR   NZ,2573;S.SCR.NEXT                                         DEC  A                                          255A S.SC.MATCH LD   C,A                                                        LD   B,07                                       255D S.SC.ROWS  INC  D                                                          INC  HL                                                         LD   A,(DE)                                                     XOR  (HL)                                                       XOR  C                                                          JR   NZ,2573;S.SCR.NEXT                                         DJNZ 255D;S.SC.ROWS                                             POP  BC                                                         POP  BC                                                         POP  BC                                                         LD   A,80                                                       SUB  B                                                          LD   BC,0001                                                    RST  0030;BC.SPACES                                             LD   (DE),A                                                     JR   257D;S.SCR.STO                             2573 S.SCR.NXT  POP  HL                                                         LD   DE,0008                                                    ADD  HL,DE                                                      POP  DE                                                         POP  BC                                                         DJNZ 254F;S.SCRN.LP                                             LD   C,B                                        257D S.SCR.STO  JP   2AB2;STK.STO.$                                                                                             2580 S.ATTR.S   CALL 2307;STK.TO.BC                                             LD   A,C                                                        RRCA                                                            RRCA                                                            RRCA                                                            LD   C,A                                                        AND  11100000B                                                  XOR  B                                                          LD   L,A                                                        LD   A,C                                                        AND  00000011B                                                  XOR  01011000B                                                  LD   H,A                                                        LD   A,(HL)                                                     JP   2D28;STACK.A                                                                                               2596            DEFB '"',25B3-2596;S.QUOTE                                      DEFB '(',25E8-2598;S.BRACKET                                    DEFB '.',268D-259A;S.DECIMAL                                    DEFB '+',25AF-259C;S.U.PLUS                                     DEFB 'FN',25F5-259E;S.FN                                        DEFB 'RND',25F8-25A0;S.RND                                      DEFB 'PI',2627-25A2;S.PI                                        DEFB 'INKEY$',2634-25A4;S.INKEY$                                DEFB 'BIN',268D-25A6;S.BIN (S.DECIMAL)                          DEFB 'SCREEN$',2668-25A8;S.SCREEN$                              DEFB 'ATTR',2672-25AA;S.ATTR                                    DEFB 'POINT',267B-25AC;S.POINT                                  DEFB 00                                                                                                         25AF S.U.PLUS   RST  0020;NEXT.CHAR                                             JP   24FF;S.LOOP.1                                                                                              25BE S.QUOTE    RST  0018;GET.CHAR                                              INC  HL                                                         PUSH HL                                                         LD   BC,0000                                                    CALL 250F;S.QUOTE.S                                             JR   NZ,25D9;S.Q.PRMS                           25BE S.Q.AGAIN  CALL 250F;S.QUOTE.S                                             JR   Z,25BE;S.Q.AGAIN                                           CALL 2530;SYNTAX.Z                                              JR   Z,25D9;S.Q.PRMS                                            RST  0030;BC.SPACES                                             POP  HL                                                         PUSH DE                                         25CB S.Q.COPY   LD   A,(HL)                                                     INC  HL                                                         LD   (DE),A                                                     INC  DE                                                         CP   '"'                                                        JR   NZ,25CB;S.Q.COPY                                           LD   A,(HL)                                                     INC  HL                                                         CP   '"'                                                        JR   Z,25CB;S.Q.COPY                            25D9 S.Q.PRMS   DEC  BC                                                         POP  DE                                                                                                         25DB S.STRING   LD   HL,5C3B;FLAGS                                              RES  6,(HL)                                                     BIT  7,(HL)                                                     CALL NZ,2AB2;STK.STO.$                                          JP   2712;S.CONT.2                                                                                              25E8 S.BRACKET  RST  0020;NEXT.CHAR                                             CALL 24FB;SCANNING                                              CP   ')'                                                        JP   NZ,1C8A;REPORT.C                                           RST  0020;NEXT.CHAR                                             JP   2712;S.CONT.2                                                                                              25F5 S.FN       JP   27BD;S.FN.SBRN                                                                                             25F8 S.RND      CALL 2530;SYNTAX.Z                                              JR   Z,2625;S.RND.END                                           LD   BC,(5C76);SEED                                             CALL 2D2B;STACK.BC                                              RST  0028;FP.CALC                                               DEFB A1;stk-one                                                 DEFB 0F;addition                                                DEFB 34;stk-data                                                DEFB 37;exponent 87                                             DEFB 16;(00,00,00)                                              DEFB 04;multiply                                                DEFB 34;stk-data                                                DEFB 80;(four bytes)                                            DEFB 41;exponent 91                                             DEFB 00,00,80;(00)                                              DEFB 32;n-mod-m                                                 DEFB 02;delete                                                  DEFB A1;stk-one                                                 DEFB 03;subtract                                                DEFB 31;duplicate                                               DEFB 38;end-calc                                                CALL 2DA2;FP.TO.BC                                              LD   (5C76),BC;SEED                                             LD   A,(HL)                                                     AND  A                                                          JR   Z,2625;S.RND.END                                           SUB  10                                                         LD   (HL),A                                     2625 S.RND.END  JR   2630;S.PI.END                                                                                              2627 S.PI       CALL 2530;SYNTAX.Z                                              JR   Z,2630;S.PI.END                                            RST  0028;FP.CALC                                               DEFB A3;stk-pi/2                                                DEFB 38;end-calc                                                INC  (HL)                                       2630 S.PI.END   RST  0020;NEXT.CHAR                                             JP   26C3;S.NUMERIC                                                                                             2634 S.INKEY$   LD   BC,105A                                                    RST  0020;NEXT.CHAR                                             CP   '#'                                                        JP   Z,270D;S.PUSH.PO                                           LD   HL,5C3B;FLAGS                                              RES  6,(HL)                                                     BIT  7,(HL)                                                     JR   Z,2665;S.INK$.EN                                           CALL 028E;KEY.SCAN     [Plus 2: JP 3B6C]                        LD   C,00                                                       JR   NZ,2660;S.IK$.STK                                          CALL 031E;K.TEST                                                JR   NC,2660;S.IK$.STK                                          DEC  D                                                          LD   E,A                                                        CALL 0333;K.DECODE                                              PUSH AF                                                         LD   BC,0001                                                    RST  0030;BC.SPACES                                             POP  AF                                                         LD   (DE),A                                                     LD   C,01                                       2660 S.IK$.STK  LD   B,00                                                       CALL 2AB2;STK.STO.$                             2665 S.INK$.EN  JP   2712;S.CONT.2                                                                                              2668 S.SCREEN$  CALL 2522;S.2.COORD                                             CALL NZ,2535;S.SCRN$.S                                          RST  0020;NEXT.CHAR                                             JP   25DB;S.STRING                                                                                              2672 S.ATTR     CALL 2522;S.2.COORD                                             CALL NZ,2580;S.ATTR.S                                           RST  0020;NEXT.CHAR                                             JR   26C3;S.NUMERIC                                                                                             267B S.POINT    CALL 2522;S.2.COORD                                             CALL NZ,22CB;POINT.SUB                                          RST  0020;NEXT.CHAR                                             JR   26C3;S.NUMERIC                                                                                             2684 S.ALPHNUM  CALL 2C88;ALPHNUM                                               JR   NC,26DF;S.NEGATE                                           CP   41                                                         JR   NC,26C9;S.LETTER                                                                                           268D S.DECIMAL  CALL 2530;SYNTAX.Z                                  (S.BIN)     JR   NZ,26B5;S.STK.DEC                                          CALL 2C9B;DEC.TO.FP                                             RST  0018;GET.CHAR                                              LD   BC,0006                                                    CALL 1655;MAKE.ROOM                                             INC  HL                                                         LD   (HL),0E                                                    INC  HL                                                         EX   DE,HL                                                      LD   HL,(5C65);STKEND                                           LD   C,05                                                       AND  A                                                          SBC  HL,BC                                                      LD   (5C65),HL;STKEND                                           LDIR                                                            EX   DE,HL                                                      DEC  HL                                                         CALL 0077;TEMP.PTR1                                             JR   26C3;S.NUMERIC                             26B5 S.STK.DEC  RST  0018;GET.CHAR                              26B6 S.SD.SKIP  INC  HL                                                         LD   A,(HL)                                                     CP   0E                                                         JR   NZ,26B6;S.SD.SKIP                                          INC  HL                                                         CALL 33B4;STACK.NUM                                             LD   (5C5D),HL;CH.ADD                                                                                           26C3 S.NUMERIC  SET  6,(IY+01);FLAGS                                            JR   26DD;S.CONT.1                                                                                              26C9 S.LETTER   CALL 28B2;LOOK.VARS                                             JP   C,1C2E;REPORT.2                                            CALL Z,2996;STK.VARS                                            LD   A,(5C3B);FLAGS                                             CP   11000000B                                                  JR   C,26DD;S.CONT.1                                            INC  HL                                                         CALL 33B4;STACK.NUM                                                                                             26DD S.CONT.1   JR   2712;S.CONT.2                                                                                              26DF S.NEGATE   LD   BC,09DB                                                    CP   '-'                                                        JR   Z,270D;S.PUSH.PO                                           LD   BC,1018                                                    CP   'VAL$'                                                     JR   Z,270D;S.PUSH.PO                                           SUB  AF                                                         JP   C,1C8A;REPORT.C                                            LD   BC,04F0                                                    CP   14;NOT                                                     JR   Z,270D;S.PUSH.PO                                           JP   NC,1C8A;REPORT.C                                           LD   B,10                                                       ADD  A,DC                                                       LD   C,A                                                        CP   DF;CODE/VAL/LEN                                            JR   NC,2707;S.NO.TO.$                                          RES  6,C                                        2707 S.NO.TO.$  CP   EE;STR$/CHR$                                               JR   C,270D;S.PUSH.PO                                           RES  7,C                                                                                                        270D S.PUSH.PO  PUSH BC                                                         RST  0020;NEXT.CHAR                                             JP   24FF;S.LOOP.1                                                                                              2712 S.CONT.2   RST  0018;GET.CHAR                              2713 S.CONT.3   CP   '('                                                        JR   NZ,2723;S.OPERTR                                           BIT  6,(IY+01);FLAGS                                            JR   NZ,2734;S.LOOP                                             CALL 2A52;SLICING                                               RST  0020;NEXT.CHAR                                             JR   2713;S.CONT.3                                                                                              2723 S.OPERTR   LD   B,00                                                       LD   C,A                                                        LD   HL,2795;operator table                                     CALL 16DC;INDEXER                                               JR   NC,2734;S.LOOP                                             LD   C,(HL)                                                     LD   HL,26ED;priority table                                     ADD  HL,BC                                                      LD   B,(HL)                                     2734 S.LOOP     POP  DE                                                         LD   A,D                                                        CP   B                                                          JR   C,2773;S.TIGHTER                                           AND  A                                                          JP   Z,0018;GET.CHAR                                            PUSH BC                                                         LD   HL,5C3B;FLAGS                                              LD   A,E                                                        CP   'USR'                                                      JR   NZ,274C;S.STK.LST                                          BIT  6,(HL)                                                     JR   NZ,274C;S.STK.LST                                          LD   E,99                                       274C S.STK.LST  PUSH DE                                                         CALL 2530;SYNTAX.Z                                              JR   Z,275B;S.SYNTEST                                           LD   A,E                                                        AND  00111111B                                                  LD   B,A                                                        RST  0028;FP.CALC                                               DEFB 3B;fp-calc-2                                               DEFB 38;end-calc                                                JR   2764;S.RUNTEST                                                                                             275B S.SYNTEST  LD   A,E                                                        XOR  (IY+01);FLAGS                                              AND  01000000B                                  2761 S.RPORT.C  JP   NZ,1C8A;REPORT.C                                                                                           2764 S.RUNTEST  POP  DE                                                         LD   HL,5C3B;FLAGS                                              SET  6,(HL)                                                     BIT  7,E                                                        JR   NZ,2770;S.LOOPEND                                          RES  6,(HL)                                     2770 S.LOOPEND  POP  BC