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