ASMB,R,L,T
      NAM RODTK 91711-16103  REV 1926  790430 
      SUP 
* 
      ENT RODTK 
      EXT .ENTR 
* 
ESIS  NOP 
RODTK NOP 
      JSB .ENTR 
      DEF ESIS
* 
* 
* 
* 
*  SCIENTIFIC INSTRUCTION SET EXECUTION 
*  ------------------------------------ 
* 
* 
      CLA           CLEAR ERR COUNTER 
      STA ESIS,I
      LDA LPCT      SET LOOP COUNTER
      STA LOPCT 
* 
* 
*  EXECUTE ALL SIS INSTR. WITHOUT ERROR RETURN
*  (RETURN ADDRESS = SIS INSTR. ADDR. + 2)
* 
START LDA STTP1     GET DATA TABLE POINTER
      STA TBPT
      LDA FINP1     GET INSTR. TABLE POINTER
      STA INSPT 
      LDA INSPT,I   STORE SIS INSTR IN PROGRAM
SISE1 STA INST1 
      LDA M4        GET LOOP COUNT
      STA LCT 
* 
      DLD TBPT,I    EXECUTE FETCHED SIS INSTR.
INST1 OCT 0 
      JSB ERR       ERROR 
      JSB TSTRT     GO & TEST RESULT
      ISZ LCT       HAVE ALL 4 VALUES BEEN TESTED?
      JMP INST1-2   NO, RETURN
* 
      ISZ INSPT     YES, GET NEXT INSTR.
      LDA INSPT,I 
      SZA           IS IT LAST ONE? 
      JMP SISE1     NO, RETURN
* 
* 
* 
      SKP 
* 
*  EXECUTE ALL SIS INSTR. WITH ERROR RETURN 
*  (RETURN ADDRESS = SIS INSTR. ADDR. + 1)
* 
      LDA STTP2     GET DATA TABLE POINTER
      STA TBPT
      LDA FINP2     GET INSTR. TABLE POINTER
      STA INSPT 
      LDA INSPT,I   STORE SIS INSTR IN PROGRAM
SISE2 STA INST2 
      LDA M4        GET LOOP COUNT
      STA LCT 
* 
      DLD TBPT,I    EXECUTE FETCHED SIS INSTR.
INST2 OCT 0 
      RSS 
      JSB ERR 
      JSB TSTRT     GO & TEST RESULT
      ISZ LCT       HAVE ALL 4 VALUES BEEN TESTED?
      JMP INST2-2   NO, RETURN
* 
      ISZ INSPT     YES, GET NEXT INSTR.
      LDA INSPT,I 
      SZA           IS IT LAST ONE? 
      JMP SISE2     NO, RETURN
* 
      ISZ LOPCT 
      JMP START 
      JMP RODTK,I   YES 
* 
* 
* 
*  SUBROUTINE TO TEST SIS INSTR. RESULT 
* 
TSTRT NOP 
      ISZ TBPT
      ISZ TBPT
      CPA TBPT,I
      RSS 
      JSB ERR 
      ISZ TBPT
      CPB TBPT,I
      RSS 
      JSB ERR 
      ISZ TBPT
      JMP TSTRT,I 
* 
* 
* 
*  SUBROUTINE TO INCRMENT ERROR COUNTER 
* 
ERR   NOP 
      ISZ ESIS,I
      NOP 
      JMP ERR,I 
* 
      SKP 
* 
LPCT  DEC -100
LOPCT OCT 0 
* 
TBPT  OCT 0 
* 
* 
*   DATA TABLE, NO ERROR RETURN 
* 
STTP1 DEF *+1 
* 
      OCT 040000    TAN 
      OCT 000000
      OCT 042755
      OCT 036400
* 
      OCT 040000
      OCT 000002
      OCT 061654
      OCT 110402
* 
      OCT 100001
      OCT 000002
      OCT 042756
      OCT 135404
* 
      OCT 100001
      OCT 000000
      OCT 116125
      OCT 022402
* 
* 
      OCT 000000    SQRT
      OCT 000000
      OCT 000000
      OCT 000000
* 
      OCT 040000
      OCT 000377
      OCT 040000
      OCT 000000
* 
      OCT 044000
      OCT 000004
      OCT 060000
      OCT 000002
* 
      OCT 044770
      OCT 000050
      OCT 060515
      OCT 136024
* 
      SKP 
* 
      OCT 040000    ALOG
      OCT 000000
      OCT 123506
      OCT 172000
