Outlet 56/outlet-56.mgt/zlo

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

                 ADD  A,91                                                       INC  HL                                                         LD   D,(HL)                                                     INC  HL                                                         LD   E,(HL)                                                     DEC  HL                                                         DEC  HL                                                         LD   C,00                                                       BIT  7,D                                                        JR   Z,3252;T.NUMERIC                                           DEC  C                                          3252 T.NUMERIC  SET  7,D                                                        LD   B,08                                                       SUB  B                                                          ADD  A,B                                                        JR   C,325E;T.TEST                                              LD   E,D                                                        LD   D,00                                                       SUB  B                                          325E T.TEST     JR   Z,3267;T.STORE                                             LD   B,A                                        3261 T.SHIFT    SRL  D                                                          RR   E                                                          DJNZ 3261;T.SHIFT                               3267 T.STORE    CALL 2D8E;INT.STORE                                             POP  DE                                                         RET                                             326C T.EXPNENT  LD   A,(HL)                                     326D X.LARGE    SUB  A0                                                         RET  P                                                          NEG                                             3272 NIL.BYTES  PUSH DE                                                         EX   DE,HL                                                      DEC  HL                                                         LD   B,A                                                        SRL  B                                                          SRL  B                                                          SRL  B                                                          JR   Z,3283;BITS.ZERO                           327E BYTE.ZERO  LD   (HL),00                                                    DEC  HL                                                         DJNZ 327E;BYTE.ZERO                             3283 BITS.ZERO  AND  00000111B                                                  JR   Z,3290;IX.END                                              LD   B,A                                                        LD   A,FF                                       328A LESS.MASK  SLA  A                                                          DJNZ 328A;LESS.MASK                                             AND  (HL)                                                       LD   (HL),A                                     3290 IX.END     EX   DE,HL                                                      POP  DE                                                         RET                                                                                                             3293 RE.ST.TWO  CALL 3296;RESTK.SUB                             3296 RESTK.SUB  EX   DE,HL                                      3297 RE.STACK   LD   A,(HL)                                                     AND  A                                                          RET  NZ                                                         PUSH DE                                                         CALL 2D7F;INT.FETCH                                             XOR  A                                                          INC  HL                                                         LD   (HL),A                                                     DEC  HL                                                         LD   (HL),A                                                     LD   B,91                                                       LD   A,D                                                        AND  A                                                          JR   NZ,32B1;RS.NRMLSE                                          OR   E                                                          LD   B,D                                                        JR   Z,32BD;RS.STORE                                            LD   D,E                                                        LD   E,B                                                        LD   B,89                                       32B1 RS.NRMLSE  EX   DE,HL                                      32B2 RSTK.LOOP  DEC  B                                                          ADD  HL,HL                                                      JR   NC,32B2;RSTK.LOOP                                          RRC  C                                                          RR   H                                                          RR   L                                                          EX   DE,HL                                      32BD RS.STORE   DEC  HL                                                         LD   (HL),E                                                     DEC  HL                                                         LD   (HL),D                                                     DEC  HL                                                         LD   (HL),B                                                     POP  DE                                                         RET                                                                                                             32C5            DEFB 00,B0,00;zero                              32C8            DEFB 40,B0,00,01;one                            32CC            DEFB 30,00;half                                 32CE            DEFB F1,49,0F,DA,A2;pi/2                        32D3            DEFB 40,B0,00,0A;ten                                                                                            32D7            DEFW 368F;00 jump-true                                          DEFW 343C;01 exchange                                           DEFW 33A1;02 delete                                             DEFW 300F;03 subtract                                           DEFW 30CA;04 multiply                                           DEFW 31AF;05 division                                           DEFW 3851;06 to-power                                           DEFW 351B;07 or                                                 DEFW 3524;08 no-&-no                                            DEFW 353B;09 no-l-eql                                           DEFW 353B;0A no-gr-eq                                           DEFW 353B;0B nos-neql                                           DEFW 353B;0C no-grtr                                            DEFW 353B;0D no-less                                            DEFW 353B;0E nos-eql                                            DEFW 3014;0F addition                                           DEFW 352D;10 str-&-no                                           DEFW 353B;11 str-l-eql                                          DEFW 353B;12 str-gr-eq                                          DEFW 353B;13 strs-neql                                          DEFW 353B;14 str-grtr                                           DEFW 353B;15 str-less                                           DEFW 353B;16 strs-eql                                           DEFW 359C;17 strs-add                                           DEFW 35DE;18 val$                                               DEFW 34BC;19 usr-$                                              DEFW 3645;1A read-in                                            DEFW 346E;1B negate                                             DEFW 3669;1C code                                               DEFW 35DE;1D val                                                DEFW 3674;1E len                                                DEFW 37B5;1F sin                                                DEFW 37AA;20 cos                                                DEFW 37DA;21 tan                                                DEFW 3833;22 asn                                                DEFW 3843;23 acs                                                DEFW 37E2;24 atn                                                DEFW 3713;25 ln                                                 DEFW 36C4;26 exp                                                DEFW 36AF;27 int                                                DEFW 384A;28 sqr                                                DEFW 3492;29 sgn                                                DEFW 346A;2A abs                                                DEFW 34AC;2B peek                                               DEFW 34A5;2C in                                                 DEFW 34B3;2D usr-no                                             DEFW 361F;2E str$                                               DEFW 35C9;2F chr$                                               DEFW 3501;30 not                                                DEFW 33C0;31 duplicate                                          DEFW 36A0;32 n-mod-m                                            DEFW 3686;33 jump                                               DEFW 33C6;34 stk-data                                           DEFW 367A;35 dec-jr-nz                                          DEFW 3506;36 less-0                                             DEFW 34F9;37 greater-0                                          DEFW 369B;38 end-calc                                           DEFW 3783;39 get-argt                                           DEFW 3214;3A truncate                                           DEFW 33A2;3B fp-calc-2                                          DEFW 2D4F;3C e-to-fp                                            DEFW 3297;3D re-stack                                           DEFW 3449;3E series-06 etc                                      DEFW 341B;3F stk-zero etc                                       DEFW 342D;40 st-mem-0 etc                                       DEFW 340F;41 get-mem-0 etc                                                                                      335B CALCULATE  CALL 35BF;STK.PNTRS                             335E GEN.ENT.1  LD   A,B                                                        LD   (5C67),A;BREG                              3362 GEN.ENT.2  EXX                                                             EX   (SP),HL                                                    EXX                                             3365 RE.ENTRY   LD   (5C65),DE;STKEND                                           EXX                                                             LD   A,(HL)                                                     INC  HL                                         336C SCAN.ENT   PUSH HL                                                         AND  A                                                          JP   P;3380;FIRST.3D                                            LD   D,A                                                        AND  01100000B                                                  RRCA                                                            RRCA                                                            RRCA                                                            RRCA                                                            ADD  A,7C                                                       LD   L,A                                                        LD   A,D                                                        AND  00011111B                                                  JR   338E;ENT.TABLE                             3380 FIRST.3D   CP   18                                                         JR   NC,338C;DOUBLE.A                                           EXX                                                             LD   BC,FFFB;-05                                                LD   D,H                                                        LD   E,L                                                        ADD  HL,BC                                                      EXX                                             338C DOUBLE.A   RLCA                                                            LD   L,A                                        338E ENT.TABLE  LD   DE,32D7;address table                                      LD   H,00                                                       ADD  HL,DE                                                      LD   E,(HL)                                                     INC  HL                                                         LD   D,(HL)                                                     LD   HL,3365;RE.ENTRY                                           EX   (SP),HL                                                    PUSH DE                                                         EXX                                                             LD   BC,(5C66);STKEND hi                                                                                        33A1 delete     RET                                                                                                             33A2 fp-calc-2  POP  AF                                                         LD   A,(5C67);BREG                                              EXX                                                             JR   336C;SCAN.ENT                                                                                              33A9 TEST.5.SP  PUSH DE                                                         PUSH HL                                                         LD   BC,0005                                                    CALL 1F05;TEST.ROOM                                             POP  HL                                                         POP  DE                                                         RET                                                                                                             33B4 STACK.NUM  LD   DE,(5C65);STKEND                                           CALL 33C0;MOVE.FP                                               LD   (5C65),DE;STKEND                                           RET                                                                                                             33C0 MOVE.FP    CALL 33A9;TEST.5.SP                                             LDIR                                                            RET                                                                                                             33C6 STK.DATA   LD   H,D                                                        LD   L,E                                        33C8 STK.CONST  CALL 33A9;TEST.5.SP                                             EXX                                                             PUSH HL                                                         EXX                                                             EX   (SP),HL                                                    PUSH BC                                                         LD   A,(HL)                                                     AND  11000000B                                                  RLCA                                                            RLCA                                                            LD   C,A                                                        INC  C                                                          LD   A,(HL)                                                     AND  00111111B                                                  JR   NZ,33DE;FORM.EXP                                           INC  HL                                                         LD   A,(HL)                                     33DE FORM.EXP   ADD  A,50                                                       LD   (DE),A                                                     LD   A,05                                                       SUB  C                                                          INC  HL                                                         INC  DE                                                         LD   B,00                                                       LDIR                                                            POP  BC                                                         EX   (SP),HL                                                    EXX                                                             POP  HL                                                         EXX                                                             LD   B,A                                                        XOR  A                                          33F1 STK.ZEROS  DEC  B                                                          RET  Z                                                          LD   (DE),A                                                     INC  DE                                                         JR   33F1;STK.ZEROS                                                                                             3357 SKIP.CONS  AND  A                                          33F8 SKIP.NEXT  RET  Z                                                          PUSH AF                                                         PUSH DE                                                         LD   DE,0000                                                    CALL 33C8;STK.CONST                                             POP  DE                                                         POP  AF                                                         DEC  A                                                          JR   33F8;SKIP.NEXT                                                                                             3406 LOC.MEM    LD   C,A                                                        RLCA                                                            RLCA                                                            ADD  A,C                                                        LD   C,A                                                        LD   B,00                                                       ADD  HL,BC                                                      RET                                                                                                             340F get-mem-0  PUSH DE                                              etc        LD   HL,(5C68);MEM                                              CALL 3406;LOC.MEM                                               CALL 33C0;MOVE.FP                                               POP  HL                                                         RET                                                                                                             341B stk-zero   LD   H,D                                             etc        LD   L,E                                                        EXX                                                             PUSH HL                                                         LD   HL,32C5;constant table                                     EXX                                                             CALL 33F7;SKIP.CONST                                            CALL 33C8;STK.CONST                                             EXX