Outlet 56/outlet-56.mgt/zll

Text File | 2021-04-18 | 20KB | 1 lines

                 DEFB 0F;addition                                                DEFB 38;end-calc                                                CALL 0074;CH.ADD+1                                              JR   2D40;NXT.DGT.2                                                                                             2D4F E.TO.FP    RLCA                                                            RRCA                                                            JR   NC,2D55;E.SAVE                                             CPL                                                             INC  A                                          2D55 E.SAVE     PUSH AF                                                         LD   HL,5C92;MEMBOT                                             CALL 350B;FP.0/1                                                RST  0028;FP.CALC                                               DEFB A4;stk-ten                                                 DEFB 38;end-calc                                                POP  AF                                         2D60 E.LOOP     SRL  A                                                          JR   NC,2D71;E.TST.END                                          PUSH AF                                                         RST  0028;FP.CALC                                               DEFB C1;st-mem-1                                                DEFB E0;get-mem-0                                               DEFB 00;jump-true                                               DEFB 04;to E.DIVSN                                              DEFB 04;multiply                                                DEFB 33;jump                                                    DEFB 02;to E.FETCH                              2D6D E.DIVSN    DEFB 05;division                                2D6E E.FETCH    DEFB E1;get-mem-1                                               DEFB 38;end-calc                                                POP  AF                                         2D71 E.TST.END  JR   Z,2D7B;E.END                                               PUSH AF                                                         RST  0028;FP.CALC                                               DEFB 31;duplicate                                               DEFB 04;multiply                                                DEFB 38;end-calc                                                POP  AF                                                         JR   2D60;E.LOOP                                2D7B E.END      RST  0028;FP.CALC                                               DEFB 02;delete                                                  DEFB 38;end-calc                                                RET                                                                                                             2D7F INT.FETCH  INC  HL                                                         LD   C,(HL)                                                     INC  HL                                                         LD   A,(HL)                                                     XOR  C                                                          SUB  C                                                          LD   E,A                                                        INC  HL                                                         LD   A,(HL)                                                     ADC  A,C                                                        XOR  C                                                          LD   D,A                                                        RET                                                                                                             2D8C P.INT.STO  LD   C,00                                       2D8E INT.STORE  PUSH HL                                                         LD   (HL),00                                                    INC  HL                                                         LD   (HL),C                                                     INC  HL                                                         LD   A,E                                                        XOR  C                                                          SUB  C                                                          LD   (HL),A                                                     INC  HL                                                         LD   A,D                                                        ADC  A,C                                                        XOR  C                                                          LD   (HL),A                                                     INC  HL                                                         LD   (HL),00                                                    POP  HL                                                         RET                                                                                                             2DA2 FP.TO.BC   RST  0028;FP.CALC                                               DEFB 38;end-calc                                                LD   A,(HL)                                                     AND  A                                                          JR   Z,2DAD;FP.DELETE                                           RST  0028;FP.CALC                                               DEFB A2;stk-half                                                DEFB 0F;addition                                                DEFB 27;int                                                     DEFB 38;end-calc                                2DAD FP.DELETE  RST  0028;FP.CALC                                               DEFB 02;delete                                                  DEFB 38;end-calc                                                PUSH HL                                                         PUSH DE                                                         EX   DE,HL                                                      LD   B,(HL)                                                     CALL 2D7F;INT.FETCH                                             XOR  A                                                          SUB  B                                                          BIT  7,C                                                        LD   B,D                                                        LD   C,E                                                        LD   A,E                                                        POP  DE                                                         POP  HL                                                         RET                                                                                                             2DC1 LOG(2**A)  LD   D,A                                                        RLA                                                             SBC  A,A                                                        LD   E,A                                                        LD   C,A                                                        XOR  A                                                          LD   B,A                                                        CALL 2AB6;STK.STORE                                             RST  0028;FP.CALC                                               DEFB 34;stk-data                                                DEFB EF;exponent 7F                                             DEFB 1A,20,9A,85                                                DEFB 04;multiply                                                DEFB 27;int                                                     DEFB 38;end-calc                                                                                                2DD5 FP.TO.A    CALL 2DA2;FP.TO.BC                                              RET  C                                                          PUSH AF                                                         DEC  B                                                          INC  B                                                          JR   Z,2DE1;FP.A.END                                            POP  AF                                                         SCF                                                             RET                                             2DE1 FP.A.END   POP  AF                                                         RET                                                                                                             2DE3 PRINT.FP   RST  0028;FP.CALC                                               DEFB 31;duplicate                                               DEFB 36;less-0                                                  DEFB 00;jump-true                                               DEFB 0B;to PF.NEGTVE                                            DEFB 31;duplicate                                               DEFB 37;greater-0                                               DEFB 00;jump-true                                               DEFB 0D;to PF.POSTVE                                            DEFB 02;delete                                                  DEFB 38;end-calc                                                LD   A,'0'                                                      RST  0010;PRINT.A.1                                             RET                                             2DF2 PF.NEGTVE  DEFB 2A;abs                                                     DEFB 38;end-calc                                                LD   A,'-'                                                      RST  0010;PRINT.A.1                                             RST  0028;FP.CALC                               2DF8 PF.POSTVE  DEFB A0;stk-zero                                                DEFB C3;st-mem-3                                                DEFB C4;st-mem-4                                                DEFB C5;st-mem-5                                                DEFB 02;delete                                                  DEFB 38;end-calc                                                EXX                                                             PUSH HL                                                         EXX                                             2E01 PF.LOOP    RST  0028;FP.CALC                                               DEFB 31;duplicate                                               DEFB 27;int                                                     DEFB C2;st-mem-2                                                DEFB 03;subtract                                                DEFB E2;get-mem-2                                               DEFB 01;exchange                                                DEFB C2;st-mem-2                                                DEFB 02;delete                                                  DEFB 38;end-calc                                                LD   A,(HL)                                                     AND  A                                                          JR   NZ,2E56;PF.LARGE                                           CALL 2D7F;INT.FETCH                                             LD   B,10                                                       LD   A,D                                                        AND  A                                                          JR   NZ,2E1E;PF.SAVE                                            OR   E                                                          JR   Z,2E24;PF.SMALL                                            LD   D,E                                                        LD   B,08                                       2E1E PF.SAVE    PUSH DE                                                         EXX                                                             POP  DE                                                         EXX                                                             JR   2E7B;PF.BITS                               2E24 PF.SMALL   RST  0028;FP.CALC                                               DEFB E2;get-mem-2                                               DEFB 38;end-calc                                                LD   A,(HL)                                                     SUB  7E                                                         CALL 2DC1;LOG.(2**A)                                            LD   D,A                                                        LD   A,(5CAC);mem-5/2                                           SUB  D                                                          LD   (5CAC),A;mem-5/2                                           LD   A,D                                                        CALL 2D4F;E.TO.FP                                               RST  0028;FP.CALC                                               DEFB 31;duplicate                                               DEFB 27;int                                                     DEFB C1;st-mem-1                                                DEFB 03;subtract                                                DEFB E1;get-mem-1                                               DEFB 38;end-calc                                                CALL 2DD5;FP.TO.A                                               PUSH HL                                                         LD   (5CA1),A;mem-3                                             DEC  A                                                          RLA                                                             SBC  A,A                                                        INC  A                                                          LD   HL,5CAB;mem-5                                              LD   (HL),A                                                     INC  HL                                                         ADD  A,(HL)                                                     LD   (HL),A                                                     POP  HL                                                         JP   2ECF;PF.FRACTN                             2E56 PF.LARGE   SUB  80                                                         CP   1C;28d                                                     JR   C,2E6F;PF.MEDIUM                                           CALL 2DC1;LOG.(2**A)                                            SUB  07                                                         LD   B,A                                                        LD   HL,5CAC;mem-5/2                                            ADD  A,(HL)                                                     LD   (HL),A                                                     LD   A,B                                                        NEG                                                             CALL 2D4F;E.TO.FP                                               JR   2E01;PF.LOOP                               256F PF.MEDIUM  EX   DE,HL                                                      CALL 2FBA;FETCH.TWO                                             EXX                                                             SET  7,D                                                        LD   A,L                                                        EXX                                                             SUB  80                                                         LD   B,A                                        2E7B PF.BITS    SLA  E                                                          RL   D                                                          EXX                                                             RL   E                                                          RL   D                                                          EXX                                                             LD   HL,5CAA;mem-4/5                                            LD   C,05                                       2E8A PF.BYTES   LD   A,(HL)                                                     ADC  A,A                                                        DAA                                                             LD   (HL),A                                                     DEC  HL                                                         DEC  C                                                          JR   NZ,2E8A;PF.BYTES                                           DJNZ 2E7B;PF.BITS                                               XOR  A                                                          LD   HL,5CA6;mem-4                                              LD   DE,5CA1;mem-3                                              LD   B,09                                                       RLD                                                             LD   C,FF                                       2EA1 PF.DIGITS  RLD                                                             JR   NZ,2EA9;PF.INSERT                                          DEC  C                                                          INC  C                                                          JR   NZ,2EB3;PF.TEST.2                          2EA9 PF.INSERT  LD   (DE),A                                                     INC  DE                                                         INC  (IY+71);mem-5                                              INC  (IY+72);mem-5/2                                            LD   C,00                                       2E83 PF.TEST.2  BIT  0,B                                                        JR   Z,2EB8;PF.ALL.9                                            INC  HL                                         2EB8 PF.ALL.9   DJNZ 2EA1;PF.DIGITS                                             LD   A,(5CAB);mem-5                                             SUB  09                                                         JR   C,2ECB;PF.MORE                                             DEC  (IY+71);mem-5                                              LD   A,04                                                       CP   (IY+6F);mem-4/4                                            JR   2F0C;PF.ROUND                              2ECB PF.MORE    RST  0028;FP.CALC                                               DEFB 02;delete                                                  DEFB E2;get-mem-2                                               DEFB 38;end-calc                                2ECF PF.FRACTN  EX   DE,HL                                                      CALL 2FBA;FETCH.TWO                                             EXX                                                             LD   A,80                                                       SUB  L                                                          LD   L,00                                                       SET  7,D                                                        EXX                                                             CALL 2FDD;SHIFT.FP                              2EDF PF.FRN.LP  LD   A,(5C71);mem-5                                             CP   08                                                         JR   C,2EEC;PF.FR.DGT                                           EXX                                                             RL   D                                                          EXX                                                             JR   2F0C;PF.ROUND                              2EEC PF.FR.DGT  LD   BC,0200                                    2EEF PF.FR.EXX  LD   A,E                                                        CALL 2F8B;CA=10*A+C                                             LD   E,A