ASMB,L,C
*&SISDG 
* 
* THIS MODULE CONTAINS THE SIS TESTS TST09-TST11. 
* REFERENCES ARE MADE TO ROUTINES IN HFAUX AND FPPD3, WHICH 
* CONTAINS THE OPCODE DRIVERS.
* 
*CREATED  781129 2035 
* EDITED  790525 1400 
* EDITED  781218 1215  TO MAKE DEFS +0.. R.R... 
* 
* LAST CODE CHANGE   790525 1400  CC
* 
      NAM SISDG     790525 1400  REV 1913  CC 
* 
      ENT TST09,TST10,TST11 
      EXT TSTDI,STSTE,MSGI,TINIT
      EXT R.R,R.RM1,M.RM1,M.M0D,STDEF 
* 
      EXT RST13,RST1O 
      EXT OND13 
      EXT INSTR 
* 
      SUP 
* INSTRUCTIONS
* 
      MIC TAN,105320B,0 
      MIC SQT,105321B,0 
      MIC ALG,105322B,0 
      MIC ATN,105323B,0 
      MIC COS,105324B,0 
      MIC SIN,105325B,0 
      MIC EXP,105326B,0 
      MIC ALT,105327B,0 
      MIC TNH,105330B,0 
* 
      MIC TNL,105331B,0 
      MIC CRT,105332B,0 
      MIC ATG,105333B,0 
      MIC FPW,105334B,0 
      MIC TPW,105335B,0 
* 
* 
      SKP 
* SIS TESTS 
* TESTS SIS TAN,SQRT,ALOG,ATAN,COS,SIN,EXP,ALOGT, AND TANH ROUTINES 
* 
* TSTS1 TESTS TAN,ALOG,ATAN,COS,SIN,ALOGT 
* 
*STSTS1 
TST09 EQU * 
TSTS1 NOP 
      JSB TINIT     SET PARMS, CALL CWCNF 
      JSB MSGI      "SIS1"
      DEF MSGS1 
* 
SS1LP JSB STSTE     EXECUTE SUBTESTS
      OCT -1        SHORT PASS ALL SUBTESTS 
      DEF STTAN,I   TAN 
      DEF STALG,I   ALOG
      DEF STATN,I   ATAN
      DEF STCOS,I   COS 
      DEF STSIN,I   SIN 
      DEF STALT     ALOGT 
* 
      JMP TSTS1,I   DONE NOW
* 
MSGS1 ASC 6,SIS1 TEST / 
*ETSTS1 
* 
* 
* 2ND MODULE SIS TESTS, FOR SQRT,EXP,TANH 
* 
*STSTS2 
TST10 EQU * 
TSTS2 NOP 
      JSB TINIT     SET PARMS, ETC
* 
      JSB MSGI      "SIS2"
      DEF MSGS2 
* 
SS2LP JSB STSTE     EXECUTE SUBTESTS
      OCT -1        SHORT PASS ALL SUBTESTS 
      DEF STSQT,I   SQRT
      DEF STEXP,I   EXP 
      DEF STTNH     TANH
* 
      JMP TSTS2,I 
* 
* 
MSGS2 ASC 6,SIS2 TEST / 
*ETSTS2 
* 
      SKP 
*S
* SIS3 TEST-- ENHANCED SIS INSTRUCTIONS 
* 
TST11 EQU * 
TSTS3 NOP 
      JSB TINIT     INIT. TEST
      JSB MSGI      "SIS3"
      DEF MSGS3 
      JSB STSTE     EXECUTE SUBTESTS
      OCT -1        ALL SUBTESTS FOR SHORT PASS 
      DEF STTRN,I   TRNL
      DEF STCMR,I   CMRT
      DEF STATL,I   ATLG
      DEF STFPW,I   .FPWR 
      DEF STTPW     .TPWR 
      JMP TSTS3,I   DONE
* 
* 
MSGS3 ASC 6,SIS3 TEST / 
*ETSTS3 
* 
* 
* 
* 
* 
      SKP 
*S
* TAN TEST
* 
STTAN NOP 
      JSB TSTDI     CALL GEN. ROUTINE WITH PARMS
      DEF MSTAN     MESSAGE 
      TAN           OPCODE
      DEF TANBF     OPN BUFFER
      DEF R.R+0     ADDR OF SUBR TO EXECUTE MACRO 
      JMP STTAN,I 