* 
      OCT 060000
      OCT 000000
      OCT 133132
      OCT 074377
* 
      OCT 050000
      OCT 001012
      OCT 057735
      OCT 005404
* 
      OCT 077777
      OCT 000441
      OCT 131136
      OCT 011416
* 
* 
      OCT 040000    COS 
      OCT 000000
      OCT 070124
      OCT 120000
* 
      OCT 077000
      OCT 000020
      OCT 062037
      OCT 103400
* 
      OCT 137040
      OCT 060010
      OCT 120376
      OCT 107777
* 
      OCT 100000
      OCT 006331
      OCT 040000
      OCT 000002
* 
      SKP 
* 
      OCT 040000    SIN 
      OCT 000000
      OCT 075273
      OCT 120777
* 
      OCT 040000
      OCT 000002
      OCT 065665
      OCT 050400
* 
      OCT 100001
      OCT 000000
      OCT 112113
      OCT 034000
* 
      OCT 076600
      OCT 000321
      OCT 076577
      OCT 177321
* 
* 
      OCT 040000     EXP
      OCT 000000
      OCT 064604
      OCT 123402
* 
      OCT 040000
      OCT 000002
      OCT 053374
      OCT 026004
* 
      OCT 123100
      OCT 000016
      OCT 000000
      OCT 000000
* 
      OCT 100000
      OCT 000016
      OCT 000000
      OCT 000000
* 
      SKP 
* 
      OCT 040000    ALOGT 
      OCT 000000
      OCT 131357
      OCT 131777
* 
      OCT 077777
      OCT 000304
      OCT 073000
      OCT 171012
* 
      OCT 071110
      OCT 000077
      OCT 105400
      OCT 160012
* 
      OCT 040000
      OCT 001235
      OCT 102456
      OCT 002010
* 
      SKP 
* 
*   DATA TABLE, WITH ERROR RETURN 
* 
STTP2 DEF *+1 
* 
      OCT 040000    TAN 
      OCT 000040
      OCT 030071
      OCT 047522
* 
      OCT 040000
      OCT 000376
      OCT 030071
      OCT 047522
* 
      OCT 134401
      OCT 000070
      OCT 030071
      OCT 047522
* 
      OCT 100001
      OCT 000314
      OCT 030071
      OCT 047522
* 
* 
      OCT 100001    SQRT
      OCT 000000
      OCT 030063
      OCT 052516
* 
      OCT 140000
      OCT 000377
      OCT 030063
      OCT 052516
* 
      OCT 144000
      OCT 000004
      OCT 030063
      OCT 052516
* 
      OCT 100770
      OCT 000050
      OCT 030063
      OCT 052516
* 
      SKP 
* 
      OCT 000000    ALOG
      OCT 000000
      OCT 030062
      OCT 052516
* 
      OCT 100001
      OCT 000000
      OCT 030062
      OCT 052516
* 
      OCT 100000
      OCT 001012
      OCT 030062
      OCT 052516
* 
      OCT 000000
      OCT 000400
      OCT 030062
      OCT 052516
* 
* 
      OCT 000000    ATAN
      OCT 000000
      OCT 000000
      OCT 000000
* 
      OCT 040000
      OCT 000000
      OCT 073261
      OCT 116377
* 
      OCT 040000
      OCT 000377
      OCT 076555
      OCT 154775
* 
      OCT 100001
      OCT 000004
      OCT 125445
      OCT 166002
* 
      SKP 
      OCT 040000    COS 
      OCT 000040
      OCT 030065
      OCT 047522
* 
      OCT 077000
      OCT 000320
      OCT 030065
      OCT 047522
* 
      OCT 137000
      OCT 000070
      OCT 030065
      OCT 047522
* 
      OCT 040000
      OCT 006440
      OCT 030065
      OCT 047522
* 
* 
      OCT 040000    SIN 
      OCT 000040
      OCT 030065
      OCT 047522
* 
      OCT 077700
      OCT 000042
      OCT 030065
      OCT 047522
* 
      OCT 100070
      OCT 000130
      OCT 030065
      OCT 047522
* 
      OCT 055500
      OCT 000066
      OCT 030065
      OCT 047522
* 
      SKP 
* 
      OCT 040000     EXP
      OCT 000020
      OCT 030067
      OCT 047506
* 
      OCT 040000
      OCT 000040
      OCT 030067
      OCT 047506
* 
      OCT 077667
      OCT 000106
      OCT 030067
      OCT 047506
