OCT 042047 +0.991776928998E-09 OCT 103065 OCT 033707 * OCT 100412 -0.923761080009E-09 OCT 005743 OCT 075305 * OCT 040721 +0.191553800901E-08 OCT 040041 OCT 136711 * * OCT 107005 -0.351227790163E-30 OCT 021403 OCT 141067 * OCT 132331 -0.231579889015E-30 OCT 014163 OCT 140467 * OCT 131130 -0.119647901148E-30 OCT 012440 OCT 001065 * * ******************************************************************** * * * * * ******************************************************************** * TABLE FOR XMPY TESTS ******************************************************************** MLHED DEC 18 NR. OF ENTRIES. EACH ENTRY * * CONSISTS OF 9 WORDS. * * FIRST 3 WORDS - 1ST OPEAND * SECOND 3 WORDS - 2ND OPEAND * LAST 3 WORDS - EXPECTED OUTPUT * MLBAS EQU * OCT 070130 +0.259048713216E+21 OCT 027501 OCT 057210 * OCT 0 +0.00E+00 OCT 0 OCT 0 * OCT 0 +0.00E+00 OCT 0 OCT 0 * * OCT 104305 -0.671190053874E+17 OCT 147543 OCT 015160 * OCT 0 +0.00E+00 OCT 0 OCT 0 * OCT 0 +0.00E+00 OCT 0 OCT 0 * * OCT 123061 -0.444697001151E+30 OCT 132061 OCT 165706 * OCT 132376 -0.300015997644E+03 OCT 174745 OCT 002422 * OCT 064477 +0.133416214449E+33 OCT 030237 OCT 161726 * * OCT 051200 +0.510669117427E+29 OCT 143630 OCT 053700 * OCT 047776 +0.199987005543E+02 OCT 125533 OCT 126412 * OCT 063437 +0.102127187617E+31 OCT 041136 OCT 071710 * * OCT 054441 +0.980022398709E+14 OCT 166261 OCT 154136 * OCT 055553 +0.599117266542E+07 OCT 002252 OCT 054456 * OCT 077521 +0.587148340664E+21 OCT 043703 OCT 172612 * * OCT 041726 +0.444590012834E+07 OCT 146040 OCT 155456 * OCT 043316 +0.290016541196E+06 OCT 004250 OCT 136446 * OCT 045415 +0.128938457772E+13 OCT 051722 OCT 127522 * * OCT 077600 +0.510008296672E+03 OCT 103756 OCT 142022 * OCT 075775 +0.154988760012E+02 OCT 131263 OCT 067410 * OCT 075602 +0.790455534971E+04 OCT 034255 OCT 114032 * * OCT 060463 +0.221008901154E-10 OCT 061737 OCT 005273 * OCT 053346 +0.434501999876E+02 OCT 100234 OCT 157414 * OCT 040775 +0.960288095417E-09 OCT 110433 OCT 151707 * * OCT 061000 +0.340011987202E-15 OCT 072331 OCT 035233 * OCT 050777 +0.200192506734E-01 OCT 132256 OCT 166367 * OCT 076620 +0.680678520374E-17 OCT 021141 OCT 121217 * * OCT 064022 +0.550960071891E-20 OCT 145524 OCT 113173 * OCT 072360 +0.697011278004E-05 OCT 064014 OCT 067737 * OCT 057424 +0.384025383838E-25 OCT 100033 OCT 044131 * * OCT 052700 +0.113490887012E-20 OCT 052206 OCT 064567 * OCT 046617 +0.551103480763E-12 OCT 114157 OCT 011661 * OCT 063753 +0.625452228671E-33 OCT 145654 OCT 027045 * * OCT 122556 -0.522100769010E+20 OCT 010565 OCT 136604 * OCT 064733 +0.433599800126E+06 OCT 176315 OCT 050446 * OCT 132430 -0.226382789088E+26 OCT 120703 OCT 160252 * * OCT 063353 +0.622105439987E+26 OCT 030262 OCT 006254 * OCT 106603 -0.166601987643E-08 OCT 010601 OCT 056707 * OCT 121762 -0.103644002825E+18 OCT 012407 OCT 020162 * * OCT 136736 -0.346709115603E+08 OCT 154016 OCT 011064 * OCT 065256 +0.266700199801E+02 OCT 014667 OCT 134412 * OCT 110705 -0.924673904043E+09 OCT 030437 OCT 165074 * * OCT 103464 -0.900006521306E-06 OCT 001353 OCT 001331 * OCT 057561 +0.111111600077E-07 OCT 131402 OCT 040315 * OCT 122755 -0.100001164662E-13 OCT 046445 OCT 115645 * * OCT 135233 -0.300947600112E-16 OCT 030162 OCT 146225 * OCT 042374 +0.411197650034E-05 OCT 146771 OCT 125737 * OCT 132462 -0.123748945949E-21 OCT 143463 OCT 017161 * * OCT 103660 -0.199034120660E-21 OCT 173053 OCT 153561 * OCT 075724 +0.900994750110E-09 OCT 167475 OCT 160705 * OCT 105633 -0.179328697807E-30 OCT 164310 OCT 016065 * * OCT 047711 +0.600237011542E-34 OCT 000721 OCT 050037 * OCT 105475 -0.222697990123E-03 OCT 175523 OCT 002751 * OCT 133470 -0.133671576068E-37 OCT 163311 OCT 072007 * * * ******************************************************************** * HED SUBROUTINES * * SUBROUTINE TO TURN ON MEMORY PROTECT LOGIC. * * ENTER WITH (B)=FENCE ADDRESS. * MEMTN NOP LDA PMMTN SET INTERRUPT ADDRESS. STA MPPAR CLA STA MPIND RESET INDICATOR. INA ANNOUNCE THAT WE ARE DOING STA MPTES A MEM. PROTECT TEST. OTB MPPAR LOAD FENCE REGISTER. STF INTP STC MPPAR TURN ON MEM. PROTECT LOGIC. JMP MEMTN,I * * * * MEMORY PROTECT VIOLATION ROUTINE. * * MPCHK NOP CLF INTP CLF MPPAR TURN OFF PARITY LOGIC. LIA MPPAR GET VIOLATION REGISTER. SSA JMP MPCK1 PARITY ERROR! LDA TRHLT MEMORY PROTECT VIOLATION! STA MPPAR RESTORE TRAP CELL HALT. CLA,INA SET INDICATOR. STA MPIND STF MPPAR TURN ON PARITY LOGIC. JMP MPCHK,I RETURN. * MPCK1 EQU * OCT 106077 HALT ON PARITY ERROR. JMP *-1 * * HED CONSTANTS AND STORAGE * * ORG 140B IOIP DEF IOID TSTP DEF TSTD POINTER TO TEST TABLE HDMP DEF HDMS POINTER TO HEADER MESSAGE STDA OCT 17777 STDB OCT 0 * * * * ORG 150B ******************************************************************** * * MAPPING CODES FOR MACRO * .XFER EQU 220B .GOTO EQU 221B ..MAP EQU 222B .ENTR EQU 223B .ENTP EQU 224B .SETP EQU 227B DBLE EQU 201B SNGL EQU 202B .XMPY EQU 203B .XDIV EQU 204B .DFER EQU 205B .XADD EQU 213B .XSUB EQU 214B ******************************************************************** * MTRY BSS 1 TO CHECK IF FENCE IS RESTORED PMTRY DEF * * * * OUTPUT STORED HERE * POUTP DEF OUTPT OUTPT BSS 1 OUTP1 BSS 1 BSS 1 POUT1 DEF OUTP1 * * MPPAR EQU 5 ZPSTX DEF ZSTEX CONTROL SECTION POINTER HDMS ASC 15,START 2100A-S FFP DIAGNOSTIC/ * IOID EQU * DEF OTATB DEF STCTB DEF CLCTB DEC -1 TEMP BSS 9 DEC -6,-5,-4,-3,-2,-1 . DEC 0,1,2,3,4,5,6,7,8,9 BIT14 OCT 40000 BIT15 OCT 100000 INDIC BSS 1 PADHD DEF ADHED PADBS DEF ADBAS PADB1 DEF ADBS1 PADH1 DEF ADHD1 PADH2 DEF ADHD2 PADB2 DEF ADBS2 TBGSC NOP TBGTR JSB *+1,I DEF TBGIN B77 OCT 77 P40 DEC 40 P8 DEC 8 P15 DEC 15 J BSS 1 M16 DEC -16 M17 DEC -17 M15 DEC -15 PINTR DEF INNTR PINTP DEF INNTP PPROV DEF PROVN PRNTY DEF RNTY1 INNTR RAM .ENTR INSERTS DEF TTB1 FOR RSS .ENTR TEST * INNTP NOP INSERTS NOP FOR RAM .ENTP .ENTP DEF TTB1 TEST * PMMTN JSB *+1,I INSERT FOR TRAP CELL DEF MPCHK OF MEMORY PROTECT, IF MEM. * PROTECT IS USED. TRHLT OCT 106077 INSERT FOR TRAP CELL OF MEM. * PROTECT, IF IT IS NOT USED. MPTES BSS 1 MPIND BSS 1 TBIND BSS 1 TBGAD BSS 1 TBTIM BSS 1 TBGLP DEC -18 TBGN1 BSS 1 PSBHD DEF SBHED PSBBS DEF SBBAS PSGHD DEF SGHED PSGBS DEF SGBAS PSGH1 DEF SGHD1 PSGB1 DEF SGBS1 PSGH2 DEF SGHD2 PSGB2 DEF SGBS2 PMPH2 DEF MPHD2 PMPB2 DEF MPBS2 PDBHD DEF DBHED PDBBS DEF DBBAS PDVH1 DEF DVHD1 PDVB1 DEF DVBS1 PMPH3 DEF MPHD3 PMPB3 DEF MPBS3 PMP2D DEF MAP2D PMP3D DEF MAP3D PMLHD DEF MLHED PMLBS DEF MLBAS PDVHD DEF DVHED PDVBS DEF DVBAS PMLH1 DEF MLHD1 PMLB1 DEF MLBS1 PNTRP BSS 1 PNTRY DEF ENTRY PERMS DEF ERMES PRMSN DEF RMSSN PMPER DEF MPERR PDATC DEF DATCK PCLCT DEF CLCTB PTBCK DEF TBCHK PTBST DEF TBGST PXAD2 DEF XADD2 PXMP4 DEF XMPY4 PMEMT DEF MEMTN PR142 DEF E142 PR162 DEF E162 PPRNN DEF PRNIN B60 OCT 60 * * ERROR AND NON-ERROR MESSAGES * MMS01 ASC 8,H030 .GOTO TEST/ MMS02 ASC 8,H050 .ENTR TEST/ MMS03 ASC 8,H060 .ENTP TEST/ MMS04 ASC 8,H100 .SETP TEST/ MMS05 ASC 8,H110 ..MAP TEST/ MMS06 ASC 8,H120 SNGL TEST/ MMS07 ASC 8,H130 DBLE TEST/ MMS08 ASC 8,H140 .XADD TEST/ MMS09 ASC 8,H150 .XSUB TEST/ MMS10 ASC 8,H160 .XMPY TEST/ MMS11 ASC 8,H200 .XDIV TEST/ MMS12 ASC 8,H210 .DFER TEST/ MMS13 ASC 8,H220 .XFER TEST/ * * * BUFFER FOR DATA ERROR MESSAGES FOR * DBLE XADD XSUB * XMPY XDIV * TESTS. * RMS00 ASC 8,XXXX DATA ERROR OCT 6412 CR-LF ASC 2,ACT RMAC1 ASC 11,XXXXXX XXXXXX XXXXXX OCT 6412 ASC 2,EXP RMEX1 ASC 12,XXXXXX XXXXXX XXXXXX/ PRAC1 DEF RMAC1 PREX1 DEF RMEX1 PERN1 DEF ERNR1 PERN2 DEF ERNR2 PERN3 DEF ERNR3 PERN4 DEF ERNR4 PERN5 DEF ERNR5 ERNR1 ASC 2,E130 ERNR2 ASC 2,E140 ERNR3 ASC 2,E150 ERNR4 ASC 2,E160 ERNR5 ASC 2,E200 RMS01 ASC 18,E030 FAILED FOR INDIRECT ADDRESSING/ RMS02 ASC 10,E031 FAILED FOR J=0/ RMS03 ASC 11,E032 FAILED FOR J=NEG/ RMS04 ASC 11,E033 FAILED FOR J>16/ RMS05 ASC 10,E034 FAILED FOR J=8/ RMS06 ASC 18,E050 FAILED FOR ACTUAL NR OF PARAM. ASC 7, ALLOWED NR/ * * BUFFER TO OUTPUT ERROR MESSAGE "NO CHECK ON MEM PROT VIOLATION" * * RMS09 ASC 18,XXXX NO CHECK ON MEM PROT VIOLATION/ E053 ASC 2,E053 E211 ASC 2,E211 E131 ASC 2,E131 E104 ASC 2,E104 PR053 DEF E053 PR211 DEF E211 PR131 DEF E131 PR104 DEF E104 * RMS10 ASC 18,E060 FAILED FOR ACTUAL NR OF PARAM. ASC 7,< ALLOWED NR/ RMS11 ASC 15,E100 A-REG. NOT=0 UPON RETURN/ RMS12 ASC 17,E101 B-REG. DOES NOT CONTAIN LAST ASC 11,ADDRESS+1 UPON RETURN/ RMS13 ASC 14,E102 INCORRECT VALUE STORED/ RMS14 ASC 16,E103 MORE LOCATIONS FILLED THAN ASC 5,REQUESTED/ RMS15 ASC 6,E210 FAILED/ RMS16 ASC 6,E220 FAILED/ RMS17 ASC 17,E054 RETURN ADDRESS NOT STORED IN ASC 9,CORRECT LOCATION/ * * BUFFER TO OUTPUT "OVERFLOW NOT SET". * RMS18 ASC 11,XXXX OVERFLOW NOT SET/ E121 ASC 2,E121 E141 ASC 2,E141 E161 ASC 2,E161 E201 ASC 2,E201 PR121 DEF E121 PR141 DEF E141 PR161 DEF E161 PR201 DEF E201 * * * BUFFER FOR DATA ERROR MESSAGES FOR SNGL * RMS19 ASC 8,E120 DATA ERROR OCT 6412 CR-LF ASC 2,ACT R19AC ASC 7,XXXXXX XXXXXX OCT 6412 ASC 2,EXP R19EX ASC 8,XXXXXX XXXXXX/ P19AC DEF R19AC P19EX DEF R19EX * RMS20 ASC 16,E055 RETURN ADDR. NOT IN A-REG/ RMS21 ASC 15,E056 INCORRECT ADDR. IN B-REG/ * * BUFFER TO OUTPUT "OVERFLOW SET" * RMS22 ASC 9,XXXX OVERFLOW SET/ E123 ASC 2,E123 E143 ASC 2,E143 PR123 DEF E123 PR143 DEF E143 * ****************RMS23 MESSAGE ON OTHER PAGE * * BUFFER FOR ERROR MESSAGES FOR ..MAP TESTS * RMS24 ASC 8,E110 DATA ERROR OCT 6412 CR-LF ASC 2,ACT R24AC ASC 3,XXXXXX OCT 6412 CR-LF ASC 2,EXP R24EX ASC 4,XXXXXX/ P24AC DEF R24AC P24EX DEF R24EX ****************RMS25 MESSAGE ON OTHER PAGE RMS27 ASC 13,E122 FENCE ADDR NOT SAVED/ * HED SUBROUTINES * * SUBROUTINE TO PRINT "OVERFLOW SET" * ENTER WITH (B)=POINTER TO ERROR NUMBER STRING * PROVS NOP LDA B,I MOVE STA RMS22 ERROR INB NUMBER LDA B,I INTO STA RMS22+1 MESSAGE BUFFER. * JSB ERMS,I PRINT ERROR MESSAGE. DEF RMS22 JMP PROVS,I EXIT. * * * * SUBROUTINE TO START UP THE TBG(IF PRESENT) IN * TIME INTERVALS OF 0.1 MS. * TBGTN NOP STA TEMP+8 SAVE (A). LDA TBGTR SET TRAP CELL STA TBGSC,I INSTRUCTION. LDA TBGLP SET TIMING LOOP. STA TBTIM CLA RESET INDICATOR. STA TBIND OTATB OTA CH START UP TBG. STCTB STC CH,C LDA TEMP+8 RESTORE (A). STF INTP TURN ON INTERRUPTS. ISZ TBTIM LOOP. JMP *-1 JMP TBGTN,I EXIT. * * HED TEST DATA TABLES * * ******************************************************************** * TABLE FOR XDIV TESTS ******************************************************************** * DVHED EQU * DEC 17 NR. OF TABLE ENTRIES. EACH ENTRY * CONSISTS OF 9 WORDS. * * * FIRST 3 WORDS - 1ST OPERAND * SECOND 3 WORDS - 2ND OPERAND * LAST 3 WORDS - EXPECTED OUTPUT * DVBAS EQU * OCT 062646 +0.412336000120E+34 OCT 007535 OCT 145340 * OCT 042272 +0.900813201144E+07 OCT 001001 OCT 073460 * OCT 057250 +0.457737519385E+27 OCT 066051 OCT 066662 * * OCT 072235 +0.881109231566E+25 OCT 022130 OCT 030646 * OCT 071116 +0.234100876999E+06 OCT 116020 OCT 060044 * OCT 040512 +0.376380149815E+20 OCT 121346 OCT 140204 * * OCT 056370 +0.511110388901E+14 OCT 067242 OCT 060534 * OCT 076377 +0.399994678903E+04 OCT 111406 OCT 020030 * OCT 057463 +0.127779297041E+11 OCT 173575 OCT 001104 * * OCT 070262 +0.721269304566E+04 OCT 142655 OCT 141432 * OCT 057544 +0.119238671105E+02 OCT 012160 OCT 105410 * OCT 045634 +0.604895457055E+03 OCT 123625 OCT 107024 * * OCT 045015 +0.666998765432E+18 OCT 037276 OCT 175170 * OCT 047362 +0.222213812456E+17 OCT 035177 OCT 110156 * OCT 074020 +0.300160803715E+02 OCT 073537 OCT 073012 * * OCT 052443 +0.991134896977E-08 OCT 044560 OCT 156715 * OCT 076717 +0.239967811234E-03 OCT 167465 OCT 171751 * OCT 053236 +0.413028269033E-04 OCT 044516 OCT 013345 * * OCT 054147 +0.221007761103E+02 OCT 030732 OCT 044012 * OCT 064254 +0.113489002136E-16 OCT 152477 OCT 004221 * OCT 066032 +0.194739364118E+19 OCT 020313 OCT 130572 * *