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