* 
      OCT 052563
      OCT 000024
      OCT 030067
      OCT 047506
* 
* 
      OCT 000000    ALOGT 
      OCT 000000
      OCT 030062
      OCT 052516
* 
      OCT 100000
      OCT 000000
      OCT 030062
      OCT 052516
* 
      OCT 131101
      OCT 110002
      OCT 030062
      OCT 052516
* 
      OCT 123500
      OCT 022733
      OCT 030062
      OCT 052516
* 
      SKP 
* 
      OCT 040000     TANH 
      OCT 000377
      OCT 076545
      OCT 176775
* 
      OCT 040000
      OCT 000002
      OCT 060573
      OCT 166000
* 
      OCT 040000
      OCT 000010
      OCT 040000
      OCT 000002
* 
      OCT 100001
      OCT 000010
      OCT 100000
      OCT 000000
* 
      SKP 
* 
* 
INSPT OCT 0 
* 
FINP1 DEF *+1 
* 
      OCT 105320
      OCT 105321
      OCT 105322
      OCT 105324
      OCT 105325
      OCT 105326
      OCT 105327
      OCT 0 
* 
* 
* 
FINP2 DEF *+1 
* 
      OCT 105320
      OCT 105321
      OCT 105322
      OCT 105323
      OCT 105324
      OCT 105325
      OCT 105326
      OCT 105327
      OCT 105330
      OCT 0 
* 
* 
* 
M4    OCT 177774
LCT   OCT 0 
* 
      END 
* 
* 
*  EXECUTE ALL SIS INSTR. WITH ERROR RETURN 
*  (RETURN ADDRESS = SIS INSTR. ADDR. + 1)
* 
      LDA STTP2     GET DATA TABLE POINTER
      STA TBPT
      LDA FINP2     GET INSTR. TABLE POINTER
      STA INSPT 
      LDA INSPT,I   STORE SIS INSTR IN PROGRAM
      JSB SISEX     GO & EXECUTE SIS INSTR
* 
* 
      HLT 77B 
* 
      SKP 
* 
*  SUBROUTINE TO EXECUTE SIS INSTR
* 
SISEX NOP 
      STA INST
      LDA M4        GET LOOP COUNT
      STA LCT 
* 
      DLD TBPT,I    EXECUTE FETCHED SIS INSTR.
INST  OCT 0 
      HLT 1B        ERROR 
      JSB TSTRT     GO & TEST RESULT
      ISZ LCT       HAVE ALL 4 VALUES BEEN TESTED?
      JMP INST-1    NO, RETURN
* 
      ISZ INSPT     YES, GET NEXT INSTR.
      LDA INSPT,I 
      SZA           IS IT LAST ONE? 
      JMP SISEX+1   NO, RETURN
      JMP SISEX,I   YES, EXIT SUBROUTINE
* 
* 
* 
* 
* 
* 
*  SUBROUTINE TO TEST SIS INSTR. RESULT 
* 
TSTRT NOP 
      ISZ TBPT
      ISZ TBPT
      CPA TBPT,I
      RSS 
      HLT 1B
      ISZ TBPT
      CPB TBPT,I
      RSS 
      HLT 1B
      ISZ TBPT
      JMP TSTRT,I 
* 
      SKP 
* 
TBPT  OCT 0 
* 
* 
*   DATA TABLE, NO ERROR RETURN 
* 
STTP1 DEF *+1 
* 
      OCT 040000    TAN 
      OCT 000000
      OCT 042755
      OCT 036400
* 
      OCT 040000
      OCT 000002
      OCT 061654
      OCT 110402
* 
      OCT 100001
      OCT 000002
      OCT 042756
      OCT 135404
* 
      OCT 100001
      OCT 000000
      OCT 116125
      OCT 022402
* 
* 
      OCT 000000    SQRT
      OCT 000000
      OCT 000000
      OCT 000000
* 
      OCT 040000
      OCT 000377
      OCT 040000
      OCT 000000
* 
      OCT 044000
      OCT 000004
      OCT 060000
      OCT 000002
* 
      OCT 044770
      OCT 000050
      OCT 000050
      OCT 000050
* 
      SKP 
* 
      OCT 040000    ALOG
      OCT 000000
      OCT 123506
      OCT 172000
* 
      OCT 060000
      OCT 000000
      OCT 133132
      OCT 074377
* 
      OCT 050000
      OCT 001012
      OCT 000000
      OCT 000000
* 
      OCT 077777
      OCT 000441
      OCT 000000
      OCT 000000
