home *** CD-ROM | disk | FTP | other *** search
/ Outlet 56 / outlet-56.mgt / zlq < prev    next >
Text File  |  2021-04-18  |  20KB  |  1 lines
  1.                  POP  DE                                                         RET                                                                                                             35C9 chr$       CALL 2DD5;FP.TO.A                                               JR   C,35DC;REPORT.B                                            JR   NZ,35DC;REPORT.B                                           PUSH AF                                                         LD   BC,0001                                                    RST  0030;BC.SPACES                                             POP  AF                                                         LD   (DE),A                                                     CALL 2AB2;STK.STORE                                             EX   DE,HL                                                      RET                                             35DC REPORT.B   RST  0008;ERROR.1                                               DEFB 0A;"Integer out of range"                                                                                  35DE val        LD   HL,(5C5D);CH.ADD                               (val$)      PUSH HL                                                         LD   A,B                                                        ADD  A,E3                                                       SBC  A,A                                                        PUSH AF                                                         CALL 2BF1;STK.FETCH                                             PUSH DE                                                         INC  BC                                                         RST  0030;BC.SPACES                                             POP  HL                                                         LD   (5C5D),DE;CH.ADD                                           PUSH DE                                                         LDIR                                                            EX   DE,HL                                                      DEC  HL                                                         LD   (HL),0D                                                    RES  7,(IY+01);FLAGS                                            CALL 24FB;SCANNING                                              RST  0018;GET.CHAR                                              CP   0D                                                         JR   NZ,360C;V.RPORT.C                                          POP  HL                                                         POP  AF                                                         XOR  (IY+01);FLAGS                                              AND  01000000B                                  360C V.RPORT.C  JP   NZ,1C8A;REPORT.C                                           LD   (5C5D),HL;CH.ADD                                           SET  7,(IY+01);FLAGS                                            CALL 24FB;SCANNING                                              POP  HL                                                         LD   (5C5D),HL;CH.ADD                                           JR   35BF;STK.PNTRS                                                                                             361F str$       LD   BC,0001                                                    RST  0030;BC.SPACES                                             LD   (5C5B),HL;K.CUR                                            PUSH HL                                                         LD   HL,(5C51);CURCHL                                           PUSH HL                                                         LD   A,FF;-01                                                   CALL 1601;CHAN.OPEN                                             CALL 2DE3;PRINT.FP                                              POP  HL                                                         CALL 1615;CHAN.FLAG                                             POP  DE                                                         LD   HL,(5C5B);K.CUR                                            AND  A                                                          SBC  HL,DE                                                      LD   B,H                                                        LD   C,L                                                        CALL 2AB2;STK.STO.$                                             EX   DE,HL                                                      RET                                                                                                             3645 read-in    CALL 1E94;FIND.INT1                                             CP   10                                                         JP   NC,1E9F;REPORT.B                                           LD   HL,(5C51);CURCHL                                           PUSH HL                                                         CALL 1601;CHAN.OPEN                                             CALL 15E6;INPUT.AD                                              LD   BC,0000                                                    JR   NC,365F;R.I.STORE                                          INC  C                                                          RST  0030;BC.SPACES                                             LD   (DE),A                                     365F R.I.STORE  CALL 2AB2;STK.STO.$                                             POP  HL                                                         CALL 1615;CHAN.FLAG                                             JP   35BF;STK.PNTRS                                                                                             3669 code       CALL 2BF1;STK.FETCH                                             LD   A,B                                                        OR   C                                                          JR   Z,3671;STK.CODE                                            LD   A,(DE)                                     3671 STK.CODE   JP   2D28;STACK.A                                                                                               3674 len        CALL 2BF1;STK.FETCH                                             JP   2D2B;STACK.BC                                                                                              367A dec-jr-nz  EXX                                                             PUSH HL                                                         LD   HL,5C67;BREG                                               DEC  (HL)                                                       POP  HL                                                         JR   NZ,3687;JUMP.2                                             INC  HL                                                         EXX                                                             RET                                                                                                             3686 JUMP       EXX                                             3687 JUMP.2     LD   E,(HL)                                                     LD   A,E                                                        RLA                                                             SBC  A,A                                                        LD   D,A                                                        ADD  HL,DE                                                      EXX                                                             RET                                                                                                             368F jump-true  INC  DE                                                         INC  DE                                                         LD   A,(HL)                                                     DEC  DE                                                         DEC  DE                                                         AND  A                                                          JR   NZ,3686;JUMP                                               EXX                                                             INC  HL                                                         EXX                                                             RET                                                                                                             369B end-calc   POP  AF                                                         EXX                                                             EX   (SP),HL                                                    EXX                                                             RET                                                                                                             36A0 n-mod-m    RST  0028;FP.CALC                                               DEFB C0;st-mem-0                                                DEFB 02;delete                                                  DEFB 31;duplicate                                               DEFB E0;get-mem-0                                               DEFB 05;division                                                DEFB 27;int                                                     DEFB E0;get-mem-0                                               DEFB 01;exchange                                                DEFB C0;st-mem-0                                                DEFB 04;multiply                                                DEFB 03;subtract                                                DEFB E0;get-mem-0                                               DEFB 38;end-calc                                                RET                                                                                                             36AF int        RST  0028;FP.CALC                                               DEFB 31;duplicate                                               DEFB 36;less-0                                                  DEFB 00;jump-true                                               DEFB 04;to 36B7 X.NEG                                           DEFB 3A;truncate                                                DEFB 38;end-calc                                                RET                                             36B7 X.NEG      DEFB 31;duplicate                                               DEFB 3A;truncate                                                DEFB C0;st-mem-0                                                DEFB 03;subtract                                                DEFB E0;get-mem-0                                               DEFB 01;exchange                                                DEFB 30;not                                                     DEFB 00;jump-true                                               DEFB 03;to 30C2 EXIT                                            DEFB A1;stk-one                                                 DEFB 03;subtract                                36C2 EXIT       DEFB 38;end-calc                                                RET                                                                                                             36C4 exp        RST  0028;FP.CALC                                               DEFB 3D;re-stack                                                DEFB 34;stk-data                                                DEFB F1;exponent 81                                             DEFB 38,AA,3B,29                                                DEFB 04;multiply                                                DEFB 31;duplicate                                               DEFB 27;int                                                     DEFB C3;st-mem-3                                                DEFB 03;subtract                                                DEFB 31;duplicate                                               DEFB 0F;addition                                                DEFB A1;stk-one                                                 DEFB 03;subtract                                                DEFB 88;series-08                                               DEFB 13;exponent 63                                             DEFB 36;(00,00,00)                                              DEFB 58;exponent 68                                             DEFB 65,66;(00,00)                                              DEFB 9D;exponent 6D                                             DEFB 78,65,40;(00)                                              DEFB A2;exponent 72                                             DEFB 60,32,C9;(00)                                              DEFB E7;exponent 77                                             DEFB 21,F7,AF,24                                                DEFB EB;exponent 7B                                             DEFB 2F,B0,B0,14                                                DEFB EE;exponent 7E                                             DEFB 7E,BB,94,58                                                DEFB F1;exponent 81                                             DEFB 3A,7E,F8,CF                                                DEFB E3;get-mem-3                                               DEFB 38;end-calc                                                CALL 2DD5;FP.TO.A                                               JR   3705;N.NEGTV                                               JR   C,3703;REPORT.6                                            ADD  A,(HL)                                                     JR   NC,370C;RESULT.OK                          3703 REPORT.6   RST  0008;ERROR.1                                               DEFB 05;"Number too big"                        3705 N.NEGTV    JR   C,370E;RSLT.ZERO                                           SUB  (HL)                                                       JR   NC,370E;RSLT.ZERO                                          NEG                                             370C RESULT.OK  LD   (HL),A                                                     RET                                             370E RSLT.ZERO  RST  0028;FP.CALC                                               DEFB 02;delete                                                  DEFB A0;stk-zero                                                DEFB 38;end-calc                                                RET                                                                                                             3713 ln         RST  0028;FP.CALC                                               DEFB 3D;re-stack                                                DEFB 31;duplicate                                               DEFB 37;greater-0                                               DEFB 00;jump-true                                               DEFB 04;to 371C VALID                                           DEFB 38;end-calc                                371A REPORT.A   RST  0008;ERROR.1                                               DEFB 09;"Invalid argument"                      371C VALID      DEFB A0;stk-zero                                                DEFB 02;delete                                                  DEFB 38;end-calc                                                LD   A,(HL)                                                     LD   (HL),80                                                    CALL 2D2B;STACK.A                                               RST  0028;FP.CALC                                               DEFB 34;stk-data                                                DEFB 38;exponent 88                                             DEFB 00;(00,00,00)                                              DEFB 03;subtract                                                DEFB 01;exchange                                                DEFB 31;duplicate                                               DEFB 34;stk-data                                                DEFB F0;exponent 80                                             DEFB 4C,CC,CC,CD                                                DEFB 03;subtract                                                DEFB 37;greater-0                                               DEFB 00;jump-true                                               DEFB 08;to 373D GRE.8                                           DEFB 01;exchange                                                DEFB A1;stk-one                                                 DEFB 03;subtract                                                DEFB 01;exchange                                                DEFB 38;end-calc                                                INC  (HL)                                                       RST  0028;FP.CALC                               373D GRE.8      DEFB 01;exchange                                                DEFB 34;stk-data                                                DEFB F0;exponent 80                                             DEFB 31,72,17,F8                                                DEFB 04;multiply                                                DEFB 01;exchange                                                DEFB A2;stk-half                                                DEFB 03;subtract                                                DEFB A2;stk-half                                                DEFB 03;subtract                                                DEFB 31;duplicate                                               DEFB 34;stk-data                                                DEFB 32;exponent 82                                             DEFB 20;(00,00,00)                                              DEFB 04;multiply                                                DEFB A2;stk-half                                                DEFB 03;subtract                                                DEFB 8C;series-0C                                               DEFB 11;exponent 61                                             DEFB AC;(00,00,00)                                              DEFB 14;exponent 64                                             DEFB 09;(00,00,00)                                              DEFB 56;exponent 66                                             DEFB DA,A5;(00,00)                                              DEFB 59;exponent 69                                             DEFB 30,C5;(00,00)                                              DEFB 5C;exponent 6C                                             DEFB 90,AA;(00,00)                                              DEFB 9E;exponent 6E                                             DEFB 70,6F,61;(00)                                              DEFB A1;exponent 71                                             DEFB CB,DA,96;(00)                                              DEFB A4;exponent 74                                             DEFB 31,9F,B4;(00)                                              DEFB E7;exponent 77                                             DEFB A0,FE,5C,FC                                                DEFB EA;exponent 7A                                             DEFB 1B,43,CA,36                                                DEFB ED;exponent 7D                                             DEFB A7,9C,7E,5E                                                DEFB F0;exponent 80                                             DEFB 6E,23,B0,93                                                DEFB 04;multiply                                                DEFB 0F;addition                                                DEFB 38;end-calc                                                RET