home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Outlet 56
/
outlet-56.mgt
/
zlr
< prev
Wrap
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