* 
MSTAN ASC 4, TAN  / 
TANBF OCT 2              EOTYP
      DEC -5             #OPNS
* 
      OCT 40000,0,42755,36400 OPND,ANSWER 
      BYT 1,0       RTN,E-O 
      OCT 40000,2,61654,110402
      BYT 1,0 
      OCT 100001,2,42756,135404 
      BYT 1,0 
      OCT 100001,0,116125,22402 
      BYT 1,0 
      OCT 40000,40  OPERAND 
      ASC 2,09OR
      BYT 0,1 
* 
* 
      SKP 
*S
* SQRT TEST 
* 
STSQT NOP 
      JSB TSTDI     CALL GEN. ROUTINE WITH PARMS
      DEF MSSQT     MESSAGE 
      SQT           OPCODE
      DEF SQTBF     OPN BUFFER
      DEF R.R+0     ADDR OF SUBR TO EXECUTE MACRO 
      JMP STSQT,I 
* 
MSSQT ASC 4, SQRT / 
SQTBF OCT 2              EOTYP
      DEC -4             #OPNS
* 
* 
* 
      OCT 0,0,0,0 
      BYT 1,0       RTN,E-O 
      OCT 40000,377,40000,0 
      BYT 1,0 
      OCT 44000,4,60000,2 
      BYT 1,0 
      OCT 100001,0  OPERAND 
      ASC 2,03UN
      BYT 0,1 
* 
* 
      SKP 
*S
* ALOG TEST 
* 
STALG NOP 
      JSB TSTDI     CALL GEN. ROUTINE WITH PARMS
      DEF MSALG     MESSAGE 
      ALG           OPCODE
      DEF ALGBF     OPN BUFFER
      DEF R.R+0     ADDR OF SUBR TO EXECUTE MACRO 
      JMP STALG,I 
* 
MSALG ASC 4, ALOG / 
ALGBF OCT 2              EOTYP
      DEC -4             #OPNS
* 
      OCT 40000,0,123506,172000 
      BYT 1,0       RTN,E-O 
      OCT 60000,0,133132,74377
      BYT 1,0 
      OCT 0,0       OPERAND 
      ASC 2,02UN    ANSWER
      BYT 0,1 
      OCT 100001,0
      ASC 2,02UN
      BYT 0,1 
* 
* 
* 
      SKP 
*S
* ATAN TEST 
* 
STATN NOP 
      JSB TSTDI     CALL GEN. ROUTINE WITH PARMS
      DEF MSATN     MESSAGE 
      ATN           OPCODE
      DEF ATNBF     OPN BUFFER
      DEF R.R+0     ADDR OF SUBR TO EXECUTE MACRO 
      JMP STATN,I 
* 
MSATN ASC 4, ATAN / 
ATNBF OCT 2              EOTYP
      DEC -4             #OPNS
      OCT 0,0,0,0 
      BYT 0,0       RTN,E-O 
      OCT 40000,0,73261,116377
      BYT 0,0 
      OCT 40000,377,76555,154775
      BYT 0,0 
      OCT 100001,4,125445,166002
      BYT 0,0 
* 
      SKP 
*S
* COS TEST
* 
STCOS NOP 
      JSB TSTDI     CALL GEN. ROUTINE WITH PARMS
      DEF MSCOS     MESSAGE 
      COS           OPCODE
      DEF COSBF     OPN BUFFER
      DEF R.R+0     ADDR OF SUBR TO EXECUTE MACRO 
      JMP STCOS,I 
* 
MSCOS ASC 4, COS  / 
COSBF OCT 2              EOTYP
      DEC -1             #OPNS
      OCT 40000,0,70124,120000
      BYT 1,0       RTN,E-O 
      DEC -1
* 
* 
      SKP 
*S
* SIN TEST
* 
STSIN NOP 
      JSB TSTDI     CALL GEN. ROUTINE WITH PARMS
      DEF MSSIN     MESSAGE 
      SIN           OPCODE
      DEF SINBF     OPN BUFFER
      DEF R.R+0     ADDR OF SUBR TO EXECUTE MACRO 
      JMP STSIN,I 
* 
MSSIN ASC 4, SIN  / 
SINBF OCT 2              EOTYP
      DEC -4             #OPNS
      OCT 40000,0,75273,120777
      BYT 1,0       RTN,E-O 
      OCT 40000,2,65665,50400 
      BYT 1,0 
      OCT 100001,0,112113,34000 
      BYT 1,0 
      OCT 40000,40
      ASC 2,05OR
      BYT 0,1 
