Outlet 56/outlet-56.mgt/zlr

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

 3783 get-argt   RST  0028;FP.CALC                                               DEFB 3D;re-stack                                                DEFB 34;stk-data                                                DEFB EE;exponent 7E                                             DEFB 22,F9,83,6E                                                DEFB 04;multiply                                                DEFB 31;duplicate                                               DEFB A2;stk-half                                                DEFB 0F;addition                                                DEFB 27;int                                                     DEFB 03;subtract                                                DEFB 31;duplicate                                               DEFB 0F;addition                                                DEFB 31;duplicate                                               DEFB 0F;addition                                                DEFB 31;duplicate                                               DEFB 2A;abs                                                     DEFB A1;stk-one                                                 DEFB 03;subtract                                                DEFB 31;duplicate                                               DEFB 37;greater-0                                               DEFB C0;st-mem-0                                                DEFB 00;jump-true                                               DEFB 04;to 37A1 ZPLUS                                           DEFB 02;delete                                                  DEFB 38;end-calc                                                RET                                             37A1 ZPLUS      DEFB A1;stk-one                                                 DEFB 03;subtract                                                DEFB 01;exchange                                                DEFB 36;less-0                                                  DEFB 00;jump-true                                               DEFB 02;to 37A8 YNEG                                            DEFB 1B;negate                                  37AB YNEG       DEFB 38;end-calc                                                RET                                                                                                             37AA cos        RST  0028;FP.CALC                                               DEFB 39;get-argt                                                DEFB 2A;abs                                                     DEFB A1;stk-one                                                 DEFB 03;subtract                                                DEFB E0;get-mem-0                                               DEFB 00;jump-true                                               DEFB 06;to 37B7 C.ENT                                           DEFB 1B;negate                                                  DEFB 33;jump                                                    DEFB 03;to 37B7 C.ENT                                                                                           37B5 sin        RST  0028;FP.CALC                                               DEFB 39;get-argt                                37B7 C.ENT      DEFB 31;duplicate                                               DEFB 31;duplicate                                               DEFB 04;multiply                                                DEFB 31;duplicate                                               DEFB 0F;addition                                                DEFB A1;stk-one                                                 DEFB 03;subtract                                                DEFB 86;series-06                                               DEFB 14;exponent 64                                             DEFB E6;(00,00,00)                                              DEFB 5C;exponent 6C                                             DEFB 1F,0B;(00,00)                                              DEFB A3;exponent 73                                             DEFB 8F,38,EE;(00)                                              DEFB E9;exponent 79                                             DEFB 15,63,BB,23                                                DEFB EE;exponent 7E                                             DEFB 92,0D,CD,ED                                                DEFB F1;exponent 81                                             DEFB 23,5D,1B,EA                                                DEFB 04;multiply                                                DEFB 38;end-calc                                                RET                                                                                                             37DA tan        RST  0028;FP.CALC                                               DEFB 31;duplicate                                               DEFB 1F;sin                                                     DEFB 01;exchange                                                DEFB 20;cos                                                     DEFB 05;division                                                DEFB 38;end-calc                                                RET                                                                                                             37E2 atn        CALL 3297;RE.STACK                                              LD   A,(HL)                                                     CP   81                                                         JR   C,37F8;SMALL                                               RST  0028;FP.CALC                                               DEFB A1;stk-one                                                 DEFB 1B;negate                                                  DEFB 01;exchange                                                DEFB 05;division                                                DEFB 31;duplicate                                               DEFB 36;less-0                                                  DEFB A3;stk-pi/2                                                DEFB 01;exchange                                                DEFB 00;jump-true                                               DEFB 06;to 37FA CASES                                           DEFB 1B;negate                                                  DEFB 33;jump                                                    DEFB 03;to 37FA CASES                           37FB SMALL      RST  0028;FP.CALC                                               DEFB A0;stk-zero                                37FA CASES      DEFB 01;exchange                                                DEFB 31;duplicate                                               DEFB 31;duplicate                                               DEFB 04;multiply                                                DEFB 31;duplicate                                               DEFB 0F;addition                                                DEFB A1;stk-one                                                 DEFB 03;subtract                                                DEFB 8C;series-0C                                               DEFB 10;exponent 60                                             DEFB B2,;(00,00,00)                                             DEFB 13;exponent 63                                             DEFB 0E;(00,00,00)                                              DEFB 55;exponent 65                                             DEFB E4;8D;(00,00)                                              DEFB 58;exponent 68                                             DEFB 39,BC;(00,00)                                              DEFB 5B;exponent 6B                                             DEFB 98,FD;(00,00)                                              DEFB 9E;exponent 6E                                             DEFB 00,36,75;(00)                                              DEFB A0;exponent 70                                             DEFB DB,E8,B4;(00)                                              DEFB 63;exponent 73                                             DEFB 42,C4;(00,00)                                              DEFB E6;exponent 76                                             DEFB B5,09,36,BE                                                DEFB E9;exponent 79                                             DEFB 36,73,1B,5D                                                DEFB EC;exponent 7C                                             DEFB D8,DE,63,BE                                                DEFB F0;exponent 80                                             DEFB 61,A1,B3,0C                                                DEFB 04;multiply                                                DEFB 0F;addition                                                DEFB 38;end-calc                                                RET                                                                                                             3833 asn        RST  0028;FP.CALC                                               DEFB 31;duplicate                                               DEFB 31;duplicate                                               DEFB 04;multiply                                                DEFB A1;stk-one                                                 DEFB 03;subtract                                                DEFB 1B;negate                                                  DEFB 28;sqr                                                     DEFB A1;stk-one                                                 DEFB 0F;addition                                                DEFB 05;division                                                DEFB 24;atn                                                     DEFB 31;duplicate                                               DEFB 0F;addition                                                DEFB 38;end-calc                                                RET                                                                                                             3843 acs        RST  0028;FP.CALC                                               DEFB 22;asn                                                     DEFB A3;stk pi/2                                                DEFB 03;subtract                                                DEFB 1B;negate                                                  DEFB 38;end-calc                                                RET                                                                                                             384A sqr        RST  0028;FP.CALC                                               DEFB 31;duplicate                                               DEFB 30;not                                                     DEFB 00;jump-true                                               DEFB 1E;to 386C LAST                                            DEFB A2;stk-half                                                DEFB 38;end-calc                                                                                                3851 to-power   RST  0028;FP.CALC                                               DEFB 01;exchange                                                DEFB 31;duplicate                                               DEFB 30;not                                                     DEFB 00;jump-true                                               DEFB 07;to 385D XISO                                            DEFB 25;ln                                                      DEFB 04;multiply                                                DEFB 38;end-calc                                                JP   36C4;exp                                   38ED XISO       DEFB 02;delete                                                  DEFB 31;duplicate                                               DEFB 30;not                                                     DEFB 00;jump-true                                               DEFB 09;to 386A ONE                                             DEFB A0;stk-zero                                                DEFB 01;exchange                                                DEFB 37;greater-0                                               DEFB 00;jump-true                                               DEFB 06;to 386C LAST                                            DEFB A1;stk-one                                                 DEFB 01;exchange                                                DEFB 05;division                                396A ONE        DEFB 02;delete                                                  DEFB A1;stk-one                                 386C LAST       DEFB 38;end-calc                                                RET