      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/
RMS07 ASC 18,E051 FAILED FOR ACTUAL NR OF PARAM.
      ASC 7,= ALLOWED NR/ 
RMS08 ASC 18,E052 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
* 
* 
  