* 
      SKP 
*S
* EXP TEST
* 
STEXP NOP 
      JSB TSTDI     CALL GEN. ROUTINE WITH PARMS
      DEF MSEXP     MESSAGE 
      EXP           OPCODE
      DEF EXPBF     OPN BUFFER
      DEF R.R+0     ADDR OF SUBR TO EXECUTE MACRO 
      JMP STEXP,I 
* 
MSEXP ASC 4, EXP  / 
EXPBF OCT 2              EOTYP
      DEC -6             #OPNS
      OCT 40000,0,64604,123402
      BYT 1,0       RTN,E-O 
      OCT 40000,2,53374,26004 
      BYT 1,0 
      OCT 123100,16,0,0 
      BYT 1,0 
      OCT 100000,16,0,0 
      BYT 1,0 
      OCT 40000,20
      ASC 2,07OF
      BYT 0,1 
      OCT 40000,40
      ASC 2,07OF
      BYT 0,1 
* 
      SKP 
*S
* ALOGT TEST
* 
STALT NOP 
      JSB TSTDI     CALL GEN. ROUTINE WITH PARMS
      DEF MSALT     MESSAGE 
      ALT           OPCODE
      DEF ALTBF     OPN BUFFER
      DEF R.R+0     ADDR OF SUBR TO EXECUTE MACRO 
      JMP STALT,I 
* 
MSALT ASC 4, ALOGT/ 
ALTBF OCT 2              EOTYP
      DEC -1             #OPNS
      OCT 40000,0,131357,131777 
      BYT 1,0       RTN,E-O 
* 
* 
      SKP 
*S
* TANH TEST 
* 
STTNH NOP 
      JSB TSTDI     CALL GEN. ROUTINE WITH PARMS
      DEF MSTNH     MESSAGE 
      TNH           OPCODE
      DEF TNHBF     OPN BUFFER
      DEF R.R+0     ADDR OF SUBR TO EXECUTE MACRO 
      JMP STTNH,I 
* 
MSTNH ASC 4, TANH / 
TNHBF OCT 2              EOTYP
      DEC -4             #OPNS
      OCT 40000,377,76545,176775
      BYT 0,0       RTN,E-O 
      OCT 40000,2,60573,166000
      BYT 0,0 
      OCT 40000,10,40000,2
      BYT 0,0 
      OCT 100001,10,100000,0
      BYT 0,0 
* 
* 
* 
* 
* 
*S
      SKP 
* /TRNL TEST
* 
STTRN NOP 
      JSB TSTDI     CALL GEN. ROUTINE WITH PARMS
      DEF MSTRN     MESSAGE 
      TNL           OPCODE
      DEF TRNBF     OPN BUFFER
      DEF TRNL      ADDR OF SUBR TO EXECUTE MACRO 
      JMP STTRN,I 
* 
MSTRN ASC 4, DPOLY /
TRNBF OCT 2              EOTYP
      DEC -2             #OPNS
* 
      OCT 100000    FLAG
      DEC 2,1       M,N 
      DEY -2.0      ARG 
      DEY 2.0,3.0,4.0,4.0  COEFS
      OCT 120000,0,0,10  RESULT 
      BYT 0,0 
* 
      OCT 0         FLAG
      DEC 2,1       M,N 
      DEY -2.0      ARG 
      DEY 2.0,3.0,4.0,4.0 COEFS 
      OCT 60000,0,0,4 RESULT
      BYT 0,0 
* 
*ESTTRN 
* 
* 
      SKP 
* 
* 
* 
* /CMRT TEST
* 
*S
STCMR NOP 
      JSB TSTDI     CALL GEN. ROUTINE WITH PARMS
      DEF MSCMR     MESSAGE 
      CRT           OPCODE
      DEF CMRBF     OPN BUFFER
      DEF CMRT      ADDR OF SUBR TO EXECUTE MACRO 
      JMP STCMR,I 
* 
MSCMR ASC 4, CMRT  /
CMRBF OCT 2              EOTYP
      DEC -3             #OPNS
* 
      DEC 4         FLAG
      DEY 3.1       ARG 
      OCT 50574,140667,23442,5402 CONST 
      OCT 71162,20251,47741,35713 
      OCT 111613,10222,56460,153371 RESULT
      BYT 1,0 