* 
* 
      OCT 040000    COS 
      OCT 000000
      OCT 070124
      OCT 120000
* 
      OCT 077000
      OCT 000020
      OCT 000000
      OCT 000000
* 
      OCT 147000
      OCT 000010
      OCT 000000
      OCT 000000
* 
      OCT 040000
      OCT 006440
      OCT 000000
      OCT 000000
* 
      SKP 
* 
      OCT 040000    SIN 
      OCT 000000
      OCT 075273
      OCT 120777
* 
      OCT 040000
      OCT 000002
      OCT 065665
      OCT 050400
* 
      OCT 100001
      OCT 000000
      OCT 112113
      OCT 034000
* 
      OCT 076600
      OCT 000021
      OCT 000000
      OCT 000000
* 
* 
      OCT 040000     EXP
      OCT 000000
      OCT 064604
      OCT 123402
* 
      OCT 040000
      OCT 000002
      OCT 053374
      OCT 026004
* 
      OCT 123100
      OCT 000016
      OCT 000000
      OCT 000000
* 
      OCT 100000
      OCT 000016
      OCT 000000
      OCT 000000
* 
      SKP 
* 
      OCT 040000    ALOGT 
      OCT 000000
      OCT 131357
      OCT 131777
* 
      SKP 
* 
*   DATA TABLE, WITH ERROR RETURN 
* 
STTP2 DEF *+1 
* 
      OCT 040000    TAN 
      OCT 000000
      OCT 042755
      OCT 036400
* 
      OCT 040000
      OCT 000002
      OCT 061654
      OCT 110402
* 
      OCT 100001
      OCT 000002
      OCT 042756
      OCT 135404
* 
      OCT 100001
      OCT 000000
      OCT 116125
      OCT 022402
* 
* 
      OCT 000000    SQRT
      OCT 000000
      OCT 000000
      OCT 000000
* 
      OCT 040000
      OCT 000377
      OCT 040000
      OCT 000000
* 
      OCT 044000
      OCT 000004
      OCT 060000
      OCT 000002
* 
      OCT 044770
      OCT 000050
      OCT 000050
      OCT 000050
* 
      SKP 
* 
      OCT 040000    ALOG
      OCT 000000
      OCT 123506
      OCT 172000
* 
      OCT 060000
      OCT 000000
      OCT 133132
      OCT 074377
* 
      OCT 050000
      OCT 001012
      OCT 000000
      OCT 000000
* 
      OCT 077777
      OCT 000441
      OCT 000000
      OCT 000000
* 
* 
      OCT 040000    COS 
      OCT 000000
      OCT 070124
      OCT 120000
* 
      OCT 077000
      OCT 000020
      OCT 000000
      OCT 000000
* 
      OCT 147000
      OCT 000010
      OCT 000000
      OCT 000000
* 
      OCT 040000
      OCT 006440
      OCT 000000
      OCT 000000
* 
      SKP 
* 
      OCT 040000    SIN 
      OCT 000000
      OCT 075273
      OCT 120777
* 
      OCT 040000
      OCT 000002
      OCT 065665
      OCT 050400
* 
      OCT 100001
      OCT 000000
      OCT 112113
      OCT 034000
* 
      OCT 076600
      OCT 000021
      OCT 000000
      OCT 000000
* 
* 
      OCT 040000     EXP
      OCT 000000
      OCT 064604
      OCT 123402
* 
      OCT 040000
      OCT 000002
      OCT 053374
      OCT 026004
* 
      OCT 123100
      OCT 000016
      OCT 000000
      OCT 000000
* 
      OCT 100000
      OCT 000016
      OCT 000000
      OCT 000000
* 
      SKP 
* 
      OCT 040000    ALOGT 
      OCT 000000
      OCT 131357
      OCT 131777
* 
      SKP 
* 
* 
INSPT OCT 0 
* 
FINP1 DEF *+1 
* 
      OCT 105320
      OCT 105321
      OCT 105322
      OCT 105324
      OCT 105325
      OCT 105326
      OCT 105327
      OCT 0 
* 
* 
* 
FINP2 DEF *+1 
* 
      OCT 105320
      OCT 105321
      OCT 105322
      OCT 105323
      OCT 105324
      OCT 105325
      OCT 105326
      OCT 105327
      OCT 105330
      OCT 0 
* 
* 
* 
M4    OCT 177774
LCT   OCT 0 
* 
      END 
                                                                                                                                                                                                                              