* 
      DEC 4         FLAG
      DEY 51471.6577 ARG
      OCT 50574,140667,23442,5402 CONST 
      OCT 71162,20251,47741,35713 
      OCT 100002,30304,15740,37375  RSLT
      BYT 1,0 
* 
      DEC -2        FLAG
      DEY 8.1       ARG 
      OCT 50574,140667,23442,5402 CONST 
      OCT 71162,20251,47741,35713 
      OCT 50060,102141,55116,174777  RSLT 
      BYT 1,0 
* 
*ESTCMR 
* 
* 
      SKP 
* 
* 
* 
* .ATLG TEST
* 
*S
STATL NOP 
      JSB TSTDI     CALL GEN. ROUTINE WITH PARMS
      DEF MSATL     MESSAGE 
      ATG           OPCODE
      DEF ATLBF     OPN BUFFER
      DEF M.M0D+0   ADDR OF SUBR TO EXECUTE MACRO 
      JMP STATL,I 
* 
MSATL ASC 4, ATLG  /
ATLBF OCT 3              EOTYP , NO CHANGE IN E,O 
      DEC -1             #OPNS
* 
      DEY 3.0       ARG 
      DEY -0.5      RESULT
      BYT 0,0 
* 
* 
*ESTATL 
* 
* 
      SKP 
* 
* 
* 
* .FPWR TEST
* 
*S
STFPW NOP 
      JSB TSTDI     CALL GEN. ROUTINE WITH PARMS
      DEF MSFPW     MESSAGE 
      FPW           OPCODE
      DEF FPWBF     OPN BUFFER
      DEF R.RM1+0   ADDR OF SUBR TO EXECUTE MACRO 
      JMP STFPW,I 
* 
MSFPW ASC 4, .FPWR /
FPWBF OCT 2              EOTYP
      DEC -1             #OPNS
* 
      DEC 7,0       POWER 
      DEC 3.0       OPND
      DEC 2187.0    RESULT
      BYT 0,0 
* 
* 
*ESTFPW 
* 
* 
      SKP 
* 
* 
* 
* .TPWR TEST
* 
*S
STTPW NOP 
      JSB TSTDI     CALL GEN. ROUTINE WITH PARMS
      DEF MSTPW     MESSAGE 
      TPW           OPCODE
      DEF TPWBF     OPN BUFFER
      DEF M.RM1+0   ADDR OF SUBR TO EXECUTE MACRO 
      JMP STTPW,I 
* 
MSTPW ASC 4, .TPWR /
TPWBF OCT 2              EOTYP
      DEC -1             #OPNS
* 
      DEC 7,0,0,0   POWER 
      DEY 3.0       OPND
      DEY 2187.0    RESULT
      BYT 0,0 
* 
* 
*ESTTPW 
* 
* 
      SKP 
*S
* 
* 
* ROUTINE TO EXECUTE /TRNL
* 
TRNL  NOP 
      JSB STDEF     SET UP DEFS(INDS) 
      DEF RST13+0 
      DEF TRNIN+2 
      DEF OND13+3 
      DEF TRNIN+3 
      DEF OND13+7 
      DEF TRNIN+4 
      DEF OND13+1 
      DEF TRNIN+5 
      DEF OND13+2 
      DEF TRNIN+6 
      OCT 0         5 DEFS
      LDA INSTR 
      STA TRNIN 
      LDA OND13     FLAG WORD 
      STA TRNIN+1 
TRNIN NOP           MACRO 
      BSS 1         FLAGS 
      DEF RST13+0   RESULT
      DEF OND13+3   ARG 
      DEF OND13+7   COEFS 
      DEF OND13+1   M 
      DEF OND13+2   N 
      ISZ RST1O 
      ISZ RST1O 
      JMP TRNL,I    DONE
* 
* 
* 
*S
      SKP 
* ROUTINE TO EXECUTE /CMRT
* 
CMRT  NOP 
      JSB STDEF     SET UP DEFS (INDS)
      DEF RST13+0 
      DEF CMRIN+1 
      DEF OND13+5 
      DEF CMRIN+2 
      DEF OND13+1 
      DEF CMRIN+3 
      OCT 0         3 DEFS
      LDA INSTR 
      STA CMRIN 
      LDA OND13     FLAG WORD 
CMRIN NOP           MACRO 
      DEF RST13+0   RESULT
      DEF OND13+5   CONST 
      DEF OND13+1   ARG 
      ISZ RST1O 
      ISZ RST1O 
      JMP CMRT,I    DONE
* 
* 
      END 
                        